20 lines
384 B
Plaintext
20 lines
384 B
Plaintext
m=-:FPS h=.5 a=150 b=.356 c=-5.547 d=1-b
|
|
:RZ=(:SD*(COS(:SH)^2-SIN(:SV)^2)^h+:SL-b)*m :SL=:SPR/a*c-d goto2
|
|
goto1 //Error catch
|
|
|
|
//Alternate form
|
|
:RZ=((:SD^2-(:SD*SIN :SH)^2-(:SD*SIN :SV)^2)^h+:SL-b)*m
|
|
:RZ=(:SD*((COS(2*:SH)+COS(2*:SV))/2)^h+:SL-b)*m
|
|
:RZ=(:SD*(COS(:SH)^2-SIN(:SV)^2)^h+:SL-b)*m
|
|
|
|
//Assign :SL after :RZ calc
|
|
:SL=:SPR/a*c-d
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
//By Thaccus, DarkyShadow, and Azurethi |