Numerit[WIN32][1700][1703]C Y #\\pc9568\x\num\num1.6\progs\pcolor1 qffffff)@j@fffffvq@?@ffffff9@?@ffffff9@ffffff)@ffffff)@         Times New RomanArialSymbol Courier NewVerdana I """""Q@"""""Q@xyzc@o@@o@ >==>>?? -110.20.010.01 -110.50.010.010.13531I xwwwwcR@9&@sczscc p@$@ >==>>?? -1.51.50.50.010.01 -2210.010.01-11I """""Q@"""""Q@xyz@o@@o@ >==>>?? -110.20.010.01 -110.50.010.010.13531vvvpvvvpvvvpvvvpvvvpvvvpKvvv)ܕB $*A gray-scale image of Z !A pseudo-color image of Zvvv)ܕB$0' ) 7 # ivvv)ܕB $*The only difference between the two images is the use of 'c' as the color table in the right image.vvv)ܕB vvv)ܕB $*The pseudo-color scale vvv)ܕB$0% vvv)ܕB pvvv)ܕB vvv)ܕB  q8ffffff)@j@fffffvq@?@ffffff9@?@ffffff9@ffffff)@ffffff)@         Times New RomanArialSymbol Courier New Q0` This sample program demonstrates how to define5` a color table to display an image in pseudo-colors.-` The color table is created by interpolation-` of a short table with key colors. The first*` row defines the color at the minimum and'` the last raw defines the color at the ` maximum.func ColorTable(cc,n)0` create a color-table by linear interpolationnn = length(cc) n1 = nn[1]-1 i = 0 to n1ii = 0 to n1 len nc[n,3]:0%c[*,1] = round(linterp(cc[*,1],i,ii))%c[*,2] = round(linterp(cc[*,2],i,ii))%c[*,3] = round(linterp(cc[*,3],i,ii)) return cfunc Scale(d,c,zsc,sc)` define a pseudo-color scale one[10]:1nc = length(c)zsc = one(*)(0 to nc[1]-1)sc = min(d),max(d)` tables with key colorsc_rainbow_lo =120,0,120 ` magenta0,0,200 ` blue0,220,220 ` cyan0,255,0 ` green255,255,0 ` yellow255,0,0 ` redc_rainbow_hi =255,0,255 ` magenta0,0,255 ` blue0,255,255 ` cyan0,255,0 ` green255,255,0 ` yellow255,0,0 ` red c_bgr_lo =0,0,120 ` blue0,200,200 ` cyan0,225,0 ` green255,255,0 ` yellow255,0,0 ` red c_bgr_hi =0,0,255 ` blue0,255,255 ` cyan0,255,0 ` green255,255,0 ` yellow255,0,0 ` red c_lo_hi =0,0,600,0,900,90,120 0,150,1200,180,060,220,0 220,220,0 255,180,0255,0,0n = 256c = ColorTable(c_rainbow_lo,n) ` The image!x = 0 to 3 len 250 ` x-coordinate!y = 1 to 4 len 250 ` y-coordinate;z = sin(y*y) (*) cos(x*x) ` a 2-d image using outer-product*` The scale: 'zsc' is a [10,n] image whose)` value changes linearly along the x-axis%Scale(z,c,zsc,sc) `` define the scalec:\num\num1.7\samples\  c_rainbow_lo c_rainbow_hi c_bgr_lo c_bgr_hic_lo_hinc x y z zsc sc                     #                  +              2               9                       E F <I   fJ  fK  B  BK O  <? ColorTable ColorTableccnnnn1iiic K  4 A   e   f  4 , 4 4   4 4   4 4   => ScaleScaledczscsconenc  4 ,    4 A eK  5> 1?03@2@10$@120^@200i@220k@255o@225 l@60N@90V@150b@180f@256p@250@o@4@