device 1 x11
. device 1 font simplex
erase
pre-erase off
. let iflag = 0; . PDF output
let iflag = 1; . SVG output
if iflag = 0
  set ipl1na colormap.ps
  device 2 postscript
  device 2 color
else if iflag = 1
  set ipl1na colormap.svg
  device 2 svg 640 400
end of if
.
thickness 0.15
title size 5
tic label size 5
label size 5
height 2
.
let x1 = 5
let xinc = 10
let x2 = x1 + xinc
let x3 = x2 + 1
let yinc = 3
let y1 = 95
. margin x1
. vertical spacing 3
. crlf on
. line thickness 2.5
. line thickness 10
box fill pattern solid
box shadow hw 0 0
.
let y2 = y1 + 1.8
box fill color white; box x1 y1 x2 y2; move x3 y1; text white; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color black; box x1 y1 x2 y2; move x3 y1; text black; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color red; box x1 y1 x2 y2; move x3 y1; text red; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color blue; box x1 y1 x2 y2; move x3 y1; text blue; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color green; box x1 y1 x2 y2; move x3 y1; text green; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color magenta; box x1 y1 x2 y2; move x3 y1; text magenta; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color orange; box x1 y1 x2 y2; move x3 y1; text orange; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cyan; box x1 y1 x2 y2; move x3 y1; text cyan; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color yellow; box x1 y1 x2 y2; move x3 y1; text yellow; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ygre; box x1 y1 x2 y2; move x3 y1; text ygre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dgre; box x1 y1 x2 y2; move x3 y1; text dgre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lblu; box x1 y1 x2 y2; move x3 y1; text lblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color vblu; box x1 y1 x2 y2; move x3 y1; text vblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color vred; box x1 y1 x2 y2; move x3 y1; text vred; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dgra; box x1 y1 x2 y2; move x3 y1; text dgra; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lgra; box x1 y1 x2 y2; move x3 y1; text lgra; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color aqua; box x1 y1 x2 y2; move x3 y1; text aqua; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color brow; box x1 y1 x2 y2; move x3 y1; text brown; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cabl; box x1 y1 x2 y2; move x3 y1; text cabl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color coral; box x1 y1 x2 y2; move x3 y1; text coral; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cblu; box x1 y1 x2 y2; move x3 y1; text cblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dogr; box x1 y1 x2 y2; move x3 y1; text dogr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dorc; box x1 y1 x2 y2; move x3 y1; text dorc; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dsbl; box x1 y1 x2 y2; move x3 y1; text dsbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dtur; box x1 y1 x2 y2; move x3 y1; text dtur; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color fire; box x1 y1 x2 y2; move x3 y1; text fire; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color fgre; box x1 y1 x2 y2; move x3 y1; text fgre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gold; box x1 y1 x2 y2; move x3 y1; text gold; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gldr; box x1 y1 x2 y2; move x3 y1; text gldr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gray; box x1 y1 x2 y2; move x3 y1; text gray; let y1 = y1 - yinc; let y2 = y1 + 1.8
.
let x1 = 30
let x2 = x1 + xinc
let x3 = x2 + 1
let y1 = 95
let y2 = y1 + 1.8
box fill color ired; box x1 y1 x2 y2; move x3 y1; text ired; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color khak; box x1 y1 x2 y2; move x3 y1; text khak; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dmgr; box x1 y1 x2 y2; move x3 y1; text dmgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lsbl; box x1 y1 x2 y2; move x3 y1; text lsbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lgre; box x1 y1 x2 y2; move x3 y1; text lgre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color maro; box x1 y1 x2 y2; move x3 y1; text maroon; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color maqu; box x1 y1 x2 y2; move x3 y1; text maqu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mblu; box x1 y1 x2 y2; move x3 y1; text mblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mfgr; box x1 y1 x2 y2; move x3 y1; text mfgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mgld; box x1 y1 x2 y2; move x3 y1; text mgld; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color morc; box x1 y1 x2 y2; move x3 y1; text morc; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color msgr; box x1 y1 x2 y2; move x3 y1; text msgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color msbl; box x1 y1 x2 y2; move x3 y1; text msbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mspg; box x1 y1 x2 y2; move x3 y1; text mspg; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mtur; box x1 y1 x2 y2; move x3 y1; text mtur; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mvrd; box x1 y1 x2 y2; move x3 y1; text mvrd; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mdbl; box x1 y1 x2 y2; move x3 y1; text mdbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color navy; box x1 y1 x2 y2; move x3 y1; text navy; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ored; box x1 y1 x2 y2; move x3 y1; text ored; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color orch; box x1 y1 x2 y2; move x3 y1; text orch; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color pgre; box x1 y1 x2 y2; move x3 y1; text pgre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color pink; box x1 y1 x2 y2; move x3 y1; text pink; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color plum; box x1 y1 x2 y2; move x3 y1; text plum; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color purp; box x1 y1 x2 y2; move x3 y1; text purple; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color salm; box x1 y1 x2 y2; move x3 y1; text salmon; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color sgre; box x1 y1 x2 y2; move x3 y1; text sgre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color sien; box x1 y1 x2 y2; move x3 y1; text sienna; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color skbl; box x1 y1 x2 y2; move x3 y1; text skbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color sblu; box x1 y1 x2 y2; move x3 y1; text sblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color spgr; box x1 y1 x2 y2; move x3 y1; text spgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
.
let x1 = 55
let x2 = x1 + xinc
let x3 = x2 + 1
let y1 = 95
let y2 = y1 + 1.8
box fill color stbl; box x1 y1 x2 y2; move x3 y1; text stbl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color tan; box x1 y1 x2 y2; move x3 y1; text tan; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color this; box x1 y1 x2 y2; move x3 y1; text thistle; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color turq; box x1 y1 x2 y2; move x3 y1; text turquoise; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color viol; box x1 y1 x2 y2; move x3 y1; text violet; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color whea; box x1 y1 x2 y2; move x3 y1; text wheat; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gyel; box x1 y1 x2 y2; move x3 y1; text gyel; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lcya; box x1 y1 x2 y2; move x3 y1; text lcyan; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color blu2; box x1 y1 x2 y2; move x3 y1; text blu2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color blu3; box x1 y1 x2 y2; move x3 y1; text blu3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color blu4; box x1 y1 x2 y2; move x3 y1; text blu4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cya2; box x1 y1 x2 y2; move x3 y1; text cya2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cya3; box x1 y1 x2 y2; move x3 y1; text cya3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color cya4; box x1 y1 x2 y2; move x3 y1; text cya4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gre2; box x1 y1 x2 y2; move x3 y1; text gre2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gre3; box x1 y1 x2 y2; move x3 y1; text gre3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gre4; box x1 y1 x2 y2; move x3 y1; text gre4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color yel2; box x1 y1 x2 y2; move x3 y1; text yel2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color yel3; box x1 y1 x2 y2; move x3 y1; text yel3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color yel4; box x1 y1 x2 y2; move x3 y1; text yel4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ora2; box x1 y1 x2 y2; move x3 y1; text ora2; let y1 = y1 - yin
box fill color ora3; box x1 y1 x2 y2; move x3 y1; text ora3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ora4; box x1 y1 x2 y2; move x3 y1; text ora4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color red2; box x1 y1 x2 y2; move x3 y1; text red2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color red3; box x1 y1 x2 y2; move x3 y1; text red3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color red4; box x1 y1 x2 y2; move x3 y1; text red4; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mag2; box x1 y1 x2 y2; move x3 y1; text mag2; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mag3; box x1 y1 x2 y2; move x3 y1; text mag3; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mag4; box x1 y1 x2 y2; move x3 y1; text mag4; let y1 = y1 - yinc; let y2 = y1 + 1.8
.
let x1 = 80
let x2 = x1 + xinc
let x3 = x2 + 1
let y1 = 95
let y2 = y1 + 1.8
box fill color g10; box x1 y1 x2 y2; move x3 y1; text g10; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g20; box x1 y1 x2 y2; move x3 y1; text g20; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g30; box x1 y1 x2 y2; move x3 y1; text g30; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g40; box x1 y1 x2 y2; move x3 y1; text g40; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g50; box x1 y1 x2 y2; move x3 y1; text g50; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g60; box x1 y1 x2 y2; move x3 y1; text g60; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g70; box x1 y1 x2 y2; move x3 y1; text g70; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g80; box x1 y1 x2 y2; move x3 y1; text g80; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color g90; box x1 y1 x2 y2; move x3 y1; text g90; let y1 = y1 - yinc; let y2 = y1 + 1.8
.
case asis
justification center
move 50 98
text Original (89) Colors
.
device 2 close
if iflag = 0
  system ps2pdf colormap.ps
end of if
.
quit