1Polyfill: module 2{ 3 PATH: con "/dis/math/polyfill.dis"; 4 5 Zstate: adt{ 6 r: Draw->Rect; 7 zbuf0, zbuf1: array of int; 8 xlen: int; 9 ylen: int; 10 xylen: int; 11 }; 12 13 init: fn(); 14 initzbuf: fn(r: Draw->Rect): ref Zstate; 15 clearzbuf: fn(s: ref Zstate); 16 setzbuf: fn(s: ref Zstate, zd: int); 17 fillpoly: fn(d: ref Image, v: array of Point, w: int, s: ref Image, p: Point, zstate: ref Zstate, dc, dx, dy: int); 18};