aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/02-image-transforms-and-events.lisp17
-rw-r--r--examples/03-font-render.lisp35
-rw-r--r--examples/12-canvas-drawing-language.lisp2
3 files changed, 26 insertions, 28 deletions
diff --git a/examples/02-image-transforms-and-events.lisp b/examples/02-image-transforms-and-events.lisp
index 9e4710f..b81f788 100644
--- a/examples/02-image-transforms-and-events.lisp
+++ b/examples/02-image-transforms-and-events.lisp
@@ -131,14 +131,15 @@
(defun start ()
- (ww::start (make-instance 'image-transforms-etc
- :scale 2.0
- :fps 60
- :width 800
- :height 600
- :asset-root (merge-pathnames
- "examples/"
- (asdf:system-source-directory :wheelwork)))))
+ (ww::start
+ (make-instance 'image-transforms-etc
+ :scale 2.0
+ :fps 60
+ :width 800
+ :height 600
+ :asset-root (merge-pathnames
+ "examples/"
+ (asdf:system-source-directory :wheelwork)))))
diff --git a/examples/03-font-render.lisp b/examples/03-font-render.lisp
index de3c487..66d097d 100644
--- a/examples/03-font-render.lisp
+++ b/examples/03-font-render.lisp
@@ -49,16 +49,13 @@
(defmethod ww::boot ((app font-display))
(let ((hello
- (make-instance
- 'ww::text
- ;:content "Hell! Oh World ..."
- :content (format nil "Hell!~%Oh World...")
- :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2))))
+ (make-instance 'ww::text
+ :content (format nil "Hell!~%Oh World...")
+ :font (ww::get-asset "Ticketing.ttf" :asset-args '(:oversample 2))))
(instructions
- (make-instance
- 'ww::text
- :content "Click to spin. Press any key to change color."
- :font (ww::get-asset "Ticketing.ttf"))))
+ (make-instance 'ww::text
+ :content "Click to spin. Press any key to change color."
+ :font (ww::get-asset "Ticketing.ttf"))))
(ww::scale-by hello 3.0)
(setf
@@ -77,16 +74,16 @@
(defun start ()
- (ww::start (make-instance
- 'font-display
- :fps 60
- :refocus-on-mousedown-p nil
- :width 800
- :height 600
- :title "Wheelwork Example: Font display"
- :asset-root (merge-pathnames
- "examples/"
- (asdf:system-source-directory :wheelwork)))))
+ (ww::start
+ (make-instance 'font-display
+ :fps 60
+ :refocus-on-mousedown-p nil
+ :width 800
+ :height 600
+ :title "Wheelwork Example: Font display"
+ :asset-root (merge-pathnames
+ "examples/"
+ (asdf:system-source-directory :wheelwork)))))
diff --git a/examples/12-canvas-drawing-language.lisp b/examples/12-canvas-drawing-language.lisp
index a727f7b..7c71dea 100644
--- a/examples/12-canvas-drawing-language.lisp
+++ b/examples/12-canvas-drawing-language.lisp
@@ -1,4 +1,4 @@
-;;;; examples/13-canvas-drawing-language.lisp
+;;;; examples/12-canvas-drawing-language.lisp
(defpackage #:ww.examples/12
(:use #:cl)