diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-17 20:06:06 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-17 20:06:06 -0500 |
| commit | 8dbbb0e6a8495564f8b26baff8f540f7d5772903 (patch) | |
| tree | 83ec2b0a55a356627bf7b90c92c7a65f42904ea0 /examples/11-canvas-geometry.lisp | |
| parent | b5e69cfdb834546c2bfbae910686d42ab5255e78 (diff) | |
[example] bigger
Diffstat (limited to 'examples/11-canvas-geometry.lisp')
| -rw-r--r-- | examples/11-canvas-geometry.lisp | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/examples/11-canvas-geometry.lisp b/examples/11-canvas-geometry.lisp index 8c8082b..e36df6e 100644 --- a/examples/11-canvas-geometry.lisp +++ b/examples/11-canvas-geometry.lisp @@ -16,8 +16,8 @@ (defmethod ww:boot ((app geo-demo)) (let ((canvas (make-instance 'ww:canvas - :pixel-width 200 - :pixel-height 200))) + :pixel-width 500 + :pixel-height 500))) ;; stretch canvas over the whole app (setf (ww:width canvas) (ww::application-width app) (ww:height canvas) (ww::application-height app)) @@ -25,8 +25,11 @@ ;; add it to the display tree (ww:add-unit app canvas) + (ww::with-pixels-rect (x y r g b a) (canvas) + (ww::setf-many r g b 0)) + ;; draw a circle - (ww::with-grid-circle (x y) (150 50 30 :interiorp t) + (ww::with-grid-circle (x y) (350 100 90 :interiorp t) (ww::with-pixel (r g b a) (ww::pixel canvas x y) (setf r (mod (* 3 x y) 256) g (mod (+ x x) 256) @@ -34,9 +37,9 @@ ;; draw a bunch of circles (loop - for cx from 0 to 50 by 5 - for cy from 0 to 50 by 5 do - (ww::with-grid-circle (x y) ((+ 100 cx) (+ 100 cy) 10) + for cx from 0 to 50 + for cy from 0 to 50 do + (ww::with-grid-circle (x y) ((+ 300 cx) (+ 300 cy) 80) (ww::with-pixel (r g b a) (ww::pixel canvas x y) (setf r (mod (* x y) 256) g (mod (* x x) 256) @@ -45,8 +48,8 @@ ;; draw a random pentagonal thing (let ((path (loop repeat 7 - collect (list (+ 10 (random 80)) - (+ 10 (random 80)))))) + collect (list (+ 10 (random 240)) + (+ 10 (random 240)))))) (ww::with-grid-path (x y) (path :autoclosep t :interiorp t) (ww::with-pixel (r g b a) (ww::pixel canvas x y) (setf r (mod (* 2 y) 256) @@ -55,8 +58,8 @@ (let ((path (loop repeat 20 - collect (list (+ 10 (random 80)) - (+ 110 (random 80)))))) + collect (list (+ 10 (random 200)) + (+ 260 (random 200)))))) (ww::with-grid-path (x y) (path :autoclosep t) (ww::with-pixel (r g b a) (ww::pixel canvas x y) (setf r (mod (* 2 y) 256) |