Draw a sphere: Difference between revisions
Content added Content deleted
(My solution in Common Lisp) |
|||
| Line 1,575: | Line 1,575: | ||
{{libheader|cl-cairo2}} |
{{libheader|cl-cairo2}} |
||
Saved as a png file and rendered in a X-Window. |
Saved as a png file and rendered in a X-Window. Unfortunately the file upload isn't working anymore for like four years so I cannot show my results directly. |
||
[[File:cl-sphere.png|thumb|right]] |
|||
<lang lisp>;; * Loading the cairo bindings |
<lang lisp>;; * Loading the cairo bindings |
||
| Line 1,624: | Line 1,622: | ||
(arc *middle* *middle* 180 0 (* 2 pi)) |
(arc *middle* *middle* 180 0 (* 2 pi)) |
||
(fill-path))))</lang> |
(fill-path))))</lang> |
||
=={{header|D}}== |
=={{header|D}}== |
||
{{trans|C}} |
{{trans|C}} |
||