home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / comal.lzh / COMAL / INFOTEXT / TURTLE < prev    next >
Encoding:
Text File  |  1991-08-16  |  1.9 KB  |  91 lines
  1. Turtle Graphics were what made LOGO popular, yet
  2. COMAL has had a faster turtle for years! These
  3. Turtle commands work on all COMALs (note that
  4. AmigaCOMAL includes many more Graphics
  5. commands):
  6.  
  7. BACK : move turtle backwards
  8.   back(length)
  9.   back(50)
  10.  
  11. BACKGROUND : set screen background color
  12.   background(color number)
  13.   background(2)
  14.  
  15. CLEAR : clear the graphics screen
  16.   clear // also can use clearscreen
  17.  
  18. DRAWTO : draw a line from current point 
  19.   drawto(x coord,y coord)
  20.   drawto(50,80)
  21.  
  22. FILL : fills in area with current color 
  23.   fill(x coord,y coord)
  24.   fill(50,80)
  25.  
  26. FORWARD : move turtle forward
  27.   forward(length)
  28.   forward(100)
  29.  
  30. GETCOLOR : returns color of specified pixel
  31.   getcolor(x coord,y coord)
  32.   print getcolor(50,80)
  33.  
  34. GRAPHICSCREEN : turn on graphic screen
  35.   graphicscreen(mode) //Power Driver use:
  36.   graphicscreen(0)      //SETGRAPHIC(mode)
  37.  
  38. HIDETURTLE : make turtle invisible
  39.   hideturtle
  40.  
  41. HOME : put the turtle in its home position
  42.   home
  43.  
  44. LEFT : turn turtle left
  45.   left(degrees)
  46.   left(90) // a right angle
  47.  
  48. MOVETO : move to loc without line 
  49.   moveto(x coord,y coord)
  50.   moveto(50,80)
  51.  
  52. PENCOLOR : set turtle drawing color
  53.   pencolor(color number)
  54.   pencolor(2)
  55.  
  56. PENDOWN : put pen down, turtle draws
  57.   pendown
  58.  
  59. PENUP : pick pen up, turtle does not draw
  60.   penup
  61.  
  62. PLOT : plot a point in current color 
  63.   plot(x coord,y coord)
  64.   plot(50,80)
  65.  
  66. PLOTTEXT : put text on graphics screen 
  67.   plottext(x coord,y coord,text$)
  68.   plottext(0,24,"press space to continue")
  69.  
  70. RIGHT : turn turtle right
  71.   right(degrees)
  72.   right(180) // reverse direction
  73.  
  74. SETHEADING : set turtle heading
  75.   setheading(degrees)
  76.   setheading(180)
  77.  
  78. SETXY : set turtle x, y coordinates 
  79.   setxy(x coord,y coord)
  80.   setxy(50,80)
  81.  
  82. SHOWTURTLE : make turtle visible
  83.   showturtle
  84.  
  85. TEXTSCREEN : turn on text screen
  86.   textscreen //Power Driver use SETTEXT
  87.  
  88. TURTLESIZE : set turtle size (0 to 10)
  89.   turtlesize(size)
  90.   turtlesize(6)
  91.