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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Draw-a-sphere/EasyLang/draw-a-sphere.easy
View file

@ -14,7 +14,7 @@ proc sphere r k amb dir[] .
if z >= 0
s = vdot dir[] norm [ x y sqrt z ]
if s < 0 : s = 0
lum = 100 * (pow s k + amb) / (1 + amb)
lum = (pow s k + amb) / (1 + amb)
gcolor3 lum lum lum
grect 50 + x / 5, 50 + y / 5, 0.3 0.3
.