home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / plot-fensterros (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.3 KB  |  49 lines
  1. 1 rem ********************************
  2. 2 rem *                              *
  3. 3 rem *         fensterrose          *
  4. 4 rem *  version fuer  plotter 1520  *
  5. 5 rem *                              *
  6. 6 rem *  heimo ponnath hamburg 1985  *
  7. 7 rem *                              *
  8. 8 rem ********************************
  9. 9 rem **** eingaben *****
  10. 10 poke53280,0:poke53281,0:poke646,5:printchr$(147)
  11. 15 input"anzahl stuetzpunkte";n
  12. 20 input"radius";r:input"textort xt,yt";xt,yt
  13. 25 rem **** init *****
  14. 30 open1,6,1:open2,6,2:print#2,1:close2
  15. 35 rem **** start *****
  16. 40 print#1,"m",0,-200:print#1,"i"
  17. 45 rem **** mitte *****
  18. 50 print#1,"r",240,0:print#1,"i"
  19. 55 rem*******
  20. 60 d=2*(NULL)/n:dimx(n),y(n)
  21. 65 rem **** kreis *****
  22. 70 m=50:dd=360*(NULL)/(m*180):dimt(m):t(0)=2*(NULL)
  23. 72 fori=1tom:t(i)=t(i-1)+dd:print#1,"r",r*cos(t(i-1)),r*sin(t(i-1))
  24. 74 print#1,"j",r*cos(t(i)),r*sin(t(i)):nexti
  25. 75 rem*******
  26. 80 gosub200
  27. 90 a$="fensterrose"
  28. 95 rem **** text *****
  29. 100 open4,6:print#1,"r",xt,yt:print#4,a$:close4:print#1,"m",240,-yt:print#1,"i"
  30. 105 rem **** show *****
  31. 110 print#1,"r",0,-200
  32. 115 rem******
  33. 120 poke198,0:wait198,1
  34. 125 rem **** normal *****
  35. 130 open3,6,3:print#3,0:open4,6:print#4:print#4," n","   r","    xt","    yt"
  36. 132 print#4,n,r,xt,yt:print#3,1:print#4:close3:close4:close1
  37. 135 rem **** greset *****
  38. 150 open7,6,7:print#7:close7
  39. 160 end
  40. 200 rem ****** up zeichnen **********
  41. 210 fori=1ton:t=t+d:x(i)=r*cos(t):y(i)=r*sin(t):nexti
  42. 220 s=n-1
  43. 230 fori=1tos:z=i+1
  44. 240 forj=zton
  45. 242 rem **** linie *****
  46. 245 print#1,"r",x(i),y(i):print#1,"j",x(j),y(j)
  47. 247 rem********
  48. 250 nextj:nexti:return
  49.