gist: 109177


  
    
      basic-2d.clj #
    
    
      
      
        embed
        
      
      
      
      raw
    
  
  
  
    
      
        
          
            
            1
2
3
4
5
6
7
8
9
10
11

          
          
            
              (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))] ())
Public Clone URL:	git://gist.github.com/109177.git Give this clone URL to anyone. `git clone git://gist.github.com/109177.git gist-109177`
Embed All Files:	show embed