Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

58 lines (45 sloc) 1.209 kb
;; example 13-01
(use '(incanter core processing))
(view
(sketch
(setup []
(let [font (load-font this "examples/processing/data/Ziggurat-HTF-Black-32.vlw")]
(doto this
(text-font font)
smooth
(fill 0))))
(draw []
(doto this
;(text 9 0 40)
;(text 8 0 70)
;(text 7 0 100))))
;(text \L 0 40)
;(text \a 0 70)
;(text \F 0 100))))
(text "LAX" 0 40)
(text "AMS" 0 70)
(text "FRA" 0 100))))
:size [120 120])
(use '(incanter core processing))
;; use list-fonts to see the fonts available on the current system
;; (list-fonts)
(view
(sketch
(setup []
(let [font (create-font this "Chalkboard" 48 true)]
(doto this
(text-font font)
;smooth
(fill 0))))
(draw []
(doto this
;(text 9 0 40)
;(text 8 0 70)
;(text 7 0 100))))
;(text \L 0 40)
;(text \a 0 70)
;(text \F 0 100))))
(text "LAX" 0 40)
(text "AMS" 0 70)
(text "FRA" 0 100))))
:size [120 120])
Jump to Line
Something went wrong with that request. Please try again.