home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / JEMLOGO.ZIP / JEM.DAT < prev    next >
Text File  |  1992-03-08  |  2KB  |  45 lines
  1. !leftsqu= f [40] l [90] f [40] l [90] f [40] l [90] f [40] l [90] ; ;  
  2. !rightsqu= f [40] r [90] f [40] r [90] f [40] r [90] f [40] r [90] ; ;  
  3. !twosquare= rightsqu leftsqu ; ;  
  4. !window= twosquare turn [180] twosquare ; ;  
  5. !Llett= l [90] u f [80] d f [30] r [90] f [50] ; ; 
  6. !Olett= d f [30] r [90] f [50] r [90] f [30] r [90] f [50] ; ;  
  7. !Glett=  f [30] r [90] f [5] u f [20] d f [25] r [90] f [30] r [90] f [50] ;
  8.  ;  
  9. !logorite= Llett r [90] u f [50] Olett r [90] u f [50] d Glett r [90] u f
  10.  [50] Olett ;   
  11. !startwrite= logorite t [180] f [25] r [90] u f [15] d f [15] h ; ;  
  12. !ltrangle= f [40] l [135] f [56] l [135] f [40] ; ;  
  13. !rtrangle= f [40] r [135] f [56] r [135] f [40] ; ; 
  14. !diamon= ltrangle r [90] ltrangle ; ;
  15. !rdiamon= rtrangle l [90] rtrangle ; ;   
  16. !againdim= again [2] diamon ; ;  
  17. !repeat= R rdiamon u f [80] d diamon r [10] u f [80] d ; ;   
  18. !snowflake= cs R diamon l [33] ; ;  
  19. !pentagon= f [40] r [72] f [40] r [72] f [40] r [72] f [40] r [72] f [40] r
  20.  [72] ; ;  
  21. !octagon= f [40] r [45] f [40] r [45] f [40] r [45] f [40] r [45] f [40] r
  22.  [45] f [40] r [45] f [40] r [45] f [40] r [45] ; ;  
  23. !hexagon= f [40] r [60] f [40] r [60] f [40] r [60] f [40] r [60] f [40] r
  24.  [60] f [40] r [60] ; ;                                                               
  25. !etrangle=  f [40] r [120] f [40] r [120] f [40] ; ; 
  26. !retrangle= cs R etrangle l [33] ; ; 
  27. !fdecagon= f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] f [20] r
  28.  [36] ; ;
  29. !sdecagon= f [20] r [36] f [20] r [36] f [20] r [36] f [20] r [36] f [20] r
  30.  [36] ; ;
  31. !decagon= fdecagon sdecagon ;  ; 
  32. !rdecagon= cs R decagon r [11] ;  ; 
  33. !Rdecagon= cs R decagon l [33] ;  ; 
  34. !roctagon= cs R l [3] octagon ; ; 
  35. !rhexagon= cs R l [7] hexagon ; ;
  36. !rectangle= f [40] l [90] f [20] l [90] f [40] l [90] f [20] ; ;
  37. !shapes1= r [90] u f [90] t [0] d rectangle l [180] u f [40] d etrangle t
  38.  [0] ; ;
  39. !shapes2= leftsqu p c rectangle p c etrangle p c ltrangle p c hexagon p c
  40.  pentagon p c octagon p c decagon ; ;  
  41. !shapes= shapes1 l [90] u f [60] t [0] d leftsqu t [0] l [90] u f [60] d t
  42.  [0] ltrangle t [0] h  ; ;
  43. !colordemo= B [9] B [0] C [0] f [10] C [1] f [10] C [2] f [10] C [3] f [10]
  44.  ;;
  45.