home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / color.bug < prev    next >
Text File  |  1989-12-31  |  512b  |  29 lines
  1. to "poly  :d :a
  2. forward :d
  3. right :a
  4. poly :d :a
  5. end
  6.  
  7. to "color  :bkg :pen :pal
  8. bg :bkg pc :pen palette :pal
  9. print "
  10. type se [BG =] :bkg type se [ PEN =] :pen type se [ PAL =] :pal wait 2
  11. fd 100 rt 90 wait 3
  12. make "bkg :bkg + 1
  13. if :bkg > 15 make "bkg 0
  14. make "pen :pen + 1
  15. if :pen > 3 make "pal :pal + 1
  16. if :pen > 3 make "pen 0
  17. if :pal > 1 make "pal 0
  18. color :bkg :pen :pal
  19. end
  20.  
  21. to "wait  :t
  22. if :t = 0 [stop]
  23. make "t :t - 1
  24. wait :t
  25. end
  26.  
  27.  "pen 0
  28. if :pal > 1 make "pal 0
  29. color :bkg :pen :pa