From 45b56c8a6cd1a8c0e3b0ddf8be85948fabc1df9b Mon Sep 17 00:00:00 2001 From: csr21 <unknown> Date: Wed, 25 Jun 2003 07:56:37 -0400 Subject: [PATCH] I think this was meant to be associated with demo/zoid.lisp. If so, it I think this was meant to be associated with demo/zoid.lisp. If so, it should be calling DRAW-FILLED-TRAPEZOIDS, not POLY-FILL-TRAPEZOIDS darcs-hash:20030625115637-ed5a3-e2ad8f9fa0ba4b35dddc31e545564cc21c655379.gz --- test/trapezoid.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/test/trapezoid.lisp b/test/trapezoid.lisp index 7b1a571..ff95942 100644 --- a/test/trapezoid.lisp +++ b/test/trapezoid.lisp @@ -21,9 +21,9 @@ (in-package :xlib) -(defun zoid-test (host) +(defun zoid-test () ;; Display the part picture in /extensions/test/datafile - (let* ((display (open-display host)) + (let* ((display (open-default-display)) (width 400) (height 400) (screen (display-default-screen display)) @@ -55,15 +55,15 @@ (when (zerop count) ;; Ignore all but the last exposure event (clear-area window) ;; NOT VERY INTERESTING, BUT CHECKS ALL THE POSSIBILITIES - (poly-fill-Trapezoids window gc '(10 20 30 40 100 200)) + (draw-filled-trapezoids window gc '(10 20 30 40 100 200)) (setf (gcontext-trapezoid-alignment gc) :y) - (poly-fill-Trapezoids window gc #(10 20 30 40 100 200)) + (draw-filled-trapezoids window gc #(10 20 30 40 100 200)) (with-gcontext (gc :trapezoid-alignment :x) - (poly-fill-Trapezoids window gc '(40 50 60 70 140 240))) + (draw-filled-trapezoids window gc '(40 50 60 70 140 240))) (setf (gcontext-trapezoid-alignment gc) :x) - (poly-fill-Trapezoids window gc #(40 50 60 70 80 90)) + (draw-filled-trapezoids window gc #(40 50 60 70 80 90)) (with-gcontext (gc :trapezoid-alignment :y) - (poly-fill-Trapezoids window gc #(40 50 60 70 140 240))) + (draw-filled-trapezoids window gc #(40 50 60 70 140 240))) (draw-glyphs window gc 10 10 "Press any key to exit") ;; Returning non-nil causes event-case to exit -- GitLab