home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8605.d64 / phasen (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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 d    IEREN ***
  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.