Guru
Joined: 29/01/2013
Location: CanadaPosts: 1154
| Posted: 03:19pm 10 Aug 2025 |
Here's a slight change to the cylinder on checker-board so it fits on a 320 pixel wide screen, and possibly runs slightly faster:
Q=.755/8
Z=.636363/8
C=.527225
For X=0 To 1280 Step 4
For Y=0 To 1000 Step 4
V=(X+4*Y)\500
W=(X-Y+450)\200
F=1
X2=X-250
X3=X2*X2/8
If (X>70 And X<430 And Y>300 And Y<900)Or(X3+(Y-300)*(Y-300)<4000) Then
F=1-X/250:F=F*(F>0)
EndIf
If X3+(Y-900)*(Y-900)<4000 Then F=0
If F=1 And V>1 And V<7 And W>0 And W<6 Then
F=.5+.25*((W+V)Mod 2)-.25*(X>250 And X-3*Y>-900 And X-8*Y<-1600)
EndIf
I=Q*X+Z*Y+C
I=I-Int(I)
If Int(F)-(F-Int(F)>I) And 1 Then Pixel X\4,250-Y\4
Next
Next
Z=.636363/8
C=.527225
For X=0 To 1280 Step 4
For Y=0 To 1000 Step 4
V=(X+4*Y)\500
W=(X-Y+450)\200
F=1
X2=X-250
X3=X2*X2/8
If (X>70 And X<430 And Y>300 And Y<900)Or(X3+(Y-300)*(Y-300)<4000) Then
F=1-X/250:F=F*(F>0)
EndIf
If X3+(Y-900)*(Y-900)<4000 Then F=0
If F=1 And V>1 And V<7 And W>0 And W<6 Then
F=.5+.25*((W+V)Mod 2)-.25*(X>250 And X-3*Y>-900 And X-8*Y<-1600)
EndIf
I=Q*X+Z*Y+C
I=I-Int(I)
If Int(F)-(F-Int(F)>I) And 1 Then Pixel X\4,250-Y\4
Next
Next