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_new.ps
  device 2 postscript
  device 2 color
else if iflag = 1
  set ipl1na colormap_new.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 lcor; box x1 y1 x2 y2; move x3 y1; text lcor; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dsal; box x1 y1 x2 y2; move x3 y1; text dsal; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lsal; box x1 y1 x2 y2; move x3 y1; text lsal; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color crim; box x1 y1 x2 y2; move x3 y1; text crim; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dred; box x1 y1 x2 y2; move x3 y1; text dred; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lpin; box x1 y1 x2 y2; move x3 y1; text lpin; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color hpin; box x1 y1 x2 y2; move x3 y1; text hpin; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dpin; box x1 y1 x2 y2; move x3 y1; text dpin; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color pvre; box x1 y1 x2 y2; move x3 y1; text pvre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color toma; box x1 y1 x2 y2; move x3 y1; text toma; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dora; box x1 y1 x2 y2; move x3 y1; text dora; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lyel; box x1 y1 x2 y2; move x3 y1; text lyel; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lchi; box x1 y1 x2 y2; move x3 y1; text lchi; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color papw; box x1 y1 x2 y2; move x3 y1; text papw; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color moca; box x1 y1 x2 y2; move x3 y1; text moca; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ppuf; box x1 y1 x2 y2; move x3 y1; text ppuf; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color pgro; box x1 y1 x2 y2; move x3 y1; text pgro; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dkha; box x1 y1 x2 y2; move x3 y1; text dkha; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lave; box x1 y1 x2 y2; move x3 y1; text lave; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color fuch; box x1 y1 x2 y2; move x3 y1; text fuch; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mpur; box x1 y1 x2 y2; move x3 y1; text mpur; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color amet; box x1 y1 x2 y2; move x3 y1; text amet; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dvio; box x1 y1 x2 y2; move x3 y1; text dvio; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dmag; box x1 y1 x2 y2; move x3 y1; text dmag; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color indi; box x1 y1 x2 y2; move x3 y1; text indi; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color char; box x1 y1 x2 y2; move x3 y1; text char; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lagr; box x1 y1 x2 y2; move x3 y1; text lagr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lime; box x1 y1 x2 y2; move x3 y1; text lime; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ligr; box x1 y1 x2 y2; move x3 y1; text ligr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color odra; box x1 y1 x2 y2; move x3 y1; text odra; 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 oliv; box x1 y1 x2 y2; move x3 y1; text oliv; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dsgr; box x1 y1 x2 y2; move x3 y1; text dsgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lsgr; box x1 y1 x2 y2; move x3 y1; text lsgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dcya; box x1 y1 x2 y2; move x3 y1; text dcya; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color teal; box x1 y1 x2 y2; move x3 y1; text teal; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ptur; box x1 y1 x2 y2; move x3 y1; text ptur; 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 pblu; box x1 y1 x2 y2; move x3 y1; text pblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lskb; box x1 y1 x2 y2; move x3 y1; text lskb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dskb; box x1 y1 x2 y2; move x3 y1; text dskb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dodb; box x1 y1 x2 y2; move x3 y1; text dodb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color rblu; box x1 y1 x2 y2; move x3 y1; text rblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dblu; box x1 y1 x2 y2; move x3 y1; text dblu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color corn; box x1 y1 x2 y2; move x3 y1; text corn; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color blal; box x1 y1 x2 y2; move x3 y1; text blal; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color bisq; box x1 y1 x2 y2; move x3 y1; text bisq; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color navw; box x1 y1 x2 y2; move x3 y1; text navw; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color bwoo; box x1 y1 x2 y2; move x3 y1; text bwoo; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color rosb; box x1 y1 x2 y2; move x3 y1; text rosb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color sanb; box x1 y1 x2 y2; move x3 y1; text sanb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dgro; box x1 y1 x2 y2; move x3 y1; text dgro; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color peru; box x1 y1 x2 y2; move x3 y1; text peru; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color choc; box x1 y1 x2 y2; move x3 y1; text choc; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color sadb; box x1 y1 x2 y2; move x3 y1; text sadb; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color snow; box x1 y1 x2 y2; move x3 y1; text snow; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color hone; box x1 y1 x2 y2; move x3 y1; text hone; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mcre; box x1 y1 x2 y2; move x3 y1; text mcre; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color azur; box x1 y1 x2 y2; move x3 y1; text azur; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ablu; box x1 y1 x2 y2; move x3 y1; text ablu; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ghos; box x1 y1 x2 y2; move x3 y1; text ghos; 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 wsmo; box x1 y1 x2 y2; move x3 y1; text wsmo; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color seas; box x1 y1 x2 y2; move x3 y1; text seas; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color beig; box x1 y1 x2 y2; move x3 y1; text beig; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color oldl; box x1 y1 x2 y2; move x3 y1; text oldl; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color flor; box x1 y1 x2 y2; move x3 y1; text flor; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color ivor; box x1 y1 x2 y2; move x3 y1; text ivor; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color anti; box x1 y1 x2 y2; move x3 y1; text anti; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color line; box x1 y1 x2 y2; move x3 y1; text line; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color mros; box x1 y1 x2 y2; move x3 y1; text mros; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color gain; box x1 y1 x2 y2; move x3 y1; text gain; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color silv; box x1 y1 x2 y2; move x3 y1; text silv; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color dagr; box x1 y1 x2 y2; move x3 y1; text dagr; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color lslg; box x1 y1 x2 y2; move x3 y1; text lslg; let y1 = y1 - yinc; let y2 = y1 + 1.8
box fill color slgr; box x1 y1 x2 y2; move x3 y1; text slgr; let y1 = y1 - yinc; let y2 = y1 + 1.8
.
case asis
justification center
move 50 98
text New (2020/11) Colors
.
device 2 close
if iflag = 0
  system ps2pdf colormap_new.ps
end of if
.
quit