summaryrefslogtreecommitdiff
path: root/graphics/circuit_macros/examples/extras/HSV.m4
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/circuit_macros/examples/extras/HSV.m4')
-rw-r--r--graphics/circuit_macros/examples/extras/HSV.m426
1 files changed, 26 insertions, 0 deletions
diff --git a/graphics/circuit_macros/examples/extras/HSV.m4 b/graphics/circuit_macros/examples/extras/HSV.m4
new file mode 100644
index 0000000000..662184dd7d
--- /dev/null
+++ b/graphics/circuit_macros/examples/extras/HSV.m4
@@ -0,0 +1,26 @@
+.PS
+# hsv.m4
+gen_init
+NeedDpicTools
+
+define grid { (($2)*boxwid,($1)*boxht) }
+r = 0
+g = 0
+b = 1
+rgbtohsv(r,g,b,h,s,v)
+nstep = 4
+{ for j=0 to nstep do {
+ sprintf("%g",j/nstep) at ((0.5+j)*boxwid,-boxht/2) below } }
+ { "S" at ((0.5+nstep/2)*boxwid, -boxht) }
+{ for i=0 to nstep do { sprintf("%g",i/nstep) at (-boxht/3,(i)*boxht) } }
+ { "V" at (-boxht,(nstep/2)*boxht) \
+ "or" \
+ "L" }
+right_
+for v = 0 to nstep do {
+ { for s = 0 to nstep do { hsvtorgb(h,s/nstep,v/nstep,r,g,b)
+ box shaded rgbstring(r,g,b) } }
+ move up_ boxht; right_ }
+
+
+.PE