Sutherland-Hodgman polygon clipping: Difference between revisions
Sutherland-Hodgman polygon clipping (view source)
Revision as of 17:09, 15 November 2022
, 1 year ago→{{header|Common Lisp}}
Line 2,008:
(princ "Wrote sutherland-hodgman.eps")
(terpri)</syntaxhighlight>
{{out}}
<pre>$ clisp sutherland-hodgman.lisp
#((100 350/3) (125 100) (275 100) (300 350/3) (300 300) (250 300) (200 250) (175 300) (125 300) (100 250))
Wrote sutherland-hodgman.eps</pre>
[[File:Sutherland-hodgman-from-cl.png|alt=The polygons as generated by Common Lisp.]]
=={{header|D}}==
| |||