mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-11 05:29:38 +00:00
twister: more lores optimization
This commit is contained in:
parent
60ffe8b76e
commit
a52d1ebb47
|
@ -4,17 +4,18 @@
|
||||||
30 FOR A2 = 1 TO 360 STEP 3
|
30 FOR A2 = 1 TO 360 STEP 3
|
||||||
40 AM = 120+COS(A2*0.0174533)*100
|
40 AM = 120+COS(A2*0.0174533)*100
|
||||||
50 AN = -3.141593+SIN(A2*0.0174533)*3.141593
|
50 AN = -3.141593+SIN(A2*0.0174533)*3.141593
|
||||||
60 FOR Y = 1 TO 39
|
60 FOR Y = 1 TO 39 STEP 2
|
||||||
65 FV = Y*4/AM+AN
|
65 FV = Y*4/AM+AN
|
||||||
70 X1 = 5*SIN(FV)
|
70 X1 = 8*SIN(FV)
|
||||||
80 X2 = 5*SIN(FV+1.570796)
|
80 X2 = 8*SIN(FV+1.570796)
|
||||||
95 X3 = -X1
|
95 X3 = -X1
|
||||||
105 X4 = -X2
|
105 X4 = -X2
|
||||||
108 COLOR = 0: HLIN 105/7,175/7 AT Y
|
108 COLOR = 0: HLIN 10,30 AT Y
|
||||||
110 IF X1 < X2 THEN COLOR = 1: HLIN 20+X1,20+X2 AT Y: GOTO 130
|
109 COLOR = 1
|
||||||
120 IF X3 < X4 THEN COLOR = 1: HLIN 20+X3,20+X4 AT Y
|
110 IF X1 < X2 THEN HLIN 20+X1,20+X2 AT Y: GOTO 130
|
||||||
130 IF X2 < X3 THEN COLOR = 2: HLIN 20+X2,20+X3 AT Y: GOTO 150
|
120 IF X3 < X4 THEN HLIN 20+X3,20+X4 AT Y
|
||||||
140 IF X4 < X1 THEN COLOR = 2: HLIN 20+X4,20+X1 AT Y
|
130 COLOR = 2 : IF X2 < X3 THEN HLIN 20+X2,20+X3 AT Y: GOTO 150
|
||||||
|
140 IF X4 < X1 THEN HLIN 20+X4,20+X1 AT Y
|
||||||
150 NEXT Y
|
150 NEXT Y
|
||||||
160 NEXT A2
|
160 NEXT A2
|
||||||
170 GOTO 30
|
170 GOTO 30
|
||||||
|
|
Loading…
Reference in New Issue
Block a user