home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / logo / doslogo / lib / putdisk.lg < prev    next >
Encoding:
Text File  |  1990-06-11  |  897 b   |  37 lines
  1. to putdisk :tnum :dnum :state
  2. !
  3. ! Called by HANOI to put a disk on a tower.
  4. ! first arg. is number of tower (1,2 or 3)
  5. ! second arg. is number of disk to draw (1 is smallest)
  6. ! third arg. is "final, "temp, or "erase depending on whether
  7. !   disk is drawn in final state, in temporary state to indicate
  8. !   motion, or is being erased (removed from this tower)
  9. ! Note that this procedure re-draws the tower correctly.
  10. !
  11. local "tc
  12. local "halfsize
  13. make "tc towercnt :tnum
  14. make "halfsize sum 20 product :dnum 10
  15. pu
  16. if :tnum = 1 [setxy "-240 "-100] [if :tnum = 2 [setxy "-15 "-100] [setxy 210 "-100]]
  17. pe
  18. fd product 30 :tc
  19. pu
  20. setxy xcor - :halfsize ycor
  21. pd
  22. if :state = "final [pencolor 3] [if :state = "temp [pencolor 1] [pe]]
  23. fd 30
  24. rt 90
  25. fd product :halfsize 2
  26. rt 90
  27. fd 30
  28. rt 90
  29. pu
  30. fd :halfsize
  31. rt 90
  32. pencolor 2
  33. if :state = "erase [pd; fd 30] [pe; fd 30]
  34. oflush
  35. end
  36.  
  37.