Anonymous user
Draw a sphere: Difference between revisions
→{{header|PostScript}}
(Added PicoLisp) |
|||
Line 41:
[[Category:Geometric Primitives]]
=={{header|PostScript}}==
Gradient filled circle:
<lang PostScript>%!PS-Adobe-3.0
%%BoundingBox 0 0 300 300
150 150 translate 0 0 130 0 360 arc
/Pattern setcolorspace
<< /PatternType 2
/Shading <<
/ShadingType 3
/ColorSpace /DeviceRGB
/Coords [-60 60 0 0 0 100]
/Function <<
/FunctionType 2
/Domain [0 1]
/C0 [1 1 1]
/C1 [0 0 0]
/N 2
>>
>>
>> matrix makepattern setcolor fill
showpage
%%EOF
</lang>
=={{header|POV-Ray}}==
| |||