home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / triangle.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  937 b   |  41 lines
  1. 1     col% = 2
  2. 5     dim xx(500),yy(500)
  3. 10    input"divide segments by how many";space
  4. 20    print"click your points."
  5. 40    gosub 1000
  6. 50    c%=0
  7. 60    xx(c%)=x%:yy(c%)=y%
  8. 65    scnclr
  9. 70    draw (x%,y%)
  10. 80    c%=c%+1
  11. 90    gosub 1000
  12. 100   if (x%<5) and (y%<5) then goto 200
  13. 110   xx(c%)=x%:yy(c%)=y%
  14. 120   draw(to x%,y%)
  15. 125   sleep 500000
  16. 130   if c% < 499 then goto 80
  17. 200   draw(to xx(0),yy(0))
  18. 210   '                **********
  19. 220   for i% = 0 to c%-1
  20. 230   xx(i%)=xx(i%) + ((xx(i%+1)-xx(i%))/space)
  21. 240   yy(i%)=yy(i%) + ((yy(i%+1)-yy(i%))/space)
  22. 245   xx(c%)=xx(0):yy(c%)=yy(0)
  23. 250   next i%
  24. 260   xx(c%)=xx(0)
  25. 265   yy(c%)=yy(0)
  26. 270   draw(xx(0),yy(0))
  27. 280   for i%=0to c%
  28. 290   draw(to xx(i%),yy(i%))
  29. 300   next i%
  30. 305   gosub 2000
  31. 310   goto 220
  32. 1000  ask mouse x%,y%,b%
  33. 1010  if b% = 0 then goto 1000
  34. 1020  return
  35. 2000  col% = col% + 1
  36. 2010  col% = col% mod 15
  37. 2020  pena col%
  38. 2025  penb col%
  39. 2030  return
  40. 2035  penb col%
  41.