home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / demo 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  698 b   |  38 lines
  1. 10 ' demo five - snowflake
  2. 15 pi=3.14159265
  3. 16 ' convert degrees to radians
  4. 17 def fn deg(y)=y*pi/180
  5. 20 '
  6. 30 ***error*** side(size,level)
  7. 40 if level=0 then ***error***
  8.  size: ***error***
  9. 45 ***error*** div: div=3
  10. 50 ***error*** side(size/div,level-1)
  11. 60 ***error*** fn deg(60)
  12. 70 ***error*** side(size/div,level-1)
  13. 80 ***error*** fn deg(120)
  14. 90 ***error*** side(size/div,level-1)
  15. 100 ***error*** fn deg(60)
  16. 110 ***error*** side(size/div,level-1)
  17. 120 ***error***
  18. 130 '
  19. 135 ' pause for specified no. of seconds
  20. 140 ***error*** sleep(secs)
  21. 150 for a=1 to secs*889: next
  22. 160 ***error***
  23. 170 '
  24. 175 ' draw a snowflake
  25. 180 ***error*** snow-flake(size,level)
  26. 190 for a=1 to 3
  27. 200 ***error*** side(size,level)
  28. 201 ***error*** fn deg(120)
  29. 203 next a
  30. 205 ***error***
  31. 210 '
  32. 220 ***error*** 0,1
  33. 225 ***error*** 110,20: ***error*** fn deg(90)
  34. 230 ***error******error***: ***error*** 1: ***error***
  35. 240 ***error*** snow-flake(180,4)
  36. 250 ***error*** sleep(3): ***error***
  37. 260 end
  38.