Environment for creative processing of text and numerical data

Bar chart and pie chart

S.Mustonen (1989)

Edit field:

   1 *SAVE COLOR5
   2 *LOAD COLOR6
   3 *   *GLOBAL*    a=1400-2*d  b=850  c=500  d=20  dimensions
   4 *SHADING=-1,-2,-3,-4,-5
   5 *[FILL-1]=0,0,1,0  [FILL-2]=1,0,0,0  [FILL-3]=0,1,0,0 [FILL-4]=1,0,1,0
   6 *[FILL-5]=1,1,0,0
   7 *.......................................................................
   8 *DATA FINLAND,S,S,M
   9 *DATA COUNTRIES,A,B,M
  10 M COUNTRY _0-14 15-24 25-44 45-64   65-
  11 A Sweden    841   571  1188   930   585
  12 * Denmark   564   385   731   537   308
  13 S Finland   506   399   727   468   202
  14 * Norway    474   316   534   442   251
  15 B Iceland    32    22    29    20    10
  16 *HOME=280,400  SIZE=a,b  XDIV=250,c,a-c-250  YDIV=220,b-300,80
  17 *HEADER=[MAIN][TIMES(14)],Males_by_age_group  LEGEND=_Age:
  18 *GRID=[line_type(2)][line_width(0.48)],X  TICK=[line_width(0.24)],100
  19 *XSCALE=[INDEX],0,1000:1,2000:2,3000:3,4000:4,5000:5_mil.
  20 *PLOT COUNTRIES   / DEVICE=PS,BAR2.PS  PEN=[TIMES(11)]
  21 *LINETYPE=[line_type(0)][line_width(1)][line_color(0)]
  22 *TEXTS=A,B A=[INDEX],SURVO_84C_graphics,0,-50
  23 *          B=[INDEX],27_Dec_1989/SM,a-200,-50
  24 *
  25 *FRAMES=I,J  I=[line_width(3)][line_color(0.5)],-d,-d,a+2*d,b+2*d,0
  26 *            J=[line_width(0.24)],0,0,a,b,-10
  27 *[FILL-10]=0.1,0.1,0.2,0.05
  28 *.......................................................................
  29 *PLOT FINLAND   / DEVICE=PS,PIE2.PS  PEN=[TIMES(11)]
  30 *TYPE=%PIE  HOME=280+c+260,400 SIZE=c,b
  31 *XDIV=0,1,0  FRAME=0 LEGEND=- HEADER=
  32 *LINETYPE=[line_type(0)][line_width(1)][line_color(0)]
  33 *VALUES=[INDEX],##%,11.5
  34 *SHADING=-1,-2,-3,-4,-5P
  35 *.......................................................................
  36 *
  37 *PRINT CUR+1,E TO EX.PS 
  38 & 25  (25 empty lines for the picture)
  39 - picture BAR2.PS,400,*
  40 - picture PIE2.PS,1170,*
  41 E
  42 *

  Index | Catalog | Previous | Next