Skip to content

Instantly share code, notes, and snippets.

@nbeloglazov

nbeloglazov/flipping.clj

Created July 20, 2017 03:38
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save nbeloglazov/5bdd59a6935bdcec8ebfeed005d394b8 to your computer and use it in GitHub Desktop.
Save nbeloglazov/5bdd59a6935bdcec8ebfeed005d394b8 to your computer and use it in GitHub Desktop.
Download ZIP
Flipping drawing
Raw
flipping.clj
(ns test.core
(:require [quil.core :as q]))
(defn draw []
(q/background 255)
(q/fill 0)
(q/with-translation [(/ (q/width) 2)
(/ (q/height) 2)]
(q/apply-matrix
1 0 0
0 -1 0)
(q/triangle 0 0 100 0 100 100)
(q/text "Hello" 0 100 )))
(q/defsketch my-sketch
:draw draw
:size [500 500])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment