Sutherland-Hodgman polygon clipping: Difference between revisions
Content added Content deleted
m (→{{header|ATS}}) |
m (→{{header|ATS}}) |
||
Line 528: | Line 528: | ||
showpoly (clip_poly, ".5 0 0", "1 .7 .7"); |
showpoly (clip_poly, ".5 0 0", "1 .7 .7"); |
||
showpoly (subject_poly, "0 .2 .5", ".4 .7 1"); |
showpoly (subject_poly, "0 .2 .5", ".4 .7 1"); |
||
fprintln! (outf, "2 setlinewidth |
fprintln! (outf, "2 setlinewidth"); |
||
fprintln! (outf, "[10 8] 0 setdash"); |
|||
showpoly (result_poly, ".5 0 .5", ".7 .3 .8"); |
showpoly (result_poly, ".5 0 .5", ".7 .3 .8"); |
||
fprintln! (outf, "%%EOF") |
fprintln! (outf, "%%EOF") |