Sutherland-Hodgman polygon clipping: Difference between revisions

{{works with|Gambit Scheme|4.9.4}}

 

 

(define (evaluate-line x1 y1 x2 y2 x)

(for-each-clip-edge 0 subject-points clip-points))

 

 

;; I use only some of the most basic output procedures. Schemes tend

 

(define (moveto pt)

 

(define (lineto pt)

 

(define (setrgbcolor rgb)

 

(define (simple-word word)

(lambda ()

 

(define closepath (simple-word "closepath"))

 

(define (code s)

 

(code "%!PS-Adobe-3.0 EPSF-3.0")

(with-output-to-file outfile

(lambda ()

 

(define subject-points