Loading ...
Sorry, an error occurred while loading the content.

Re: [JBasic} Graphics question with code

Expand Messages
  • Ivor
    Hi Rod and Stefan, Complete code list as follows, but I will be able to condense it with Stefan s neat print trick. The code was amended from the LINE demo
    Message 1 of 8 , May 19, 2013
    • 0 Attachment
      Hi Rod and Stefan,
      Complete code list as follows, but I will be able to condense it with Stefan's neat print trick. The code was amended from the LINE demo supplied by Welo, parts of the redundant elements still in there.
      (Error Note: The draw button and quit button get overwritten by a space command until the mouse cursor goes over them, not sure why this is).

      Ivor Cogdell


      '----------Code Start --------------
      'Plot finds in Hgf V 114h - 13.05.2013-Ivor Cogdell
      'Utilising "Demo using the LINE command by Welo, 11/02/06"

      msg1$="Click DRAW button to start drawing."
      msg2$="Now, click the mouse at end point."
      tree=1
      pylon=3

      NOMAINWIN
      WindowWidth=840
      WindowHeight=838
      UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
      UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
      GRAPHICBOX #demo.gb1, 1, 1, 801, 753
      STATICTEXT #demo.st1, msg1$, 25, 758, 760, 14
      BUTTON #demo.btn1, "Draw", [drawLine], LL, 200, 3, 50, 23
      BUTTON #demo.btn2, "Quit", [quit], LL, 640, 2, 100, 23

      OPEN "Plot Finds in HGF V" FOR WINDOW AS #demo
      PRINT #demo, "trapclose [quit]"
      PRINT #demo, "font arial 8"
      PRINT #demo.gb1, "setfocus"
      'PRINT #demo.gb1, "when leftButtonDown [beginPsn]"
      WAIT
      [beginPsn] 'Get start pos
      x1=MouseX
      y1=MouseY
      PRINT #demo.st1, "The right coordinate to begin the line is "; x1; "."+_
      " The down component is "; y1; "."
      GOSUB [delay]
      PRINT #demo.st1, msg2$
      PRINT #demo.gb1, "setfocus"
      'PRINT #demo.gb1, "when leftButtonDown [finishPsn]"
      WAIT
      [finishPsn] 'Get end pos
      x2=MouseX
      y2=MouseY
      PRINT #demo.st1, "The right coordinate to end the line is "; x2; "."+_
      " The down component is "; y2; "."
      GOSUB [delay]
      PRINT #demo.st1, "Click on Draw"
      WAIT
      [drawLine]
      PRINT #demo.gb1, "DOWN"
      PRINT #demo.gb1, "fill white"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "COLOR black"'border
      PRINT #demo.gb1, "LINE "; 2; " "; 2; " "; 795; " "; 2
      PRINT #demo.gb1, "LINE "; 2; " "; 2; " "; 2; " "; 745
      PRINT #demo.gb1, "LINE "; 795; " "; 2; " "; 795; " "; 745
      PRINT #demo.gb1, "LINE "; 795; " "; 745; " "; 2; " "; 745
      PRINT #demo.gb1, "LINE "; 0; " "; 0; " "; 860; " "; 0
      PRINT #demo.gb1, "COLOR darkgreen"
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 534; " "; 35; " "; 536; " "; 50
      PRINT #demo.gb1, "LINE "; 536; " "; 50; " "; 537; " "; 102
      PRINT #demo.gb1, "LINE "; 537; " "; 102; " "; 530; " "; 147
      PRINT #demo.gb1, "LINE "; 530; " "; 157; " "; 510; " "; 160'corner
      PRINT #demo.gb1, "LINE "; 510; " "; 160; " "; 511; " "; 162
      PRINT #demo.gb1, "LINE "; 515; " "; 163; " "; 522; " "; 206
      PRINT #demo.gb1, "LINE "; 522; " "; 206; " "; 532; " "; 208
      PRINT #demo.gb1, "COLOR green"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 532; " "; 208; " "; 540; " "; 274
      PRINT #demo.gb1, "LINE "; 540; " "; 274; " "; 540; " "; 297
      PRINT #demo.gb1, "COLOR darkgreen"
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 540; " "; 297; " "; 437; " "; 320
      PRINT #demo.gb1, "LINE "; 440; " "; 326; " "; 487; " "; 510
      PRINT #demo.gb1, "LINE "; 487; " "; 510; " "; 540; " "; 497
      PRINT #demo.gb1, "LINE "; 540; " "; 497; " "; 543; " "; 557
      PRINT #demo.gb1, "LINE "; 543; " "; 557; " "; 547; " "; 586
      PRINT #demo.gb1, "LINE "; 547; " "; 586; " "; 553; " "; 610
      PRINT #demo.gb1, "COLOR brown"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 555; " "; 615; " "; 513; " "; 637
      PRINT #demo.gb1, "COLOR blue"
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 560; " "; 631; " "; 513; " "; 638
      PRINT #demo.gb1, "LINE "; 465; " "; 643; " "; 513; " "; 638
      PRINT #demo.gb1, "LINE "; 560; " "; 631; " "; 465; " "; 643
      PRINT #demo.gb1, "LINE "; 345; " "; 670; " "; 465; " "; 643
      PRINT #demo.gb1, "LINE "; 278; " "; 690; " "; 345; " "; 670
      PRINT #demo.gb1, "LINE "; 125; " "; 732; " "; 278; " "; 690
      PRINT #demo.gb1, "COLOR brown"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 225; " "; 670; " "; 278; " "; 690
      PRINT #demo.gb1, "LINE "; 110; " "; 700; " "; 225; " "; 670
      PRINT #demo.gb1, "LINE "; 107; " "; 689; " "; 110; " "; 700
      PRINT #demo.gb1, "COLOR blue"
      PRINT #demo.gb1, "SIZE 2"
      PRINT #demo.gb1, "LINE "; 35; " "; 577; " "; 107; " "; 689
      PRINT #demo.gb1, "LINE "; 34; " "; 562; " "; 35; " "; 577
      PRINT #demo.gb1, "LINE "; 20; " "; 523; " "; 34; " "; 562
      PRINT #demo.gb1, "COLOR darkgreen"
      PRINT #demo.gb1, "SIZE 2"
      PRINT #demo.gb1, "LINE "; 16; " "; 526; " "; 31; " "; 510
      PRINT #demo.gb1, "COLOR brown"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 31; " "; 510; " "; 35; " "; 505
      PRINT #demo.gb1, "COLOR green"
      PRINT #demo.gb1, "LINE "; 36; " "; 504; " "; 58; " "; 486
      PRINT #demo.gb1, "LINE "; 58; " "; 486; " "; 72; " "; 470
      PRINT #demo.gb1, "LINE "; 72; " "; 470; " "; 80; " "; 454
      PRINT #demo.gb1, "LINE "; 80; " "; 454; " "; 82; " "; 415
      PRINT #demo.gb1, "LINE "; 82; " "; 415; " "; 84; " "; 335
      PRINT #demo.gb1, "LINE "; 84; " "; 335; " "; 87; " "; 318
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 87; " "; 318; " "; 92; " "; 250
      PRINT #demo.gb1, "LINE "; 92; " "; 250; " "; 100; " "; 203
      PRINT #demo.gb1, "LINE "; 100; " "; 203; " "; 114; " "; 155
      PRINT #demo.gb1, "LINE "; 114; " "; 155; " "; 118; " "; 135
      PRINT #demo.gb1, "COLOR brown"
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 118; " "; 135; " "; 533; " "; 33

      for c=1 to tree'draw trees
      read x,y
      PRINT #demo.gb1, "COLOR darkgreen"
      PRINT #demo.gb1, "LINE "; x; " "; y; " "; x+1; " "; y
      PRINT #demo.gb1, "CIRCLE 4"
      PRINT #demo.gb1, "CIRCLE 5"
      PRINT #demo.gb1, "CIRCLE 6"

      next c
      DATA 539, 634't1
      'draw pylon
      'for c=1 to pylon
      'read x,y
      'PRINT #demo.gb1, "COLOR darkcyan"
      'PRINT #demo.gb1, "LINE "; x-3; " "; y-4; " "; x+4; " "; y+4
      'PRINT #demo.gb1, "LINE "; x-3; " "; y+4; " "; x+4; " "; y-4
      'next c
      'PRINT #demo.gb1, "LINE "; 50; " "; 493; " "; 683; " "; 537
      'DATA 214, 503'p3
      'DATA 428, 518'p4- 17037 93611 WTP coords
      'DATA 673, 536'p5

      tp=24'draw tp
      for c=1 to tp
      read x,y
      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "LINE "; x; " "; y-1; " "; x; " "; y+1
      PRINT #demo.gb1, "LINE "; x-1; " "; y; " "; x+1; " "; y
      PRINT #demo.gb1, "CIRCLE 2"
      next c
      DATA 554, 616'tp1
      DATA 558, 603'tp2
      DATA 544, 587'tp3
      DATA 540, 560'tp4
      DATA 540, 526'tp5
      DATA 534, 50'tp a1
      DATA 467, 64'tp a2
      DATA 398, 77'tp a3
      DATA 342, 90'tp a4
      DATA 290, 99'tp a5
      DATA 535, 102'tp b1
      DATA 306, 171'tp b5
      DATA 537, 146'tp c1
      DATA 319, 233'tp c5
      DATA 334, 295'tp d5
      DATA 350, 374'tp e5
      DATA 426, 418'tp f4
      DATA 471, 444'tp g3

      DATA 381, 462'tp g5
      DATA 338, 505'tp h6
      DATA 288, 558'tp i7
      DATA 234, 597'tp j8
      DATA 177, 635'tp k9
      DATA 122, 674'tp m10
      PRINT #demo.gb1, "COLOR black"'TP Wires
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 290; " "; 99; " "; 306; " "; 171
      PRINT #demo.gb1, "LINE "; 319; " "; 233; " "; 306; " "; 171
      PRINT #demo.gb1, "LINE "; 319; " "; 233; " "; 334; " "; 295
      PRINT #demo.gb1, "LINE "; 350; " "; 374; " "; 334; " "; 295
      PRINT #demo.gb1, "LINE "; 350; " "; 374; " "; 426; " "; 418
      PRINT #demo.gb1, "LINE "; 471; " "; 444; " "; 426; " "; 418
      PRINT #demo.gb1, "LINE "; 381; " "; 462; " "; 426; " "; 418
      PRINT #demo.gb1, "LINE "; 381; " "; 462; " "; 338; " "; 505
      PRINT #demo.gb1, "LINE "; 288; " "; 558; " "; 338; " "; 505
      PRINT #demo.gb1, "LINE "; 288; " "; 558; " "; 234; " "; 597
      PRINT #demo.gb1, "LINE "; 177; " "; 635; " "; 234; " "; 597
      PRINT #demo.gb1, "LINE "; 177; " "; 635; " "; 122; " "; 674

      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 650; " "; 150; " "; 651; " "; 150'Compass

      PRINT #demo.gb1, "SIZE 2"
      'PRINT #demo.gb1, "LINE "; 20; " "; 150; " "; 80; " "; 150'-
      PRINT #demo.gb1, "LINE "; 40; " "; 30; " "; 40; " "; 130'|
      PRINT #demo.gb1, "LINE "; 40; " "; 30; " "; 30; " "; 70
      PRINT #demo.gb1, "LINE "; 40; " "; 30; " "; 50; " "; 70
      PRINT #demo.gb1, "LINE "; 40; " "; 30; " "; 35; " "; 70
      PRINT #demo.gb1, "LINE "; 40; " "; 30; " "; 45; " "; 70
      PRINT #demo.gb1, "LINE "; 30; " "; 70; " "; 50; " "; 70
      PRINT #demo.gb1, "SIZE 3"
      PRINT #demo.gb1, "LINE "; 30; " "; 80; " "; 30; " "; 110'N
      PRINT #demo.gb1, "LINE "; 50; " "; 80; " "; 50; " "; 110
      PRINT #demo.gb1, "LINE "; 30; " "; 80; " "; 50; " "; 110

      'PRINT #demo.gb1, "COLOR black"'Compass right
      'PRINT #demo.gb1, "SIZE 1"
      'PRINT #demo.gb1, "LINE "; 650; " "; 200; " "; 651; " "; 200
      'PRINT #demo.gb1, "CIRCLE 35"
      'PRINT #demo.gb1, "CIRCLE 45"
      'PRINT #demo.gb1, "SIZE 2"
      'PRINT #demo.gb1, "LINE "; 600; " "; 200; " "; 700; " "; 200
      'PRINT #demo.gb1, "LINE "; 650; " "; 40; " "; 650; " "; 250
      'PRINT #demo.gb1, "LINE "; 650; " "; 40; " "; 640; " "; 80
      'PRINT #demo.gb1, "LINE "; 650; " "; 40; " "; 660; " "; 80
      'PRINT #demo.gb1, "LINE "; 650; " "; 40; " "; 645; " "; 80
      'PRINT #demo.gb1, "LINE "; 650; " "; 40; " "; 655; " "; 80
      'PRINT #demo.gb1, "LINE "; 640; " "; 80; " "; 660; " "; 80
      'PRINT #demo.gb1, "SIZE 4"
      'PRINT #demo.gb1, "LINE "; 640; " "; 100; " "; 640; " "; 140'N
      'PRINT #demo.gb1, "LINE "; 660; " "; 100; " "; 660; " "; 140
      'PRINT #demo.gb1, "LINE "; 640; " "; 100; " "; 660; " "; 140

      PRINT #demo.gb1, "LINE "; 560; " "; 20; " "; 560; " "; 40'K
      PRINT #demo.gb1, "LINE "; 560; " "; 34; " "; 570; " "; 20
      PRINT #demo.gb1, "LINE "; 565; " "; 31; " "; 570; " "; 40
      PRINT #demo.gb1, "LINE "; 580; " "; 25; " "; 580; " "; 40'E
      PRINT #demo.gb1, "LINE "; 580; " "; 25; " "; 588; " "; 25
      PRINT #demo.gb1, "LINE "; 580; " "; 32; " "; 588; " "; 32
      PRINT #demo.gb1, "LINE "; 580; " "; 40; " "; 588; " "; 40
      PRINT #demo.gb1, "LINE "; 600; " "; 25; " "; 604; " "; 36'y
      PRINT #demo.gb1, "LINE "; 608; " "; 25; " "; 602; " "; 40
      PRINT #demo.gb1, "LINE "; 556; " "; 44; " "; 610; " "; 44'_
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 579; " "; 66; " "; 577; " "; 65'G
      PRINT #demo.gb1, "LINE "; 578; " "; 65; " "; 574; " "; 65
      PRINT #demo.gb1, "LINE "; 574; " "; 65; " "; 571; " "; 68
      PRINT #demo.gb1, "LINE "; 571; " "; 68; " "; 571; " "; 72
      PRINT #demo.gb1, "LINE "; 571; " "; 72; " "; 575; " "; 76
      PRINT #demo.gb1, "LINE "; 575; " "; 76; " "; 579; " "; 75
      PRINT #demo.gb1, "LINE "; 579; " "; 75; " "; 579; " "; 71
      PRINT #demo.gb1, "LINE "; 600; " "; 70; " "; 595; " "; 65'0
      PRINT #demo.gb1, "LINE "; 595; " "; 65; " "; 590; " "; 70
      PRINT #demo.gb1, "LINE "; 590; " "; 70; " "; 595; " "; 75
      PRINT #demo.gb1, "LINE "; 595; " "; 76; " "; 600; " "; 70
      PRINT #demo.gb1, "LINE "; 610; " "; 65; " "; 610; " "; 75'l
      PRINT #demo.gb1, "LINE "; 610; " "; 75; " "; 620; " "; 75
      PRINT #demo.gb1, "LINE "; 640; " "; 70; " "; 635; " "; 65'D
      PRINT #demo.gb1, "LINE "; 635; " "; 65; " "; 630; " "; 65
      PRINT #demo.gb1, "LINE "; 630; " "; 65; " "; 630; " "; 75
      PRINT #demo.gb1, "LINE "; 630; " "; 75; " "; 635; " "; 75
      PRINT #demo.gb1, "LINE "; 635; " "; 76; " "; 640; " "; 70
      PRINT #demo.gb1, "COLOR yellow"
      PRINT #demo.gb1, "LINE "; 553; " "; 70; " "; 554; " "; 70
      PRINT #demo.gb1, "SIZE 2"
      PRINT #demo.gb1, "CIRCLE 4"
      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "CIRCLE 5"
      PRINT #demo.gb1, "LINE "; 550; " "; 85; " "; 550; " "; 95'H
      PRINT #demo.gb1, "LINE "; 550; " "; 90; " "; 555; " "; 90
      PRINT #demo.gb1, "LINE "; 555; " "; 85; " "; 555; " "; 95
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 570; " "; 84; " "; 570; " "; 97'H
      PRINT #demo.gb1, "LINE "; 570; " "; 90; " "; 575; " "; 90
      PRINT #demo.gb1, "LINE "; 575; " "; 84; " "; 575; " "; 97
      PRINT #demo.gb1, "LINE "; 584; " "; 85; " "; 580; " "; 97'A
      PRINT #demo.gb1, "LINE "; 584; " "; 85; " "; 588; " "; 97
      PRINT #demo.gb1, "LINE "; 582; " "; 92; " "; 588; " "; 92
      PRINT #demo.gb1, "LINE "; 594; " "; 85; " "; 590; " "; 97'M
      PRINT #demo.gb1, "LINE "; 594; " "; 85; " "; 598; " "; 92
      PRINT #demo.gb1, "LINE "; 598; " "; 92; " "; 602; " "; 85
      PRINT #demo.gb1, "LINE "; 602; " "; 85; " "; 604; " "; 97
      PRINT #demo.gb1, "LINE "; 614; " "; 85; " "; 610; " "; 97'M
      PRINT #demo.gb1, "LINE "; 614; " "; 85; " "; 618; " "; 92
      PRINT #demo.gb1, "LINE "; 618; " "; 92; " "; 622; " "; 85
      PRINT #demo.gb1, "LINE "; 622; " "; 85; " "; 624; " "; 97
      PRINT #demo.gb1, "LINE "; 629; " "; 85; " "; 629; " "; 97'E
      PRINT #demo.gb1, "LINE "; 629; " "; 85; " "; 635; " "; 85
      PRINT #demo.gb1, "LINE "; 629; " "; 90; " "; 635; " "; 90
      PRINT #demo.gb1, "LINE "; 629; " "; 97; " "; 635; " "; 97
      PRINT #demo.gb1, "LINE "; 643; " "; 85; " "; 643; " "; 97'R
      PRINT #demo.gb1, "LINE "; 643; " "; 85; " "; 649; " "; 85
      PRINT #demo.gb1, "LINE "; 649; " "; 85; " "; 649; " "; 90
      PRINT #demo.gb1, "LINE "; 649; " "; 90; " "; 643; " "; 90
      PRINT #demo.gb1, "LINE "; 647; " "; 90; " "; 651; " "; 97
      PRINT #demo.gb1, "LINE "; 659; " "; 85; " "; 659; " "; 97'E
      PRINT #demo.gb1, "LINE "; 659; " "; 85; " "; 665; " "; 85
      PRINT #demo.gb1, "LINE "; 659; " "; 90; " "; 665; " "; 90
      PRINT #demo.gb1, "LINE "; 659; " "; 97; " "; 665; " "; 97
      PRINT #demo.gb1, "LINE "; 670; " "; 85; " "; 670; " "; 97'D
      PRINT #demo.gb1, "LINE "; 670; " "; 85; " "; 675; " "; 85
      PRINT #demo.gb1, "LINE "; 675; " "; 85; " "; 680; " "; 90
      PRINT #demo.gb1, "LINE "; 680; " "; 90; " "; 675; " "; 97
      PRINT #demo.gb1, "LINE "; 675; " "; 97; " "; 670; " "; 97
      '
      PRINT #demo.gb1, "LINE "; 553; " "; 114; " "; 554; " "; 114
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "CIRCLE 2"
      PRINT #demo.gb1, "LINE "; 577; " "; 107; " "; 576; " "; 106'S
      PRINT #demo.gb1, "LINE "; 576; " "; 106; " "; 574; " "; 106
      PRINT #demo.gb1, "LINE "; 576; " "; 106; " "; 573; " "; 107
      PRINT #demo.gb1, "LINE "; 573; " "; 107; " "; 572; " "; 108
      PRINT #demo.gb1, "LINE "; 572; " "; 108; " "; 572; " "; 110
      PRINT #demo.gb1, "LINE "; 572; " "; 110; " "; 575; " "; 111
      PRINT #demo.gb1, "LINE "; 575; " "; 111; " "; 577; " "; 113
      PRINT #demo.gb1, "LINE "; 577; " "; 113; " "; 577; " "; 115
      PRINT #demo.gb1, "LINE "; 578; " "; 115; " "; 576; " "; 117
      PRINT #demo.gb1, "LINE "; 576; " "; 117; " "; 575; " "; 119
      PRINT #demo.gb1, "LINE "; 575; " "; 119; " "; 573; " "; 119
      PRINT #demo.gb1, "LINE "; 573; " "; 119; " "; 570; " "; 117
      PRINT #demo.gb1, "LINE "; 584; " "; 109; " "; 584; " "; 119'i
      PRINT #demo.gb1, "LINE "; 588; " "; 109; " "; 588; " "; 119'l
      PRINT #demo.gb1, "LINE "; 588; " "; 119; " "; 594; " "; 119
      PRINT #demo.gb1, "LINE "; 598; " "; 109; " "; 602; " "; 119'v
      PRINT #demo.gb1, "LINE "; 602; " "; 119; " "; 606; " "; 109
      PRINT #demo.gb1, "LINE "; 610; " "; 109; " "; 610; " "; 119'E
      PRINT #demo.gb1, "LINE "; 610; " "; 109; " "; 616; " "; 109
      PRINT #demo.gb1, "LINE "; 610; " "; 115; " "; 616; " "; 115
      PRINT #demo.gb1, "LINE "; 610; " "; 119; " "; 616; " "; 119
      PRINT #demo.gb1, "LINE "; 623; " "; 109; " "; 623; " "; 119'R
      PRINT #demo.gb1, "LINE "; 623; " "; 109; " "; 629; " "; 109
      PRINT #demo.gb1, "LINE "; 629; " "; 109; " "; 629; " "; 113
      PRINT #demo.gb1, "LINE "; 629; " "; 113; " "; 623; " "; 113
      PRINT #demo.gb1, "LINE "; 627; " "; 113; " "; 631; " "; 119
      '
      PRINT #demo.gb1, "COLOR brown"
      PRINT #demo.gb1, "LINE "; 553; " "; 144; " "; 554; " "; 144
      PRINT #demo.gb1, "SIZE 2"
      PRINT #demo.gb1, "CIRCLE 2"
      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 579; " "; 142; " "; 577; " "; 140'C
      PRINT #demo.gb1, "LINE "; 578; " "; 140; " "; 574; " "; 140
      PRINT #demo.gb1, "LINE "; 574; " "; 140; " "; 571; " "; 143
      PRINT #demo.gb1, "LINE "; 571; " "; 143; " "; 571; " "; 146
      PRINT #demo.gb1, "LINE "; 571; " "; 146; " "; 574; " "; 148
      PRINT #demo.gb1, "LINE "; 574; " "; 148; " "; 577; " "; 148
      PRINT #demo.gb1, "LINE "; 578; " "; 148; " "; 580; " "; 146

      PRINT #demo.gb1, "LINE "; 600; " "; 145; " "; 595; " "; 140'0
      PRINT #demo.gb1, "LINE "; 595; " "; 140; " "; 590; " "; 145
      PRINT #demo.gb1, "LINE "; 590; " "; 145; " "; 595; " "; 150
      PRINT #demo.gb1, "LINE "; 595; " "; 150; " "; 600; " "; 145

      PRINT #demo.gb1, "LINE "; 605; " "; 140; " "; 605; " "; 150'P
      PRINT #demo.gb1, "LINE "; 605; " "; 140; " "; 611; " "; 140
      PRINT #demo.gb1, "LINE "; 611; " "; 140; " "; 611; " "; 145
      PRINT #demo.gb1, "LINE "; 611; " "; 145; " "; 605; " "; 145

      PRINT #demo.gb1, "LINE "; 615; " "; 140; " "; 615; " "; 150'p
      PRINT #demo.gb1, "LINE "; 615; " "; 140; " "; 621; " "; 140
      PRINT #demo.gb1, "LINE "; 621; " "; 140; " "; 621; " "; 145
      PRINT #demo.gb1, "LINE "; 621; " "; 145; " "; 615; " "; 145

      PRINT #demo.gb1, "LINE "; 625; " "; 140; " "; 625; " "; 150'E
      PRINT #demo.gb1, "LINE "; 625; " "; 140; " "; 631; " "; 140
      PRINT #demo.gb1, "LINE "; 625; " "; 145; " "; 631; " "; 145
      PRINT #demo.gb1, "LINE "; 625; " "; 150; " "; 631; " "; 150

      PRINT #demo.gb1, "LINE "; 633; " "; 140; " "; 633; " "; 150'R
      PRINT #demo.gb1, "LINE "; 633; " "; 140; " "; 639; " "; 140
      PRINT #demo.gb1, "LINE "; 639; " "; 140; " "; 639; " "; 145
      PRINT #demo.gb1, "LINE "; 639; " "; 145; " "; 633; " "; 145
      PRINT #demo.gb1, "LINE "; 637; " "; 145; " "; 641; " "; 150
      '
      PRINT #demo.gb1, "COLOR green"
      PRINT #demo.gb1, "LINE "; 553; " "; 164; " "; 555; " "; 164
      PRINT #demo.gb1, "LINE "; 554; " "; 163; " "; 554; " "; 165
      PRINT #demo.gb1, "SIZE 2"

      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 576; " "; 160; " "; 576; " "; 172'B
      PRINT #demo.gb1, "LINE "; 576; " "; 160; " "; 580; " "; 161
      PRINT #demo.gb1, "LINE "; 580; " "; 161; " "; 580; " "; 164
      PRINT #demo.gb1, "LINE "; 580; " "; 164; " "; 578; " "; 166
      PRINT #demo.gb1, "LINE "; 576; " "; 165; " "; 580; " "; 166
      PRINT #demo.gb1, "LINE "; 580; " "; 166; " "; 582; " "; 167
      PRINT #demo.gb1, "LINE "; 582; " "; 167; " "; 582; " "; 170
      PRINT #demo.gb1, "LINE "; 582; " "; 170; " "; 580; " "; 172
      PRINT #demo.gb1, "LINE "; 576; " "; 172; " "; 580; " "; 172

      PRINT #demo.gb1, "LINE "; 593; " "; 160; " "; 593; " "; 170'R
      PRINT #demo.gb1, "LINE "; 593; " "; 160; " "; 599; " "; 160
      PRINT #demo.gb1, "LINE "; 599; " "; 160; " "; 599; " "; 165
      PRINT #demo.gb1, "LINE "; 599; " "; 165; " "; 593; " "; 165
      PRINT #demo.gb1, "LINE "; 597; " "; 165; " "; 601; " "; 170

      PRINT #demo.gb1, "LINE "; 615; " "; 165; " "; 610; " "; 160'0
      PRINT #demo.gb1, "LINE "; 610; " "; 160; " "; 605; " "; 165
      PRINT #demo.gb1, "LINE "; 605; " "; 165; " "; 610; " "; 170
      PRINT #demo.gb1, "LINE "; 610; " "; 170; " "; 615; " "; 165

      PRINT #demo.gb1, "LINE "; 620; " "; 160; " "; 620; " "; 170'N
      PRINT #demo.gb1, "LINE "; 630; " "; 160; " "; 630; " "; 170
      PRINT #demo.gb1, "LINE "; 620; " "; 160; " "; 630; " "; 170

      PRINT #demo.gb1, "LINE "; 640; " "; 160; " "; 650; " "; 160'Z
      PRINT #demo.gb1, "LINE "; 650; " "; 160; " "; 640; " "; 170
      PRINT #demo.gb1, "LINE "; 640; " "; 170; " "; 650; " "; 170

      PRINT #demo.gb1, "LINE "; 665; " "; 160; " "; 665; " "; 170'E
      PRINT #demo.gb1, "LINE "; 665; " "; 160; " "; 671; " "; 160
      PRINT #demo.gb1, "LINE "; 665; " "; 165; " "; 671; " "; 165
      PRINT #demo.gb1, "LINE "; 665; " "; 170; " "; 671; " "; 170

      PRINT #demo.gb1, "COLOR blue"
      PRINT #demo.gb1, "LINE "; 542; " "; 184; " "; 547; " "; 184
      PRINT #demo.gb1, "LINE "; 544; " "; 182; " "; 544; " "; 187
      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "LINE "; 570; " "; 180; " "; 570; " "; 190'L
      PRINT #demo.gb1, "LINE "; 570; " "; 190; " "; 578; " "; 190
      PRINT #demo.gb1, "LINE "; 585; " "; 182; " "; 585; " "; 190'E
      PRINT #demo.gb1, "LINE "; 585; " "; 182; " "; 591; " "; 182
      PRINT #demo.gb1, "LINE "; 585; " "; 185; " "; 591; " "; 185
      PRINT #demo.gb1, "LINE "; 585; " "; 190; " "; 591; " "; 190
      PRINT #demo.gb1, "LINE "; 600; " "; 182; " "; 596; " "; 190'A
      PRINT #demo.gb1, "LINE "; 600; " "; 182; " "; 604; " "; 190
      PRINT #demo.gb1, "LINE "; 598; " "; 187; " "; 604; " "; 187
      PRINT #demo.gb1, "LINE "; 610; " "; 182; " "; 610; " "; 190'D
      PRINT #demo.gb1, "LINE "; 610; " "; 182; " "; 615; " "; 182
      PRINT #demo.gb1, "LINE "; 615; " "; 182; " "; 620; " "; 186
      PRINT #demo.gb1, "LINE "; 620; " "; 186; " "; 615; " "; 190
      PRINT #demo.gb1, "LINE "; 615; " "; 190; " "; 610; " "; 190

      PRINT #demo.gb1, "COLOR black"
      PRINT #demo.gb1, "SIZE 2"
      PRINT #demo.gb1, "LINE "; 70; " "; 24; " "; 70; " "; 36'H
      PRINT #demo.gb1, "LINE "; 80; " "; 24; " "; 80; " "; 36
      PRINT #demo.gb1, "LINE "; 70; " "; 30; " "; 80; " "; 30

      PRINT #demo.gb1, "LINE "; 99; " "; 26; " "; 97; " "; 25'G
      PRINT #demo.gb1, "LINE "; 98; " "; 25; " "; 94; " "; 25
      PRINT #demo.gb1, "LINE "; 94; " "; 25; " "; 91; " "; 28
      PRINT #demo.gb1, "LINE "; 91; " "; 28; " "; 91; " "; 32
      PRINT #demo.gb1, "LINE "; 91; " "; 32; " "; 95; " "; 36
      PRINT #demo.gb1, "LINE "; 95; " "; 36; " "; 99; " "; 35
      PRINT #demo.gb1, "LINE "; 99; " "; 35; " "; 99; " "; 31

      PRINT #demo.gb1, "LINE "; 105; " "; 26; " "; 105; " "; 36' F
      PRINT #demo.gb1, "LINE "; 105; " "; 26; " "; 111; " "; 26
      PRINT #demo.gb1, "LINE "; 105; " "; 30; " "; 111; " "; 30

      PRINT #demo.gb1, "LINE "; 125; " "; 26; " "; 128; " "; 36' V
      PRINT #demo.gb1, "LINE "; 128; " "; 36; " "; 134; " "; 26
      PRINT #demo.gb1, "SIZE 1"
      PRINT #demo.gb1, "LINE "; 68; " "; 40; " "; 136; " "; 40


      '-------------------------------- MM Plots --------------

      p$=" black"
      gleft=16000
      gright=16720
      gwide=gright-gleft
      gtop=93560
      gbottom=92570
      gdown=gtop-gbottom

      mleft=0
      mright=200
      mwide=mright-mleft
      mtop=0
      mbottom=250
      mdown=mtop-mbottom

      pleft=0
      pright=425
      pwide=pright-pleft
      ptop=0
      pbottom=550
      pdown=pbottom

      mmp=1

      'draw mplots
      for f=1 to mmp
      read type,mw,mn
      mx=mw
      my=mtop-(mn +1)
      mpx=int((pwide/mwide)*mw)
      mpy=int((my*pbottom/mdown))
      PRINT #demo.st1, "mpx=";mpx;" mpy= ";mpy;" ";"mn = ";mn
      PRINT #demo.gb1, "SIZE 1"
      p$="COLOR"+p$
      if type=0 then PRINT #demo.gb1, "LINE "; mpx-3; " "; mpy; " "; mpx+3; " "; mpy
      if type=0 then PRINT #demo.gb1, "LINE "; mpx; " "; mpy-3; " "; mpx; " "; mpy+3
      if type=1 then PRINT #demo.gb1, "SIZE 2"
      if type=1 then PRINT #demo.gb1, "COLOR brown"
      if type=1 then PRINT #demo.gb1, "LINE "; mpx-1; " "; mpy-1; " "; mpx+1; " "; mpy+1
      if type=1 then PRINT #demo.gb1, "CIRCLE 3"
      if type=2 then PRINT #demo.gb1, "COLOR black"
      if type=2 then PRINT #demo.gb1, "LINE "; mpx-1; " "; mpy-1; " "; mpx+1; " "; mpy+1
      if type=2 then PRINT #demo.gb1, "CIRCLE 3"
      if type=9 then PRINT #demo.gb1, "LINE "; mpx-1; " "; mpy-1; " "; mpx+1; " "; mpy+1
      if type=9 then PRINT #demo.gb1, "CIRCLE 10"
      if type=9 then PRINT #demo.gb1, "CIRCLE 15"
      if type=9 then PRINT #demo.gb1, "CIRCLE 25"
      next f

      'gosub [grida]

      'Dot at N point (Keep)
      DATA 0, 306, 16'

      '------------------------ finds ------------
      p$=" black"
      gleft=16000
      gright=16800
      gwide=gright-gleft
      gtop=93600
      gbottom=92550
      gdown=gtop-gbottom

      mleft=0
      mright=200
      mwide=mright-mleft
      mtop=0
      mbottom=250
      mdown=mtop-mbottom

      pleft=0
      pright=600
      pwide=pright-pleft
      ptop=0
      pbottom=750
      pdown=pbottom

      corrfinds=17'93

      'draw corrected position finds
      for cf=1 to corrfinds
      read type,gw,gn
      'gw=gw+96
      'gn=gn-477
      gx=(gw-gleft)
      gy=gtop-(gn)

      gpx=int((gx*pwide/gwide))
      gpy=int((gy*pbottom/gdown))
      PRINT #demo.st1, "gpx=";gpx;" gpy= ";gpy;" ";"gn = ";gn
      PRINT #demo.gb1, "SIZE 1"
      p$="COLOR"+p$
      if type=0 then PRINT #demo.gb1, "LINE "; gpx-3; " "; gpy; " "; gpx+3; " "; gpy
      if type=0 then PRINT #demo.gb1, "LINE "; gpx; " "; gpy-3; " "; gpx; " "; gpy+3

      if type=1 then PRINT #demo.gb1, "SIZE 2"
      if type=1 then PRINT #demo.gb1, "COLOR brown"
      if type=1 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=1 then PRINT #demo.gb1, "CIRCLE 3"

      if type=2 then PRINT #demo.gb1, "COLOR black"
      if type=2 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=2 then PRINT #demo.gb1, "CIRCLE 3"
      if type=9 then PRINT #demo.gb1, "COLOR black"
      if type=9 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=9 then PRINT #demo.gb1, "CIRCLE 10"
      if type=9 then PRINT #demo.gb1, "CIRCLE 20"
      if type=9 then PRINT #demo.gb1, "CIRCLE 30"
      next cf


      finds=0' Put to 10 to include uncorrected 2012 finds

      'draw finds
      for f=1 to finds
      read type,gw,gn
      gw=gw+96
      gn=gn-477
      gx=(gw-gleft)
      gy=gtop-(gn)

      gpx=int((gx*pwide/gwide))
      gpy=int((gy*pbottom/gdown))
      PRINT #demo.st1, "gpx=";gpx;" gpy= ";gpy;" ";"gn = ";gn
      PRINT #demo.gb1, "SIZE 1"
      p$="COLOR"+p$
      if type=0 then PRINT #demo.gb1, "LINE "; gpx-3; " "; gpy; " "; gpx+3; " "; gpy
      if type=0 then PRINT #demo.gb1, "LINE "; gpx; " "; gpy-3; " "; gpx; " "; gpy+3

      if type=1 then PRINT #demo.gb1, "SIZE 2"
      if type=1 then PRINT #demo.gb1, "COLOR brown"
      if type=1 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=1 then PRINT #demo.gb1, "CIRCLE 3"

      if type=2 then PRINT #demo.gb1, "COLOR black"
      if type=2 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=2 then PRINT #demo.gb1, "CIRCLE 3"
      if type=9 then PRINT #demo.gb1, "COLOR black"
      if type=9 then PRINT #demo.gb1, "LINE "; gpx-1; " "; gpy-1; " "; gpx+1; " "; gpy+1
      if type=9 then PRINT #demo.gb1, "CIRCLE 10"
      if type=9 then PRINT #demo.gb1, "CIRCLE 20"
      if type=9 then PRINT #demo.gb1, "CIRCLE 30"
      next f

      '
      'DATA 9, 16601, 93903'test point
      '------- Finds Corrected position -------

      '29 Sep '93
      DATA 0, 16342, 92663'Copper Bung
      DATA 1, 16419, 92662'Hammered Silver
      DATA 1, 16464, 92674'Jetton
      DATA 1, 16345, 93442'G 1/4d
      DATA 0, 16325, 93445'Copper Bung

      '6 Oct '93
      DATA 0, 16616, 92944'Disk
      DATA 0, 16615, 92905'L buckle
      DATA 0, 16497, 92779'Cruciform fitting
      DATA 0, 16480, 92784'button
      DATA 1, 16466, 92790'G III 1/2d 1806
      DATA 0, 16665, 92865'Bullet Shape
      DATA 9, 16328, 92661'Spur Fitting

      '21 Oct '93
      DATA 0, 16485, 93475'Shoe Bow
      DATA 0, 16275, 92345'Print Plate
      DATA 1, 16156, 93386' V I 1/2d 1880
      DATA 0, 16156, 93401'Bullet Shape
      DATA 0, 16140, 93310'Falcon Bell

      '27 Aug '94
      DATA 0, 16130, 93136'Disk
      DATA 0, 16045, 92865'Disk

      '29 Sep '94
      DATA 0, 16725, 92733'Royal Artillery Cap Badge estimated position, redo with wtp

      '06 Oct '94
      DATA 0, 16731, 92735'Thimble
      DATA 0, 16724, 92747'Key rim
      DATA 0, 16727, 92736'spoon copper
      DATA 0, 16725, 92755'Harness buckle
      DATA 1, 16706, 92723'G III 1d

      '27 Oct '94
      DATA 0, 16545, 92705'button
      DATA 0, 16115, 92705'disk
      DATA 0, 16037, 92858'fitting
      DATA 0, 16120, 93001'Print Plate
      DATA 0, 16119, 92991'button
      DATA 0, 16121, 93002'button

      '3 Nov '94
      DATA 0, 16034, 92879'button
      DATA 0, 16031, 92868'button
      DATA 1, 16038, 92879'V 1d 1892
      DATA 0, 16117, 93013'button
      DATA 0, 16045, 92877'Copper Tally 581
      DATA 0, 16061, 92885'buckle
      DATA 0, 16066, 92891'button copper



      'Uncorrected gps co-ords finds data

      '20 Sep 12
      DATA 0, 16601, 93903'4 h r button
      DATA 0, 16597, 93888'strap buckle
      DATA 0, 16575, 93824'4 h r button
      DATA 0, 16546, 93815'Keyhole plate Lg
      DATA 0, 16545, 93810'4 h r button
      DATA 0, 16488, 93786'Hair Pin ?
      DATA 0, 16458, 93781'blob ?

      '22 Sep 12
      DATA 0, 16627, 93220'bullet case sm
      '
      '03 May 13
      DATA 0, 16069, 93880'button
      DATA 0, 16348, 93964'leaf
      '
      'DATA 9, 16715, 93385'** edge data from wtp **
      'DATA 9, 16789, 94077' HEdge
      'DATA 9, 16820, 94116' HEdge *** End data ****


      print #demo.gb1, "flush"
      'Save drawing
      print #demo.gb1, "getbmp drawing 1 1 801 757"
      bmpsave "drawing", "Field_Plot_HGF_V-Finds1993-7c.bmp"


      'Longer pause
      for c=1 to 2
      GOSUB [delay]
      next c
      PRINT #demo.st1, "*.bmp saved"
      'Longer pause
      for del=1 to 2
      GOSUB [delay]
      next del
      PRINT #demo.gb1, "DISABLE" 'Don't allow any further input!
      PRINT #demo.st1, "Press Quit to end. "

      WAIT
      [quit]
      CLOSE #demo
      END

      [delay]
      TIMER 900, [cont] 'More is longer
      WAIT
      [cont]
      TIMER 0
      RETURN

      [grida]'------------------ grid a -----
      PRINT #demo.gb1, "COLOR red"
      PRINT #demo.gb1, "SIZE 1"
      for g=1 to 601 step 50
      PRINT #demo.gb1, "LINE "; g; " "; 0; " "; g; " "; 742'grid1
      next g
      for g=1 to 701 step 50
      PRINT #demo.gb1, "LINE "; 0; " "; g; " "; 601; " "; g
      next g
      return

      '-------------------------------------------
      b32=x
      c32=b32+95
      d24=16692
      d32=c32-d24
      f26=841
      d26=60
      l26=f26-d26
      f24=17440
      l24=f24-d24
      g32=102

      f32=int(l26/l24*d32)+g32

      x=x+corx
      y=y+cory
      'PRINT #demo.st1, "x+ corx=";x;" y+cory= ";y;
      x=x-gleft
      y=y-gbottom
      PRINT #demo.st1, "x-gleft = ";x;" y-gbottom = ";y;" down = ";down;" gheight = ";gheight;" gbottom = ";gbottom
      x1=(pixwide/gwidth)*x
      x1=int(x1+pixoffset)
      x1=f32
      yy=(down/gheight)*y
      yy=int(pixlow-yy)
      x1=x1-9
      yy=yy-5

      DATA 9, 17500, 94100'dummy

      ----------Code end -------------------------



      --- In libertybasic@yahoogroups.com, Stefan Pendl <pendl2megabit@...> wrote:
      >
      > Am 16.05.2013 23:52, schrieb Ivor:
      > > Hi folks,
      > > Is there an easy way of printing into an area where graphics is taking place ? Basically, I am drawing a map, but want to add a key legend down the side. I have been using the line command, to draw the letters, but that is rather crude and wondered if there was an easier way of doing it that I had missed in the tutorials.
      > >
      >
      > Would be good to post runable code ;-)
      >
      >
      > '---code start (watch for line wraps)
      >
      > 'To print KEY underlined
      > NOMAINWIN
      > WindowWidth=840
      > WindowHeight=838
      > UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
      > UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
      > GRAPHICBOX #demo.gb1, 1, 1, 801, 753
      > STATICTEXT #demo.st1, msg1$, 25, 758, 760, 14
      > BUTTON #demo.btn1, "Draw", [drawLine], LL, 200, 3, 50, 23
      > BUTTON #demo.btn2, "Quit", [quit], LL, 640, 2, 100, 23
      > open "test" for window as #demo
      > #demo "trapclose [quit]"
      > #demo.gb1 "down"
      >
      > ' I think I have all the parameters needed
      > ' The result should be KEY underlined in top right corner of the graphic
      > area.
      > PRINT #demo.gb1, "font times_new_roman 20 bold underscore italic"
      > #demo.gb1 "place 600 30"
      > PRINT #demo.gb1, "\Key"
      >
      > wait
      >
      > [quit]
      > close #demo
      > end
      >
      > '---code end
      >
      > --
      > Stefan Pendl
      > http://stefanpendl.runbasichosting.com/
      >
      > LB 4.04 Pro ... http://www.libertybasic.com/assist.html
      > LB 4.04 ....... http://www.libertybasic.com/lb404setup.exe
      >
      > LB Community Wiki .............. http://basic.wikispaces.com/
      > LB Programmer's Encyclopedia ... http://lbpe.wikispaces.com/
      > LB Bug Tracker ................. http://libertybasicbugs.wikispaces.com/
      >
      > Books at http://www.lulu.com/ and http://www.amazon.com/
      > Alyce Watson ... APIs for Liberty BASIC
      > Carl Gundel .... Beginning Programming with Liberty BASIC
      >
      > Windows 7 Home Premium 64-bit SP1
      > AMD Turion X2 RM-70 2GHz, 4GB RAM
      >
    • Stefan Pendl
      ... Ivor, I was not requesting the entire listing, I was just requesting to post code that can be run without any changes. The solution is no trick, it is how
      Message 2 of 8 , May 19, 2013
      • 0 Attachment
        Am 20.05.2013 03:54, schrieb Ivor:
        > Hi Rod and Stefan,
        > Complete code list as follows, but I will be able to condense it with Stefan's neat print trick. The code was amended from the LINE demo supplied by Welo, parts of the redundant elements still in there.
        > (Error Note: The draw button and quit button get overwritten by a space command until the mouse cursor goes over them, not sure why this is).
        >

        Ivor,

        I was not requesting the entire listing, I was just requesting to post
        code that can be run without any changes.

        The solution is no trick, it is how graphics text is created.

        The help file section about graphics commands is listing that too.


        --
        Stefan Pendl
        http://stefanpendl.runbasichosting.com/

        LB 4.04 Pro ... http://www.libertybasic.com/assist.html
        LB 4.04 ....... http://www.libertybasic.com/lb404setup.exe

        LB Community Wiki .............. http://basic.wikispaces.com/
        LB Programmer's Encyclopedia ... http://lbpe.wikispaces.com/
        LB Bug Tracker ................. http://libertybasicbugs.wikispaces.com/

        Books at http://www.lulu.com/ and http://www.amazon.com/
        Alyce Watson ... APIs for Liberty BASIC
        Carl Gundel .... Beginning Programming with Liberty BASIC

        Windows 7 Home Premium 64-bit SP1
        AMD Turion X2 RM-70 2GHz, 4GB RAM
      • Ivor
        HI Stefan, I was hoping that there was a simple method, I must have just missed it on my read through of the help section. Thanks again , both. Ivor Cogdell
        Message 3 of 8 , May 20, 2013
        • 0 Attachment
          HI Stefan,
          I was hoping that there was a simple method, I must have just missed it on my read through of the help section. Thanks again , both.

          Ivor Cogdell

          --- In libertybasic@yahoogroups.com, Stefan Pendl <pendl2megabit@...> wrote:
          >
          > Am 20.05.2013 03:54, schrieb Ivor:
          > > Hi Rod and Stefan,
          > > Complete code list as follows, but I will be able to condense it with Stefan's neat print trick. The code was amended from the LINE demo supplied by Welo, parts of the redundant elements still in there.
          > > (Error Note: The draw button and quit button get overwritten by a space command until the mouse cursor goes over them, not sure why this is).
          > >
          >
          > Ivor,
          >
          > I was not requesting the entire listing, I was just requesting to post
          > code that can be run without any changes.
          >
          > The solution is no trick, it is how graphics text is created.
          >
          > The help file section about graphics commands is listing that too.
          >
          >
          > --
          > Stefan Pendl
          > http://stefanpendl.runbasichosting.com/
          >
          > LB 4.04 Pro ... http://www.libertybasic.com/assist.html
          > LB 4.04 ....... http://www.libertybasic.com/lb404setup.exe
          >
          > LB Community Wiki .............. http://basic.wikispaces.com/
          > LB Programmer's Encyclopedia ... http://lbpe.wikispaces.com/
          > LB Bug Tracker ................. http://libertybasicbugs.wikispaces.com/
          >
          > Books at http://www.lulu.com/ and http://www.amazon.com/
          > Alyce Watson ... APIs for Liberty BASIC
          > Carl Gundel .... Beginning Programming with Liberty BASIC
          >
          > Windows 7 Home Premium 64-bit SP1
          > AMD Turion X2 RM-70 2GHz, 4GB RAM
          >
        • Stefan Pendl
          ... Ivor, if you check out the examples shipping with JB, you should find some with the ability to display text in the graphics area. -- Stefan Pendl
          Message 4 of 8 , May 20, 2013
          • 0 Attachment
            Am 20.05.2013 16:59, schrieb Ivor:
            > HI Stefan,
            > I was hoping that there was a simple method, I must have just missed it on my read through of the help section. Thanks again , both.
            >

            Ivor,

            if you check out the examples shipping with JB, you should find some
            with the ability to display text in the graphics area.


            --
            Stefan Pendl
            http://stefanpendl.runbasichosting.com/

            LB 4.04 Pro ... http://www.libertybasic.com/assist.html
            LB 4.04 ....... http://www.libertybasic.com/lb404setup.exe

            LB Community Wiki .............. http://basic.wikispaces.com/
            LB Programmer's Encyclopedia ... http://lbpe.wikispaces.com/
            LB Bug Tracker ................. http://libertybasicbugs.wikispaces.com/

            Books at http://www.lulu.com/ and http://www.amazon.com/
            Alyce Watson ... APIs for Liberty BASIC
            Carl Gundel .... Beginning Programming with Liberty BASIC

            Windows 7 Home Premium 64-bit SP1
            AMD Turion X2 RM-70 2GHz, 4GB RAM
          • Stefan Pendl
            ... One last note: the official support forum of JB is at http://justbasic.conforums.com/index.cgi ;-) -- Stefan Pendl http://stefanpendl.runbasichosting.com/
            Message 5 of 8 , May 20, 2013
            • 0 Attachment
              Am 20.05.2013 16:59, schrieb Ivor:
              > HI Stefan,
              > I was hoping that there was a simple method, I must have just missed it on my read through of the help section. Thanks again , both.
              >

              One last note: the official support forum of JB is at
              http://justbasic.conforums.com/index.cgi ;-)


              --
              Stefan Pendl
              http://stefanpendl.runbasichosting.com/

              LB 4.04 Pro ... http://www.libertybasic.com/assist.html
              LB 4.04 ....... http://www.libertybasic.com/lb404setup.exe

              LB Community Wiki .............. http://basic.wikispaces.com/
              LB Programmer's Encyclopedia ... http://lbpe.wikispaces.com/
              LB Bug Tracker ................. http://libertybasicbugs.wikispaces.com/

              Books at http://www.lulu.com/ and http://www.amazon.com/
              Alyce Watson ... APIs for Liberty BASIC
              Carl Gundel .... Beginning Programming with Liberty BASIC

              Windows 7 Home Premium 64-bit SP1
              AMD Turion X2 RM-70 2GHz, 4GB RAM
            Your message has been successfully submitted and would be delivered to recipients shortly.