Käyttöympäristö tekstin ja numeerisen tiedon luovaan käsittelyyn

Survon PostScript-värejä

S.Mustonen (1990)

Toimituskenttä:

   1 *
   2 *HEADER=[TIMESB(18)][color(0,1,1,0)],SURVO_84C_PostScript_shadings
   3 *DATA SECTORS
   4 *_  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
   5 *_  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   6 *
   7 *PEN=[BLACK][Swiss(10)]  LINETYPE=[BLACK][line_width(1)]
   8 *PLOT SECTORS / TYPE=PIE DEVICE=PS,SECTORS.PS
   9 *FRAME=0 SIZE=1800,2000 XDIV=0,1800,0 YDIV=0,1800,200
  10 *LEGEND=-  HOME=150,500 FRAMES=F F=0,0,1800,2000,0
  11 *SHADING=0P,-1P,-2P,-3P,-4P,-5P,-6P,-7P,-8P,-9P,-10P,-11P,-12P,& 
  12 *       -13P,-14P,-15P,-16P,-17P,-18P,-19P,-20P,-21P,-22P,-23P
  13 *
  14 *[FILL-1]=1,0,0,0
  15 *[FILL-2]=0,1,0,0
  16 *[FILL-3]=0,0,1,0
  17 *[FILL-4]=0,0,0,1
  18 *[FILL-5]=1,1,0,0
  19 *[FILL-6]=1,0,1,0
  20 *[FILL-7]=0,1,1,0
  21 *[FILL-8]=1,0.5,0,0
  22 *[FILL-9]=0.5,1,0,0
  23 *[FILL-10]=1,0,0.5,0
  24 *[FILL-11]=0.5,0,1,0
  25 *[FILL-12]=0,1,0.5,0
  26 *[FILL-13]=0,0.5,1,0
  27 *[FILL-14]=1,0.3,0.3,0
  28 *[FILL-15]=0.3,1,0.3,0
  29 *[FILL-16]=0.3,0.3,1,0
  30 *[FILL-17]=1,1,0.3,0
  31 *[FILL-18]=1,0.3,1,0
  32 *[FILL-19]=0.3,1,1,0
  33 *[FILL-20]=1,0.5,0.2,0
  34 *[FILL-21]=1,0.2,0.5,0
  35 *[FILL-22]=0.5,1,0.2,0
  36 *[FILL-23]=0.5,0.2,1,0
  37 *.......................................................................
  38 *PRINT CUR+1,E TO EX.PS 
  39 & 28
  40 - picture SECTORS.PS,382,*,0.3,0.3
  41 - picture SECTORS.PS,1050,*,0.2,0.3
  42 & 10
  43 - picture SECTORS.PS,700,*,0.2,0.3,45
  44 - picture SECTORS.PS,1100,*,0.2,0.3,-45
  45 E
  46 *

  Hakemisto | Kuvasto | Edellinen | Seuraava