diff options
Diffstat (limited to 'graphics/circuit_macros/examples/extras/HSV.m4')
-rw-r--r-- | graphics/circuit_macros/examples/extras/HSV.m4 | 26 |
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 |