PicoMiteVGA DEMO
Author
Message
javavi
Guru
Joined: 01/10/2023
Location: UkrainePosts: 565
Posted: 04:04pm 21 Sep 2024
Iron Chain
Quote
Option ANGLE DEGREES
R=100:p=28:G=R+p
For W=0 To 550 Step 93
S=Sin(W+33)
C=Cos(W+33)
For X=0 To G: F=X: If F<R-p Then F=R-p
For I=0 To 60: K=F+I*(G-F)/60
Z=S*Sqr(p*p-(K-R)*(K-R))
Y=C*Sqr(K*K-X*X)
For M=-1 To 1 Step 2
For N=-1 To 1 Step 2
For O=-1 To 1 Step 2
A=M*X+W*1.5: B=N*Y+O*Z+240
J=(7*(A Mod 4)+5*(B Mod 4)) Mod 16
If (N*Y*S/C-O*Z*C/S)+G >19*J Then Pixel A, B
Next :Next :Next :Next :Next :Next
