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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Draw-a-sphere/J/draw-a-sphere-1.j Normal file
View file

@ -0,0 +1 @@
load 'system/examples/graphics/opengl/simple/sphere.ijs'

8
Task/Draw-a-sphere/J/draw-a-sphere-2.j Normal file
View file

@ -0,0 +1,8 @@
'R k ambient' =. 10 2 0.4
light =. (% +/&.:*:) 30 30 _50
pts =. (0&*^:(0={:))@:(,,(0>.(*:R)-+)&.*:)"0/~ i:15j200
luminosity =. (>:ambient) %~ (ambient * * +/&.:*:"1 pts) + k^~ 0>. R%~ pts +/@:*"1 -light
load 'viewmat'
togreyscale =. 256 #. [: <. 255 255 255 *"1 0 ]
'rgb' viewmat togreyscale luminosity