aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Draw-a-sphere/REXX/draw-a-sphere.rexx
View file

@ -20,7 +20,6 @@ drawSphere: procedure; parse arg r, k, ambient /*get the arguments
parse value norm(x y sqrt(rr-xx-yy) ) with v1 v2 v3
dot=s1*v1 + s2*v2 + s3*v3 /*the dot product of the Vs*/
if dot>0 then dot=0 /*if positive, make it zero*/ /*◄■■■■ same as: dot=max(0, dot) */
if dot>0 then dot=0 /*if positive, make it zero*/
b=-dot**k + ambient /*calculate the brightness.*/
if b<=0 then brite=shadeLen
else brite=max( (1-b) * shadeLen, 0) % 1