%! /mfb /Helvetica-Bold findfont 10 scalefont def /ssmfb /Helvetica-Bold findfont 8 scalefont def /eefb /Helvetica-Bold findfont 8 scalefont def /tmfb /Helvetica-Bold findfont 10 scalefont def /Helvetica-Bold findfont 30 scalefont setfont /square { 0 0 moveto 50 0 lineto 50 50 lineto 0 50 lineto 0 0 lineto 0 setgray 1.3 setlinewidth stroke } def /ssquare { /col exch def 0 0 moveto 20 0 lineto 20 20 lineto 0 20 lineto 0 0 lineto col 1 1 sethsbcolor fill } def /patD { /col exch def 20 0 moveto 30 0 lineto 10 50 lineto 0 50 lineto 0 40 lineto 20 0 lineto col 1 1 sethsbcolor fill 30 0 moveto 10 50 lineto 0 setgray 1.3 setlinewidth 20 0 moveto 0 40 lineto stroke stroke square } def /patS { /col exch def 50 20 moveto 50 30 lineto 30 50 lineto 20 50 lineto 50 20 lineto col 1 1 sethsbcolor fill 50 20 moveto 20 50 lineto 0 setgray 1.3 setlinewidth stroke 50 30 moveto 30 50 lineto stroke stroke square } def /patU { /col exch def 0 20 moveto 50 40 lineto 50 40 lineto 50 50 lineto 40 50 lineto 0 30 lineto 0 20 lineto col 1 1 sethsbcolor fill 0 20 moveto 50 40 lineto 0 setgray 1.3 setlinewidth stroke 0 30 moveto 40 50 lineto stroke square } def /patR { /col exch def 40 0 moveto 50 0 lineto 50 10 lineto 40 0 lineto col 1 1 sethsbcolor fill 40 0 moveto 50 10 lineto 0 setgray 1.3 setlinewidth stroke square } def /patL { /col exch def 0 0 moveto 10 0 lineto 0 10 lineto 0 0 lineto col 1 1 sethsbcolor fill 10 0 moveto 0 10 lineto 0 setgray 1.3 setlinewidth stroke square } def /BA { /C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def C1 patS C2 patU C3 patD C4 patR C5 patL square } def /RBA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 90 rotate 0 -50 translate C1 C2 C3 C4 C5 BA grestore } def /R2BA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 180 rotate -50 -50 translate C1 C2 C3 C4 C5 BA grestore } def /R3BA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 270 rotate -50 0 translate C1 C2 C3 C4 C5 BA grestore } def /SBA { /C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 BA grestore } def /SRBA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 RBA grestore } def /SR2BA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 R2BA grestore } def /SR3BA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 R3BA grestore } def /FA { /C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def C1 patD C2 patU C3 patS C4 patR C5 patL square } def /RFA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 90 rotate 0 -50 translate C1 C2 C3 C4 C5 FA grestore } def /R2FA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 180 rotate -50 -50 translate C1 C2 C3 C4 C5 FA grestore } def /R3FA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 270 rotate -50 0 translate C1 C2 C3 C4 C5 FA grestore } def /SFA { /C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 FA grestore } def /SRFA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 RFA grestore } def /SR2FA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 R2FA grestore } def /SR3FA {/C5 exch def /C4 exch def /C3 exch def /C2 exch def /C1 exch def gsave 1 -1 scale 0 -50 translate C1 C2 C3 C4 C5 R3FA grestore } def 175 200 translate gsave eefb setfont 0 10 neg moveto (BA) show .99 .4 .6 .8 .2 BA 75 0 translate 0 10 neg moveto (RBA) show .99 .4 .6 .8 .2 RBA 75 0 translate 0 10 neg moveto (R2BA) show .99 .4 .6 .8 .2 R2BA 75 0 translate 0 10 neg moveto (R3BA) show .99 .4 .6 .8 .2 R3BA 75 0 translate grestore 0 100 translate gsave eefb setfont 0 10 neg moveto (SBA) show .99 .4 .6 .8 .2 SBA 75 0 translate 0 10 neg moveto (SRBA) show .99 .4 .6 .8 .2 SRBA 75 0 translate 0 10 neg moveto (SR2BA) show .99 .4 .6 .8 .2 SR2BA 75 0 translate 0 10 neg moveto (SR3BA) show .99 .4 .6 .8 .2 SR3BA 75 0 translate grestore 0 100 translate gsave eefb setfont 0 10 neg moveto (FA) show .99 .4 .6 .8 .2 FA 75 0 translate 0 10 neg moveto (RFA) show .99 .4 .6 .8 .2 RFA 75 0 translate 0 10 neg moveto (R2FA) show .99 .4 .6 .8 .2 R2FA 75 0 translate 0 10 neg moveto (R3FA) show .99 .4 .6 .8 .2 R3FA 75 0 translate grestore 0 100 translate gsave eefb setfont 0 10 neg moveto (SFA) show .99 .4 .6 .8 .2 SFA 75 0 translate 0 10 neg moveto (SRFA) show .99 .4 .6 .8 .2 SRFA 75 0 translate 0 10 neg moveto (SR2FA) show .99 .4 .6 .8 .2 SR2FA 75 0 translate 0 10 neg moveto (SR3FA) show .99 .4 .6 .8 .2 SR3FA 75 0 translate grestore gsave 20 neg 130 translate .99 ssquare 75 0 translate .4 ssquare 75 0 translate .6 ssquare 75 0 translate .8 ssquare 75 0 translate .2 ssquare grestore gsave mfb setfont 16 neg 136 translate 0 0 moveto (C1) show 75 0 translate 0 0 moveto (C2) show 75 0 translate 0 0 moveto (C3) show 75 0 translate 0 0 moveto (C4) show 75 0 translate 0 0 moveto (C5) show grestore gsave 16 neg 110 translate ssmfb setfont 0 0 moveto (Each of the patterns below are called with input colors C1, C2, C3, C4 ,C5) show 0 10 neg moveto (the litle squares above are telling you where the colors C1, C2, C3, C4 ,C5) show 0 20 neg moveto (end up in each of the patterns) show grestore showpage