Mercurial > forge

view nonfree/gpc/debian/gpc_test.m @ 0:6b33357c7561 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author pkienzle
date Wed, 10 Oct 2001 19:54:49 +0000
parents
children
line wrap: on
line source

### Read subject and clip polygons
s = gpc_read ("/usr/share/doc/libgpcl-dev/examples/subj1.gpf");
c = gpc_read ("/usr/share/doc/libgpcl-dev/examples/clip1.gpf");

### Compute clipping poligon (intersection)
r = gpc_clip (s,c);

### Plot the polygons
gset nokey
gset size square
gset terminal x11
hold off
gpc_plot (s, "r");
gpc_plot (c, "g");
gpc_plot (r, "b");