Mercurial > rlm
diff src/rlm/visualize.clj @ 9:1065e7d615a4 tip
deactivate some cruft.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 08 Jul 2013 12:51:12 -0400 |
parents | 12d1367cf1aa |
children |
line wrap: on
line diff
1.1 --- a/src/rlm/visualize.clj Thu Jul 19 10:56:39 2012 -0500 1.2 +++ b/src/rlm/visualize.clj Mon Jul 08 12:51:12 2013 -0400 1.3 @@ -11,7 +11,7 @@ 1.4 1.5 (defmulti visual (fn [& args] (class (last args)))) 1.6 1.7 -(import '[org.scilab.forge.jlatexmath TeXConstants TeXFormula TeXIcon]) 1.8 +;;(import '[org.scilab.forge.jlatexmath TeXConstants TeXFormula TeXIcon]) 1.9 (import java.awt.Insets) 1.10 (import javax.swing.JLabel) 1.11 (import java.awt.Color) 1.12 @@ -32,20 +32,20 @@ 1.13 (visual (ImagePlus. "visual" image))) 1.14 1.15 1.16 -(defmethod visual TeXFormula 1.17 - [formula] 1.18 - (let [icon 1.19 - (doto (.createTeXIcon formula TeXConstants/STYLE_DISPLAY 30) 1.20 - (.setInsets (Insets. 5 5 5 5))) 1.21 - image (BufferedImage. (.getIconWidth icon) (.getIconHeight icon) 1.22 - BufferedImage/TYPE_INT_ARGB) 1.23 - g (.createGraphics image) 1.24 - jl (JLabel.)] 1.25 - (.setForeground jl (Color. 0 0 0)) 1.26 - (.setColor g Color/white) 1.27 - (.fillRect g 0 0 (.getIconWidth icon) (.getIconHeight icon)) 1.28 - (.paintIcon icon jl g 0 0) 1.29 - (visual image))) 1.30 +;; (defmethod visual TeXFormula 1.31 +;; [formula] 1.32 +;; (let [icon 1.33 +;; (doto (.createTeXIcon formula TeXConstants/STYLE_DISPLAY 30) 1.34 +;; (.setInsets (Insets. 5 5 5 5))) 1.35 +;; image (BufferedImage. (.getIconWidth icon) (.getIconHeight icon) 1.36 +;; BufferedImage/TYPE_INT_ARGB) 1.37 +;; g (.createGraphics image) 1.38 +;; jl (JLabel.)] 1.39 +;; (.setForeground jl (Color. 0 0 0)) 1.40 +;; (.setColor g Color/white) 1.41 +;; (.fillRect g 0 0 (.getIconWidth icon) (.getIconHeight icon)) 1.42 +;; (.paintIcon icon jl g 0 0) 1.43 +;; (visual image))) 1.44 1.45 1.46