home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 May / 64er_Magazin_86-05_1986_Markt__Technik_de.d64 / phasen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  55 lines
  1. 20 rem ** mini-phasengenerator **
  2. 25 rem ** c 64 + simons basic  **
  3. 30 :
  4. 100 rem *** daten lesen ***
  5. 110 for i= 1 to 4
  6. 120 read x(i):read y(i)
  7. 130 next
  8. 140 for i=1 to 3
  9. 150 read ap(i):read ep(i)
  10. 160 next
  11. 170 :
  12. 180 input "startkoordinaten x,y ";sx,sy
  13. 190 input "startwinkel          ";sw
  14. 200 input "zielkoordinaten x,y  ";zx,zy
  15. 210 input "zielwinkel           ";zw
  16. 220 input "anzahl der schritte  ";n
  17. 230 sw=sw*(NULL)/180:zw=zw*(NULL)/180
  18. 235 rem *** schrittweiten ***
  19. 240 dx=(zx-sx)/n:rem schrittweite x
  20. 250 dy=(zy-sy)/n:rem schrittweite y
  21. 260 dw=(zw-sw)/n:rem schrittweite winkel
  22. 290 rem *** istwerte=startwerte ***
  23. 300 iw=sw:ix=sx:iy=sy
  24. 330 D 7,6
  25. 350 for nn=0 to n
  26. 360 si=sin(iw):co=cos(iw)
  27. 370 for p=1 to 4
  28. 375 rem *** punkte Dieren ***
  29. 380 xr= x(p)*co+y(p)*si
  30. 390 yr=-x(p)*si+y(p)*co
  31. 395 rem *** punkte verschieben ***
  32. 400 xr(p)=xr+ix
  33. 410 yr(p)=yr+iy
  34. 420 next p
  35. 425 rem *** Dyien ziehen ***
  36. 430 for i=1 to 3
  37. 440 D 160+xr(ap(i)),99-yr(ap(i)),160+xr(ep(i)),99-yr(ep(i)),1
  38. 450 next
  39. 455 rem *** istwerte neu beDhnen ***
  40. 460 ix=ix+dx
  41. 470 iy=iy+dy
  42. 480 iw=iw+dw
  43. 490 next nn
  44. 500 wait 198,1:get a$
  45. 510 end
  46. 950 :
  47. 1000 rem *** daten der Dyien ***
  48. 1050 data 0,-20:rem punkt 1
  49. 1060 data 0,20:rem:punkt 2
  50. 1070 data -20,0:rem punkt 3
  51. 1080 data 20,0:rem punkt 4
  52. 1090 data 1,2:rem linie 1
  53. 1100 data 3,2:rem linie 2
  54. 1110 data 4,2:rem linie 3
  55.