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