From f4474c8d93be95d853db5fdf1182d976cb78da40 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 5 Dec 1993 06:15:14 +0000 Subject: [PATCH] Implement support for drawing multiple points and lines. --- v7/src/runtime/runtime.pkg | 4 +++- v7/src/runtime/x11graph.scm | 16 +++++++++++----- v8/src/runtime/runtime.pkg | 4 +++- 3 files changed, 17 insertions(+), 7 deletions(-) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index b7b8fa532..c04c16c84 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.219 1993/11/29 23:10:53 cph Exp $ +$Id: runtime.pkg,v 14.220 1993/12/05 06:15:14 cph Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -2233,7 +2233,9 @@ MIT in each case. |# x-graphics/display x-graphics/drag-cursor x-graphics/draw-line + x-graphics/draw-lines x-graphics/draw-point + x-graphics/draw-points x-graphics/draw-text x-graphics/discard-events x-graphics/enable-keyboard-focus diff --git a/v7/src/runtime/x11graph.scm b/v7/src/runtime/x11graph.scm index f34d953e7..138595720 100644 --- a/v7/src/runtime/x11graph.scm +++ b/v7/src/runtime/x11graph.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: x11graph.scm,v 1.37 1993/11/01 22:25:03 cph Exp $ +$Id: x11graph.scm,v 1.38 1993/12/05 06:15:08 cph Exp $ Copyright (c) 1989-1993 Massachusetts Institute of Technology @@ -48,7 +48,6 @@ MIT in each case. |# (x-display-get-default 3) (x-display-process-events 2) (x-font-structure 2) - (x-window-beep 1) (x-window-clear 1) (x-window-colormap 1) @@ -80,11 +79,12 @@ MIT in each case. |# (x-window-withdraw 1) (x-window-x-size 1) (x-window-y-size 1) - (x-graphics-copy-area 8) (x-graphics-drag-cursor 3) (x-graphics-draw-line 5) + (x-graphics-draw-lines 3) (x-graphics-draw-point 3) + (x-graphics-draw-points 3) (x-graphics-draw-string 4) (x-graphics-fill-polygon 2) (x-graphics-map-x-coordinate 2) @@ -100,14 +100,12 @@ MIT in each case. |# (x-graphics-set-line-style 2) (x-graphics-set-vdc-extent 5) (x-graphics-vdc-extent 1) - (x-bytes-into-image 2) (x-create-image 3) (x-destroy-image 1) (x-display-image 8) (x-get-pixel-from-image 3) (x-set-pixel-in-image 4) - (x-allocate-color 4) (x-create-colormap 3) (x-free-colormap 1) @@ -221,7 +219,9 @@ MIT in each case. |# (drag-cursor ,x-graphics/drag-cursor) (draw-image ,image/draw) (draw-line ,x-graphics/draw-line) + (draw-lines ,x-graphics/draw-lines) (draw-point ,x-graphics/draw-point) + (draw-points ,x-graphics/draw-points) (draw-subimage ,image/draw-subimage) (draw-text ,x-graphics/draw-text) (fill-polygon ,x-graphics/fill-polygon) @@ -622,9 +622,15 @@ MIT in each case. |# (x-graphics-draw-line (x-graphics-device/xw device) x-start y-start x-end y-end)) +(define (x-graphics/draw-lines device xv yv) + (x-graphics-draw-lines (x-graphics-device/xw device) xv yv)) + (define (x-graphics/draw-point device x y) (x-graphics-draw-point (x-graphics-device/xw device) x y)) +(define (x-graphics/draw-points device xv yv) + (x-graphics-draw-points (x-graphics-device/xw device) xv yv)) + (define (x-graphics/draw-text device x y string) (x-graphics-draw-string (x-graphics-device/xw device) x y string)) diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index b7b8fa532..c04c16c84 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: runtime.pkg,v 14.219 1993/11/29 23:10:53 cph Exp $ +$Id: runtime.pkg,v 14.220 1993/12/05 06:15:14 cph Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -2233,7 +2233,9 @@ MIT in each case. |# x-graphics/display x-graphics/drag-cursor x-graphics/draw-line + x-graphics/draw-lines x-graphics/draw-point + x-graphics/draw-points x-graphics/draw-text x-graphics/discard-events x-graphics/enable-keyboard-focus -- 2.25.1