home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 November / 64er_Magazin_87-11_1987_Markt__Technik_de.d64 / grafik64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 1 rem save"@0:grafik64",8:rem p. kittel 9.6.87
  2. 10 print"[147][199]rafik - etwas kuenstlerisch
  3. 20 [153]"(NULL)rinzip:
  4. 30 print"[197]in [208]olygon ist vorzugeben.
  5. 32 [153]"str$ie (NULL)unkte werden der (NULL)eihe nach
  6. 34 print"verbunden, deren [193]bstand dabei
  7. 36 [153]"jedoch mit vorgegebenem ascaktor
  8. 38 print"multipliziert. [197]rgebnis:
  9. 40 [153]"in sich rotierende chr$ebilde.
  10. 100 print"[194]eispieldaten fuer [211]piral-[196]reieck:
  11. 103 [153]"(NULL)unktanzahl = 3
  12. 104 print"x1,y1 = 0,0
  13. 105 [153]"x2,y2 = 740,0
  14. 106 print"x3,y3 = 370,930  (x3=x2/2 !)
  15. 107 [153]"ascaktor = 0.95
  16. 108 print"[214]iel [211]pass!
  17. 999 [143] version fuer fx-80-plotter am c 64, 7.6.87
  18. 1000 p[178]142[172]256:[139][194](p)[179][177]76[176][194](p[170]3)[179][177]76[167][151]56,142:[156]:[147]"fxplot12*",8,1
  19. 1003 [151]p[170]41,0:[143] aspekt nein
  20. 1004 [158]p[170]21:xx%[178]0:yy%[178]0
  21. 8000 [133]"(NULL)unktanzahl";n:[134]x(n),y(n)
  22. 8010 [129]i[178]1[164]n:[153]"(NULL)kt"i"in (NULL)lotter-(NULL)oord:";:[133]"x,y";x(i),y(i):[130]
  23. 8015 [133]"ascaktor";f
  24. 8016 [153]"ascigur kann durch beliebigen
  25. 8017 print"[212]astendruck abgebrochen werden.
  26. 8020 xx%[178]x(n):yy%[178]y(n):[158]p:[158]p[170]6:[143] erster punkt
  27. 8030 [129]i[178]1[164]n:xx%[178]x(i):yy%[178]y(i):[158]p:[130]:[143] erste runde
  28. 8040 i[178]0:j[178]n
  29. 8049 [143] hauptschleife:
  30. 8050 i[178]i[170]1:[139]i[177]n[167]i[178]1
  31. 8060 x(i)[178]x(j)[170]f[172](x(i)[171]x(j)):y(i)[178]y(j)[170]f[172](y(i)[171]y(j))
  32. 8070 [161]a$:[139]a$[179][177]""[167][158]p[170]3:[158]p[170]37:[128]
  33. 8080 xx%[178]x(i)[170].5:yy%[178]y(i)[170].5:[158]p:j[178]i:[137]8050
  34.