home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / LogoMation 1.1.2 / Examples / Rutland Middle school, Canada / frog / frog
Encoding:
Text File  |  1996-02-18  |  625 b   |  47 lines  |  [UVtx/UVtl]
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Function tri()
  9.     Width 1
  10.     Color 9867,10981,49151
  11.     Forward 10
  12.     Left 120
  13.     Repeat 2
  14.         Forward 20
  15.         Left 120
  16.     Forward 10
  17.     Width 3
  18.     Color 1617,47103,3040
  19. Up
  20. Forward 50
  21. Right 90
  22. Forward 150
  23. Down 
  24. Width 3
  25. Color 1617,47103,3040
  26. Left 90
  27. Left 120
  28. Forward 175
  29. Right 60
  30. Forward 150
  31. Left 120
  32. Forward 80
  33. Backward 25
  34. Left 180 
  35. tri()
  36. Backward 25
  37. Forward (80-25)
  38. tri()
  39. Backward (80-25)
  40. Right 180
  41. Left 120
  42. Forward 150
  43. Right 60
  44. Forward 175
  45. Sound "Indigo"
  46.  
  47.