Green Hat Program

[Tom Lake]

Here's a green hat program for the Casio fx-CP400 and fx-CG500

SetRadian: SetDecimal: SetCoord Off
ViewWindow 1,320,0,1,528,0
Cls
Message "Resize and resume"
Pause
DrawShade -350,900,1,320,ColorBlack
264⇒p: 160⇒q
144⇒xp: 1.5×3.1415927⇒xr
56⇒yp: 1⇒yr: 64⇒zp
xr/xp⇒xf: yp/yr⇒yf: xr/zp⇒zf
For -q⇒zi To q-1
If zi≥-zp and zi≤zp: Then
zi×xp/zp⇒zt: zi⇒zz
int(.5+√(xp×xp-zt×zt))⇒xl
For -xl⇒xi To xl
√(xi×xi+zt×zt)×xf⇒xt: xi⇒xx
(sin(xt)+.4×sin(3×xt))×yf⇒yy
Int(xx+zz+p)⇒ya
Int(yy-zz+q)⇒xa
PxlOn xa,ya,ColorGreen
If xa≠0: Then
For xa-1⇒m To xa-10 Step -1
PxlOn m,ya,ColorBlack
Next
IfEnd
Next
IfEnd
Next

[Tom Lake]

On Wednesday, May 5, 2021 at 8:33:58 AM UTC-4, Tom Lake wrote:
> Here's a green hat program for the Casio fx-CP400 and fx-CG500 Ignore the leading underscores. I had to add those to show the structure better.

>
SetRadian: SetDecimal: SetCoord Off
ViewWindow 1,320,0,1,528,0
Cls
Message "Resize and resume"
Pause
DrawShade -350,900,1,320,ColorBlack
264⇒p: 160⇒q
144⇒xp: 1.5×3.1415927⇒xr
56⇒yp: 1⇒yr: 64⇒zp
xr/xp⇒xf: yp/yr⇒yf: xr/zp⇒zf
For -q⇒zi To q-1

__If zi≥-zp and zi≤zp: Then
____zi×xp/zp⇒zt: zi⇒zz
____int(.5+√(xp×xp-zt×zt))⇒xl
____For -xl⇒xi To xl
______√(xi×xi+zt×zt)×xf⇒xt: xi⇒xx
______(sin(xt)+.4×sin(3×xt))×yf⇒yy
______Int(xx+zz+p)⇒ya
______Int(yy-zz+q)⇒xa
______PxlOn xa,ya,ColorGreen
______If xa≠0: Then
________For xa-1⇒m To xa-10 Step -1
__________PxlOn m,ya,ColorBlack
________Next
______IfEnd
____Next
__IfEnd
Next