home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_21_1988_Transactor_Publishing.d64 / potential.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  741b  |  34 lines
  1. 10 rem ml circles using potential algorithm
  2. 20 ifpeek(49152)<>76thenload"hires",8,1
  3. 30 ifpeek(32800)<>32thenload"potential.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+32 :rem not the same as polygon
  12. 180 sys hires,0,1,6
  13. 190 :
  14. 200 sys prnt,17,1,"circles"
  15. 210 :
  16. 220 xc=155:yc=100:xr=99:yr=79
  17. 230 sys circle,xc,yc,xr,yr
  18. 240 sys prnt,19,12,"1"
  19. 250 :
  20. 260 xc=100:yc=120:xr=90:yr=50
  21. 270 sys circle,xc,yc,xr,yr
  22. 280 sys prnt,10,9,"2"
  23. 290 :
  24. 300 xc=275:yc=100:xr=30:yr=80
  25. 310 sys circle,xc,yc,xr,yr
  26. 320 sys prnt,34,12,"3"
  27. 330 :
  28. 340 xc=52:yc=45:xr=35:yr=30
  29. 350 sys circle,xc,yc,xr,yr
  30. 360 sys prnt,6,19,"4"
  31. 370 :
  32. 380 for j=1 to 3000: next
  33. 390 end
  34.