home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / house.bug < prev    next >
Text File  |  1988-12-25  |  256b  |  27 lines

  1. to "poly :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "square  
  8. repeat 4 [fd 50 rt 90]
  9. end
  10.  
  11. to "triangle 
  12. repeat 3 [ fd 50 rt 120]
  13. end
  14.  
  15. to "roof 
  16. fd 50 rt 30 triangle
  17. end
  18.  
  19. to "house 
  20. square
  21. roof
  22. end
  23.  
  24. nd
  25.  
  26. to "triangle 
  27. repeat 3 [