Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 OVRD 2000
- 20 ' USTALENIE PARAMETROW 1 '
- 30 A = 100
- 40 N = 1
- 50 C = 30
- 60 B = 100
- 70 D = 1
- 80 MOV P6
- 90 P2 = P6
- 100 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
- 110 FOR M1=0 TO 720 STEP 8
- 120 P2.Z = P6.Z + A*SIN(RAD(N*M1)+RAD(C))
- 130 P2.Y = P6.Y + B*SIN(RAD(D*M1))
- 140 MOV P2
- 150 NEXT M1
- 160 ' USTALENIE PARAMETROW 2 '
- 170 A = 100
- 180 N = 1
- 190 C = 0
- 200 B = 100
- 210 D = 2
- 220 MOV P6
- 230 P2 = P6
- 240 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
- 250 FOR M1=0 TO 720 STEP 8
- 260 P2.Z = P6.Z + A*SIN(RAD(N*M1)+RAD(C))
- 270 P2.Y = P6.Y + B*SIN(RAD(D*M1))
- 280 MOV P2
- 290 NEXT M1
- 300 ' USTALENIE PARAMETROW 3 '
- 310 A = 100
- 320 N = 9
- 330 C = 0
- 340 B = 100
- 350 D = 8
- 360 MOV P6
- 370 P2 = P6
- 380 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
- 390 FOR M1=0 TO 720 STEP 1
- 400 P2.Z = P6.Z + A*SIN(RAD(N*M1)+RAD(C))
- 410 P2.Y = P6.Y + B*SIN(RAD(D*M1))
- 420 MOV P2
- 430 NEXT M1
- 440 ' ZAPETLENIE PROGRAMU '
- 450 GOTO 30
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement