From 4526658c64c61bbcbe82b42e7942337125803a54 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sun, 1 Dec 1996 17:11:07 +0000 Subject: [PATCH] Added graphics operation DRAW-TEXT-OPAQUE. Removed duplicate X-GRAPHICS/FILL-POLYGON. --- v7/src/runtime/x11graph.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index 2ff83fe7f..e503b0734 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: x11graph.scm,v 1.44 1996/07/12 20:20:56 adams Exp $ +$Id: x11graph.scm,v 1.45 1996/12/01 17:11:07 adams Exp $ Copyright (c) 1989-96 Massachusetts Institute of Technology @@ -88,6 +88,7 @@ MIT in each case. |# (x-graphics-draw-point 3) (x-graphics-draw-points 3) (x-graphics-draw-string 4) + (x-graphics-draw-image-string 4) (x-graphics-fill-polygon 2) (x-graphics-map-x-coordinate 2) (x-graphics-map-y-coordinate 2) @@ -171,6 +172,7 @@ MIT in each case. |# (draw-points ,x-graphics/draw-points) (draw-subimage ,image/draw-subimage) (draw-text ,x-graphics/draw-text) + (draw-text-opaque ,x-graphics/draw-text-opaque) (fill-circle ,x-graphics/fill-circle) (fill-polygon ,x-graphics/fill-polygon) (flush ,x-graphics/flush) @@ -581,6 +583,9 @@ MIT in each case. |# (define (x-graphics/draw-text device x y string) (x-graphics-draw-string (x-graphics-device/xw device) x y string)) +(define (x-graphics/draw-text-opaque device x y string) + (x-graphics-draw-image-string (x-graphics-device/xw device) x y string)) + (define (x-graphics/flush device) (if (and x-graphics:auto-raise? (x-graphics-device/mapped? device) @@ -670,9 +675,6 @@ MIT in each case. |# (define (x-graphics/fill-polygon device point-vector) (x-graphics-fill-polygon (x-graphics-device/xw device) point-vector)) -(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 -- 2.25.1