home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / polygon.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 10 rem ml circles, polygons, arcs
  2. 20 ifpeek(49152)<>76thenload"hires",8,1
  3. 30 ifpeek(32820)<>32thenload"polygon.obj",8,1
  4. 100 :
  5. 110 hires=12*4096:draw=hi+3:plot=dr+3
  6. 120 move=pl+3:clscr=mo+3:dmode=cl+3
  7. 130 selpc=dm+3:colour=se+3:box=co+3
  8. 140 text=bo+3:prnt=te+3:chset=pr+3
  9. 150 trap=ch+3
  10. 160 :
  11. 170 circle=32768+52 :rem not the same as potential
  12. 180 sys hires,0,1,6
  13. 190 :
  14. 200 sys prnt,16,1,"circles"
  15. 210 sa=0: ea=360: inc=5
  16. 220 gosub 370
  17. 230 :
  18. 240 sys prnt,16,1,"polygons"
  19. 250 sa=0: ea=360: inc=45
  20. 260 gosub 370
  21. 270 :
  22. 280 sys prnt,18,1,"arcs"
  23. 290 sa=90: ea=270: inc=5
  24. 300 gosub 370
  25. 310 :
  26. 320 sys prnt,16,1,"more arcs"
  27. 330 sa=0: ea=180: inc=5
  28. 340 gosub 370
  29. 350 end
  30. 360 :
  31. 370 xc=155:yc=100:xr=99:yr=79
  32. 380 sys circle,xc,yc,xr,yr,sa,ea,inc
  33. 390 sys prnt,19,12,"1"
  34. 400 :
  35. 410 xc=100:yc=120:xr=90:yr=50
  36. 420 sys circle,xc,yc,xr,yr,sa,ea,inc
  37. 430 sys prnt,10,9,"2"
  38. 440 :
  39. 450 xc=275:yc=100:xr=30:yr=80
  40. 460 sys circle,xc,yc,xr,yr,sa,ea,inc
  41. 470 sys prnt,34,12,"3"
  42. 480 :
  43. 490 xc=52:yc=45:xr=35:yr=30
  44. 500 sys circle,xc,yc,xr,yr,sa,ea,inc
  45. 510 sys prnt,6,19,"4"
  46. 520 :
  47. 530 for j=1 to 3000: next
  48. 540 sys clscr,1,6
  49. 550 return
  50.