Skip to content

Instantly share code, notes, and snippets.

@maxsu

maxsu/basic-2d.clj

Forked from Chouser/fractal.clj
Created May 9, 2009 07:51
Show Gist options
  • Save maxsu/109177 to your computer and use it in GitHub Desktop.
Save maxsu/109177 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
basic-2d.clj
(import '(java.awt Point Graphics Frame) '(java.awt.geom AffineTransform))
(def minpoint (doto (Point.) (.setLocation 0 0)))
(def maxpoint (doto (Point.) (.setLocation 1000 1000)))
(defn draw [pts #^Frame w]
(doseq [[x y] pts] (.fillRect (.getGraphics w) x y 1 1)))
(let [w (doto (Frame. "Bitmap") (.setSize 600 700) (.setVisible true))] ())
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment