home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / draw1.bas < prev    next >
BASIC Source File  |  1992-10-01  |  4KB  |  150 lines
  1.  
  2.     nomainwin
  3.  
  4.     lineThickness$ = "1"
  5.  
  6.     menu #1, &Object, &Line, [setForLine], &Ellipse, [setForEllipse], &Box, [setForBox]
  7.     menu #1, &Color, &Red, [colorRed], &Yellow, [colorYellow], &Green, [colorGreen], &Blue, [colorBlue]
  8.     menu #1, &Drawing, "&Line Thickness", [lineThickness], "&Print", [printIt]
  9.  
  10.     bmpbutton #1, "redbttn.bmp", [colorRed], UL, 5, 5
  11.     bmpbutton #1, "yllwbttn.bmp", [colorYellow], UL, 40, 5
  12.     bmpbutton #1, "grnbttn.bmp", [colorGreen], UL, 75, 5
  13.     bmpbutton #1, "bluebttn.bmp", [colorBlue], UL, 110, 5
  14.     bmpbutton #1, "circbttn.bmp", [setForEllipse], UR, 40, 5
  15.     bmpbutton #1, "sqrbttn.bmp", [setForBox], UR, 5, 5
  16.     bmpbutton #1, "linebttn.bmp", [setForLine], UR, 75, 5
  17.  
  18.     open "Liberty Draw" for graphics_nsb as #1
  19.     print #1, "when leftButtonDown [startDraw]"
  20.     print #1, "when rightButtonUp [cls]"
  21.     print #1, "down"
  22.     print #1, "color black"
  23.     goto [setForLine]
  24.  
  25. [inputLoop]
  26.     input r$
  27.     goto [inputLoop]
  28.  
  29. [startDraw]
  30.     startX = MouseX
  31.     startY = MouseY
  32.     print #1, "place "; startX; " "; startY
  33.     goto [inputLoop]
  34.  
  35. [firstLine]
  36.     print #1, "when leftButtonMove [trackLine]"
  37.     print #1, "line "; startX; " "; startY; " "; MouseX; " "; MouseY
  38.     oMouseY = MouseY
  39.     oMouseX = MouseX
  40.     goto [inputLoop]
  41.  
  42. [firstFrame]
  43.     print #1, "when leftButtonMove [trackBox]"
  44.     print #1, "box "; MouseX; " "; MouseY
  45.     oMouseY = MouseY
  46.     oMouseX = MouseX
  47.     goto [inputLoop]
  48.  
  49. [trackBox]
  50.     print #1, "color white"
  51.     print #1, "box "; oMouseX; " "; oMouseY
  52.     print #1, "color black"
  53.     print #1, "place "; startX; " "; startY
  54.     print #1, "box "; MouseX; " "; MouseY
  55.     oMouseY = MouseY
  56.     oMouseX = MouseX
  57.     goto [inputLoop]
  58.  
  59. [trackLine]
  60.     print #1, "color white"
  61.     print #1, "line "; startX; " "; startY; " "; oMouseX; " "; oMouseY
  62.     print #1, "color black"
  63.     print #1, "place "; startX; " "; startY
  64.     print #1, "line "; startX; " "; startY; " "; MouseX; " "; MouseY
  65.     oMouseY = MouseY
  66.     oMouseX = MouseX
  67.     goto [inputLoop]
  68.  
  69. [finishLine]
  70.     print #1, "when leftButtonMove [firstLine]"
  71.     print #1, "discard"
  72.     print #1, "line "; startX; " "; startY; " "; MouseX; " "; MouseY
  73.     print #1, "flush ; redraw"
  74.     goto [inputLoop]
  75.  
  76. [finishBox]
  77.     print #1, "when leftButtonMove [firstFrame]"
  78.     print #1, "discard"
  79.     print #1, "boxfilled "; MouseX; " "; MouseY
  80.     print #1, "flush ; redraw"
  81.     goto [inputLoop]
  82.  
  83. [finishEllipse]
  84.     print #1, "when leftButtonMove [firstFrame]"
  85.     print #1, "discard"
  86.     print #1, "place "; int((startX+MouseX)/2); " ";  int((startY+MouseY)/2)
  87.     print #1, "ellipsefilled "; abs(MouseX-startX); " "; abs(MouseY-startY)
  88.     print #1, "flush ; redraw"
  89.     goto [inputLoop]
  90.  
  91. [cls]
  92.     print #1, "cls"
  93.     goto [inputLoop]
  94.  
  95.  
  96. [setForLine]
  97.  
  98.     print #1, "when leftButtonMove [firstLine]"
  99.     print #1, "when leftButtonUp [finishLine]"
  100.     goto [inputLoop]
  101.  
  102. [setForBox]
  103.  
  104.     print #1, "when leftButtonMove [firstFrame]"
  105.     print #1, "when leftButtonUp [finishBox]"
  106.     goto [inputLoop]
  107.  
  108. [setForEllipse]
  109.  
  110.     print #1, "when leftButtonMove [firstFrame]"
  111.     print #1, "when leftButtonUp [finishEllipse]"
  112.     goto [inputLoop]
  113.  
  114.  
  115. [colorRed]
  116.  
  117.     print #1, "backcolor red"
  118.     goto [inputLoop]
  119.  
  120.  
  121. [colorYellow]
  122.  
  123.     print #1, "backcolor yellow"
  124.     goto [inputLoop]
  125.  
  126.  
  127. [colorGreen]
  128.  
  129.     print #1, "backcolor green"
  130.     goto [inputLoop]
  131.  
  132.  
  133. [colorBlue]
  134.  
  135.     print #1, "backcolor blue"
  136.     goto [inputLoop]
  137.  
  138.  
  139. [lineThickness]
  140.  
  141.     prompt "Line Thickness"; lineThickness$
  142.     print #1, "size "; lineThickness$
  143.     goto [inputLoop]
  144.  
  145.  
  146. [printIt]
  147.  
  148.     print #1, "print"
  149.     goto [inputLoop]
  150.