From: Brian A. LaMacchia Date: Wed, 13 May 1992 21:28:13 +0000 (+0000) Subject: added x-graphics-fill-polygon and x-graphics/fill-polygon X-Git-Tag: 20090517-FFI~9409 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=72e3f5540e89f33fd75a719a1b902a49ef945d45;p=mit-scheme.git added x-graphics-fill-polygon and x-graphics/fill-polygon --- diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index 8ab12c981..53410dd7b 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.20 1992/05/07 22:24:43 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/x11graph.scm,v 1.21 1992/05/13 21:28:13 bal Exp $ Copyright (c) 1989-92 Massachusetts Institute of Technology @@ -94,6 +94,8 @@ MIT in each case. |# (x-graphics-set-vdc-extent 5) (x-graphics-vdc-extent 1) + (x-graphics-fill-polygon 2) + (x-bytes-into-image 2) (x-create-image 3) (x-destroy-image 1) @@ -204,6 +206,7 @@ MIT in each case. |# (draw-line ,x-graphics/draw-line) (draw-point ,x-graphics/draw-point) (draw-text ,x-graphics/draw-text) + (fill-polygon ,x-graphics/fill-polygon) (flush ,x-graphics/flush) (font-structure ,x-graphics/font-structure) (get-colormap ,x-graphics/get-colormap) @@ -581,6 +584,9 @@ MIT in each case. |# ;;;; Miscellaneous Operations +(define (x-graphics/fill-polygon device point-vector) + (x-graphics-fill-polygon (x-graphics-device/xw device) point-vector)) + (define (x-graphics/copy-area device source-x-left source-y-top width height @@ -774,4 +780,4 @@ MIT in each case. |# (x-store-color (colormap/descriptor colormap) position r g b)) (define (x-colormap/store-colors colormap color-vector) - (x-store-colors (colormap/descriptor colormap) color-vector)) \ No newline at end of file + (x-store-colors (colormap/descriptor colormap) color-vector))