Skip to content
Snippets Groups Projects
Commit 45b56c8a authored by csr21's avatar csr21
Browse files

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
parent b6359115
No related branches found
No related tags found
No related merge requests found
...@@ -21,9 +21,9 @@ ...@@ -21,9 +21,9 @@
(in-package :xlib) (in-package :xlib)
(defun zoid-test (host) (defun zoid-test ()
;; Display the part picture in /extensions/test/datafile ;; Display the part picture in /extensions/test/datafile
(let* ((display (open-display host)) (let* ((display (open-default-display))
(width 400) (width 400)
(height 400) (height 400)
(screen (display-default-screen display)) (screen (display-default-screen display))
...@@ -55,15 +55,15 @@ ...@@ -55,15 +55,15 @@
(when (zerop count) ;; Ignore all but the last exposure event (when (zerop count) ;; Ignore all but the last exposure event
(clear-area window) (clear-area window)
;; NOT VERY INTERESTING, BUT CHECKS ALL THE POSSIBILITIES ;; 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) (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) (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) (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) (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") (draw-glyphs window gc 10 10 "Press any key to exit")
;; Returning non-nil causes event-case to exit ;; Returning non-nil causes event-case to exit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment