home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / PCLOGO / LOGO / SHAPES.LG_ / SHAPES.LG
Encoding:
Text File  |  1994-05-22  |  1.4 KB  |  43 lines
  1.  
  2. TO SHAPES
  3. DRAW CT SETBG 0
  4. TELL [0 1 2 3]
  5. PU ST
  6. EACH [FD 30 * WHO]
  7. ASK 0 [SETPC 2]
  8. ASK 1 [SETPC 4 ROCKET]
  9. ASK 2 [SETPC 3 DIAMOND]
  10. ASK 3 [SETPC 15 SNOWFLAKE]
  11. PD
  12. PRINT [THE TURTLE SHAPE CAN BE CHANGED IN PC LOGO AS THESE PROCEDURES]
  13. PRINT [ILLUSTRATE.  TYPE ROCKET, DIAMOND, OR SNOWFLAKE TO CHANGE THE CURRENT]
  14. PRINT [TURTLE\(S\) TO THAT SHAPE.  TYPE TURTLE OR (SETSHAPE) TO RESTORE]
  15. PRINT [THE ORIGINAL TURTLE SHAPE.]
  16. END
  17.  
  18.  
  19. TO ROCKET
  20.     MAKE "ROCKET0 [1 0 3 128 7 192 7 192 7 192 7 192 7 192 7 192 7 192 7 192 7 192 15 224 31 240 63 248 5 64 4 64]
  21.     MAKE "ROCKET45 [0 0 0 30 0 62 0 126 0 254 1 254 3 252 7 248 15 240 255 224 127 192 127 128 159 0 46 0 14 0 18 0]
  22.     MAKE "ROCKET77 [0 0 0 0 0 0 32 0 48 0 56 0 255 252 63 254 127 255 63 254 255 252 56 0 48 0 32 0 0 0 0 0]
  23.     (SETSHAPE :ROCKET0 :ROCKET0 :ROCKET45 :ROCKET77)
  24. END
  25.  
  26. TO DIAMOND
  27.     MAKE "DIAMOND0 [1 0 3 128 7 192 15 224 31 240 63 248 127 252 255 254 127 252 63 248 31 240 15 224 7 192 3 128 1 0 0 0]
  28.     MAKE "DIAMOND45 [0 0 0 0 63 252 63 252 63 252 63 252 63 252 63 252 63 252 63 252 63 252 63 252 63 252 63 252 0 0 0 0]
  29.     (SETSHAPE :DIAMOND0 :DIAMOND0 :DIAMOND45 :DIAMOND0)
  30. END
  31.  
  32. TO TURTLE
  33.     (SETSHAPE)
  34. END
  35.  
  36. TO SNOWFLAKE
  37.     MAKE "SNOWFLAKE [163 138 101 76 225 14 17 16 9 32 69 72 131 132 255 254 131 132 69 72 9 32 17 16 225 14 101 76 163 138 0 0]
  38.     (SETSHAPE :SNOWFLAKE :SNOWFLAKE :SNOWFLAKE :SNOWFLAKE)
  39. END
  40.  
  41. SHAPES
  42.  
  43.