S.Mustonen (1989)
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