samer@0: (import "java.awt.Color")
samer@0: 
samer@0: ;;; create a colormap of linear ramps
samer@0: (define (colormap n c0 . pairs)
samer@0: 	(define cramp (ColorRamp. n))
samer@0: 	(define (gradto pairs)
samer@0: 		(if (not (null? pairs))
samer@0: 			(begin
samer@0: 				(.gradientTo cramp (car pairs) (cadr pairs))
samer@0: 				(gradto (cddr pairs)))))
samer@0: 	(.set cramp 0 c0)
samer@0: 	(gradto pairs)
samer@0: 	(.getColorModel cramp))
samer@0: 
samer@0: (define (grey) ImageSourceBase.GREY$)
samer@0: (put "colormaps.grey" (grey))
samer@0: ;(put "colormaps.green" (green))
samer@0: 
samer@0: (define (green)
samer@0: 	(colormap 256
samer@0: 		Color.black$
samer@0: 		64 (Color. 0 80 0)
samer@0: 		128 (Color. 40 160 40)
samer@0: 		196 (Color. 120 220 120)
samer@0: 		255 (Color. 200 255 200)))
samer@0: 
samer@0: (define (redgreen)
samer@0: 	(colormap 256
samer@0: 		(Color. 255 140 140)
samer@0: 		64 (Color. 200 40 40)
samer@0: 		128 Color.black$
samer@0: 		196 (Color. 40 200 40)
samer@0: 		255 (Color. 140 255 140)))
samer@0: 
samer@0: (define (hot)
samer@0: 	(colormap 256
samer@0: 		(Color. 160 180 255)
samer@0: 		128 Color.black$
samer@0: 		196 (Color. 200 80 0)
samer@0: 		255 (Color. 255 200 60)))
samer@0: 
samer@0: (define (middle-map middle)
samer@0: 	(colormap 256 Color.black$ 128 middle 255 Color.white$))
samer@0: 
samer@0: ;these are middle maps
samer@0: ;(put "spectrum.trace.colormap" (cmap (Color. 180 100 40)))
samer@0: ;(put "colormap" (middle-map (Color. 210 40 40)))