Mercurial > rlm
comparison src/rlm/visualize.clj @ 4:12d1367cf1aa
updating various utilities
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 01 Mar 2012 05:47:23 -0700 |
parents | 78a630e650d2 |
children | 1065e7d615a4 |
comparison
equal
deleted
inserted
replaced
3:c8e35134bf8e | 4:12d1367cf1aa |
---|---|
17 (import java.awt.Color) | 17 (import java.awt.Color) |
18 | 18 |
19 | 19 |
20 (defmethod visual ImagePlus | 20 (defmethod visual ImagePlus |
21 [image] | 21 [image] |
22 (.show image) | 22 (.show image) image) |
23 image) | |
24 | 23 |
25 (defmethod visual (class 4) | 24 (defmethod visual (class 4) |
26 [color] | 25 [color] |
27 (let [image (BufferedImage. 200 200 BufferedImage/TYPE_INT_RGB)] | 26 (let [image (BufferedImage. 200 200 BufferedImage/TYPE_INT_RGB)] |
28 (doall (for [y (range 200) x (range 200)] (.setRGB image x y color))) | 27 (doall (for [y (range 200) x (range 200)] (.setRGB image x y color))) |