home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / hires-fensteros (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  45 lines
  1. 1 rem ********************************
  2. 2 rem *                              *
  3. 3 rem *         fensterrose          *
  4. 4 rem *   version fuer h i r e s 3   *
  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 sys37498:hfl,6,12
  15. 35 rem **** start *****
  16. 40 trs,0,320,0,200
  17. 45 rem **** mitte *****
  18. 50 trs,-160,160,-100,100
  19. 55 rem*******
  20. 60 d=2*(NULL)/n:dimx(n),y(n)
  21. 65 rem **** kreis *****
  22. 70 tkr,0,0,r,r,2*(NULL)
  23. 75 rem*******
  24. 80 gosub200
  25. 90 a$="fensterrose"
  26. 95 rem **** text *****
  27. 100 tex,a$,yt,xt
  28. 105 rem **** show (hier unnoetig) *****
  29. 115 rem******
  30. 120 poke198,0:wait198,1
  31. 125 rem **** normal *****
  32. 130 hof
  33. 135 rem **** greset *****
  34. 150 loe:aus
  35. 160 end
  36. 200 rem ****** up zeichnen **********
  37. 210 fori=1ton:t=t+d:x(i)=r*cos(t):y(i)=r*sin(t):nexti
  38. 220 s=n-1
  39. 230 fori=1tos:z=i+1
  40. 240 forj=zton
  41. 242 rem **** linie *****
  42. 245 tln,x(i),y(i),x(j),y(j)
  43. 247 rem********
  44. 250 nextj:nexti:return
  45.