divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`BOTTOM',1)
define(`LEFT',2)
define(`TOP',3)
define(`RIGHT',4)
define(`AXIS',`
ifelse($1,BOTTOM,call stdaxz(BOTTOM,CHARMAKE(ifix(am(103))),$2,$3,ifix(am(57)),2),
	$1,LEFT,call stdaxz(LEFT,CHARMAKE(ifix(am(108))),$2,$3,ifix(am(58)),2),
	if(mod(BOTTOM,2)==1) call stdaxz($1,CHARMAKE(ifix(am(103))),$2,$3,ifix(am(57)),2)
	else             call stdaxz(LEFT,CHARMAKE(ifix(am(108))),$2,$3,ifix(am(58)),2)
)')
define(`SPECIFY',`{ SPlst($*) }')
define(`SPlst',`ifelse($1,,,`SP$1; SPlst(shift($*))')')
define(`QUERY',`{ QUlst($*) }')
define(`QUlst',`ifelse($1,,,`QU$1; QUlst(shift($*))')')
define(`SP1em',`
am(72) = $1
am(73) = $2
')
define(`SPacc',`
am(130) = $1
')
define(`SPadj',`
am(100) = $1
')
define(`SPaxp',`
if(mod($1,2)==0)ixxxx1 = 109; else ixxxx1 = 104
ifelse($2,,,am(ixxxx1-2) = ICHAR($2))
ifelse($3,,,am(ixxxx1-1) = ICHAR($3))
ifelse($4,,,am(ixxxx1) = $4)
ifelse($5,,,am(ixxxx1+1) = $5)
ifelse($6,,,am(ixxxx1+2) = $6)
')
define(`SPxaxp',`
ifelse($1,,,am(104) = $1)
ifelse($2,,,am(105) = $2)
ifelse($3,,,am(106) = $3)
')
define(`SPyaxp',`
ifelse($1,,,am(109) = $1)
ifelse($2,,,am(110) = $2)
ifelse($3,,,am(111) = $3)
')
define(`SPaxs',`
if(mod($1,2)==1) am(103) = ICHAR($2)
else am(108) = ICHAR($2)
')
define(`SPxaxs',`
am(103) = ICHAR($1)
')
define(`SPyaxs',`
am(108) = ICHAR($1)
')
define(`SPaxt',`
if(mod($1,2)==1) am(102) = ICHAR($2)
else am(107) = ICHAR($2)
')
define(`SPxaxt',`
am(102) = ICHAR($1)
')
define(`SPyaxt',`
am(107) = ICHAR($1)
')
define(`SPblk',`
am(60) = ICHAR($1)
')
define(`SPbty',`
am(119) = ICHAR($1)
')
define(`SPcas',`
if($1=="l")am(78) = 2.
else if($1=="u")am(78) = 1.
else am(78) = 0.
')
define(`SPcex',`
rxxxx1 = $1
call spcexz(rxxxx1)
')
define(`SPcol',`
am(10) = $1
')
define(`SPcrt',`
am(48) = $1
call zcsizz
')
define(`SPcsc',`
am(89) = $1
')
define(`SPcsi',`
rxxxx1 = $1
call spcsiz(rxxxx1)
')
define(`SPcsm',`
if($1=="a")am(69) = 0.; else am(69) = 1.
call zzcsmz(ifix(am(69)))
call zzpltz
')
define(`SPcsr',`
rxxxx1 = $1
call spcsrz(rxxxx1)
')
define(`SPcty',`
am(11) = $1
')
define(`SPdev',`
am(30) = $1
')
define(`SPerr',`
am(96) = $1
')
define(`SPexp',`
am(131) = $1
')
define(`SPfig',`
rxxxx1 = $1; rxxxx2 = $2; rxxxx3 = $3; rxxxx4 = $4
call spfigz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
')
define(`SPfnt',`
am(79) = $1
')
define(`SPfrm',`
am(49) = $1
')
define(`SPfty',`
am(122) = ICHAR($1)
call zzfigz
')
define(`SPlab',`
ifelse($1,,,am(57) = $1)
ifelse($2,,,am(58) = $2)
ifelse($3,,,am(59) = $3)
')
define(`SPlas',`
am(115) = $1
')
define(`SPlpp',`
ifelse($1,,,am(6) = $1)
ifelse($2,,,am(7) = $2)
')
define(`SPlty',`
am(8) = $1
')
define(`SPlwd',`
am(9) = $1
')
define(`SPmai',`
ifelse($1,,,am(50) = $1)
ifelse($2,,,am(51) = $2)
ifelse($3,,,am(52) = $3)
ifelse($4,,,am(53) = $4)
call zzpltz
')
define(`SPmar',`
rxxxx1 = $1; rxxxx2 = $2; rxxxx3 = $3; rxxxx4 = $4
call spmarz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
')
define(`SPmex',`
rxxxx1 = $1
call spmexz(rxxxx1)
')
define(`SPmfg',`
ifelse($1,,,am(80) = $1)
ifelse($2,,,am(81) = $2)
ifelse($3,,,am(82) = $3)
ifelse($4,,,am(83) = $4)
call zzfigz
')
define(`SPmfrow',`
call mfrowz(ifelse($1,,1,$1),ifelse($2,,1,$2))
')
define(`SPmfcol',`
call mfcolz(ifelse($1,,1,$1),ifelse($2,,1,$2))
')
define(`SPmgp',`
ifelse($1,,,am(112) = $1)
ifelse($2,,,am(113) = $2)
ifelse($3,,,am(114) = $3)
')
define(`SPmkh',`
am(128) = $1
')
define(`SPncp',`
ifelse($1,,,am(86) = $1)
ifelse($2,,,am(87) = $2)
')
define(`SPnew',`
if ($1)	am(121) = 0.0
else am(121) = 1.0
')
define(`SPoma',`
rxxxx1 = $1; rxxxx2 = $2; rxxxx3 = $3; rxxxx4 = $4
call spomaz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
')
define(`SPomd',`
am121 = am(121)
ifelse($1,,,am(90) = $1)
ifelse($2,,,am(91) = $2)
ifelse($3,,,am(92) = $3)
ifelse($4,,,am(93) = $4)
call zzfigz
am(121) = am121
')
define(`SPomi',`
rxxxx1 = $1; rxxxx2 = $2; rxxxx3 = $3; rxxxx4 = $4
call spomiz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
')
define(`SPomo',`
call spomoz($1)
')
define(`SPpch',`
am(15) = ICHAR($1)
')
define(`SPplt',`
ifelse($1,,,am(40) = $1)
ifelse($2,,,am(41) = $2)
ifelse($3,,,am(42) = $3)
ifelse($4,,,am(43) = $4)
call zscalz
')
define(`SPpty',`
call spptyz($1)
')
define(`SPsmo',`
am(94) = $1
')
define(`SPsrt',`
am(14) = $1
am(48) = $1
call zcsizz
')
define(`SPtck',`
am(66) = $1
')
define(`SPtsp',`
ifelse($1,,,am(116) = $1)
ifelse($2,,,am(117) = $2)
ifelse($3,,,am(118) = $3)
')
define(`SPusr',`
ifelse($1,,,am(61) = $1)
ifelse($2,,,am(62) = $2)
ifelse($3,,,am(63) = $3)
ifelse($4,,,am(64) = $4)
call zscalz
')
define(`SPxpd',`
if ($1) am(65) = 1.0
else am(65) = 0.0
call zscalz
')
define(`SPask',`
if ($1) am(16) = 1.0
else am(16) = 0.0
')
define(`QU1em',`
ifelse($1,,,$1 = am(72))
ifelse($2,,,$2 = am(73))
')
define(`QUacc',`
$1 = am(130)
')
define(`QUadj',`
$1 = am(100)
')
define(`QUaxp',`
if(mod($1,2)==0)ixxxx1 = 109; else ixxxx1 = 104
ifelse($2,,,$2 = CHARMAKE(ifix(am(ixxxx1-2))))
ifelse($3,,,$3 = CHARMAKE(ifix(am(ixxxx1-1))))
ifelse($4,,,$4 = am(ixxxx1))
ifelse($5,,,$5 = am(ixxxx1+1))
ifelse($6,,,$6 = am(ixxxx1+2))
')
define(`QUxaxp',`
ifelse($1,,,$1 = am(104))
ifelse($2,,,$2 = am(105))
ifelse($3,,,$3 = am(106))
')
define(`QUyaxp',`
ifelse($1,,,$1 = am(109))
ifelse($2,,,$2 = am(110))
ifelse($3,,,$3 = am(111))
')
define(`QUaxs',`
if (mod($1,2)==1) $2 = CHARMAKE(ifix(am(103)))
else    $2 = CHARMAKE(ifix(am(108)))
')
define(`QUxaxs',`
$1 = CHARMAKE(ifix(am(103)))
')
define(`QUyaxs',`
$1 = CHARMAKE(ifix(am(108)))
')
define(`QUaxt',`
if(mod($1,2)==1) $2 = CHARMAKE(ifix(am(102)))
else   $2 = CHARMAKE(ifix(am(107)))
')
define(`QUxaxt',`
$1 = CHARMAKE(ifix(am(102)))
')
define(`QUyaxt',`
$1 = CHARMAKE(ifix(am(107)))
')
define(`QUblk',`
$1 = CHARMAKE(ifix(am(60)))
')
define(`QUbty',`
$1 = CHARMAKE(ifix(am(119)))
')
define(`QUcas',`
if(am(78)>1.)$1 = "l"
else if(am(78)>0.)$1 = "u"
else $1 = "a"
')
define(`QUcex',`
$1 = am(18)/am(89)
')
define(`QUcin',`
ifelse($1,,,$1 = am(74))
ifelse($2,,,$2 = am(75))
')
define(`QUcol',`
$1 = am(10)
')
define(`QUcra',`
ifelse($1,,,$1 = am(20))
ifelse($2,,,$2 = am(21))
')
define(`QUcrt',`
$1 = am(48)
')
define(`QUcsc',`
$1 = am(89)
')
define(`QUcsi',`
$1 = am(75)
')
define(`QUcsm',`
if (am(69)!= 0.) $1 = "r"
else $1 = "a"
')
define(`QUcsr',`
$1 = am(84)
')
define(`QUcty',`
$1 = am(11)
')
define(`QUcxy',`
ifelse($1,,,$1 = am(67))
ifelse($2,,,$2 = am(68))
')
define(`QUdev',`
$1 = am(30)
')
define(`QUdin',`
ifelse($1,,,$1 = am(98))
ifelse($2,,,$2 = am(99))
')
define(`QUerr',`
$1 = am(96)
')
define(`QUexp',`
$1 = am(131)
')
define(`QUfig',`
ifelse($1,,,$1 = am(44))
ifelse($2,,,$2 = am(45))
ifelse($3,,,$3 = am(46))
ifelse($4,,,$4 = am(47))
')
define(`QUfin',`
ifelse($1,,,$1 = am(123))
ifelse($2,,,$2 = am(124))
')
define(`QUfnt',`
$1 = am(79)
')
define(`QUfrm',`
$1 = am(49)
')
define(`QUfty',`
$1 = CHARMAKE(ifix(am(122)))
')
define(`QUlab',`
ifelse($1,,,$1 = am(57))
ifelse($2,,,$2 = am(58))
ifelse($3,,,$3 = am(59))
')
define(`QUlas',`
$1 = am(115)
')
define(`QUlpp',`
ifelse($1,,,$1 = am(6))
ifelse($2,,,$2 = am(7))
')
define(`QUlty',`
$1 = am(8)
')
define(`QUlwd',`
$1 = am(9)
')
define(`QUmai',`
ifelse($1,,,$1 = am(50))
ifelse($2,,,$2 = am(51))
ifelse($3,,,$3 = am(52))
ifelse($4,,,$4 = am(53))
')
define(`QUmar',`
QUcex(rxxxx1)
rxxxx1 = amax1(am(74),am(75))*am(54)/rxxxx1
ifelse($1,,,$1 = am(50)/rxxxx1)
ifelse($2,,,$2 = am(51)/rxxxx1)
ifelse($3,,,$3 = am(52)/rxxxx1)
ifelse($4,,,$4 = am(53)/rxxxx1)
')
define(`QUmex',`
$1 = am(54)
')
define(`QUmfg',`
ifelse($3,,,$3 = am(82))
ifelse($4,,,$4 = am(83))
ifelse($1,,,$1 = am(80))
ifelse($2,,,$2 = am(81))
')
define(`QUmgp',`
ifelse($1,,,$1 = am(112))
ifelse($2,,,$2 = am(113))
ifelse($3,,,$3 = am(114))
')
define(`QUmkh',`
$1 = am(128)
')
define(`QUncp',`
ifelse($1,,,$1 = am(86))
ifelse($2,,,$2 = am(87))
')
define(`QUnew',`
$1 = am(121)<0.5
')
define(`QUoma',`
call quomaz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
ifelse($1,,,$1 = rxxxx1)
ifelse($2,,,$2 = rxxxx2)
ifelse($3,,,$3 = rxxxx3)
ifelse($4,,,$4 = rxxxx4)
')
define(`QUomd',`
ifelse($1,,,$1 = am(90))
ifelse($2,,,$2 = am(91))
ifelse($3,,,$3 = am(92))
ifelse($4,,,$4 = am(93))
')
define(`QUomi',`
call quomiz(rxxxx1,rxxxx2,rxxxx3,rxxxx4)
ifelse($1,,,$1 = rxxxx1)
ifelse($2,,,$2 = rxxxx2)
ifelse($3,,,$3 = rxxxx3)
ifelse($4,,,$4 = rxxxx4)
')
define(`QUomo',`
$1 = am(120)>0.5
')
define(`QUpch',`
$1 = CHARMAKE(ifix(am(15)))
')
define(`QUpin',`
ifelse($1,,,$1 = am(55))
ifelse($2,,,$2 = am(56))
')
define(`QUplt',`
ifelse($1,,,$1 = am(40))
ifelse($2,,,$2 = am(41))
ifelse($3,,,$3 = am(42))
ifelse($4,,,$4 = am(43))
')
define(`QUpty',`
$1 = CHARMAKE(ifix(am(97)))
')
define(`QUrsz',`
ifelse($1,,,$1 = am(70))
ifelse($2,,,$2 = am(71))
')
define(`QUsmo',`
$1 = am(94)
')
define(`QUsrt',`
$1 = am(14)
')
define(`QUtck',`
$1 = am(66)
')
define(`QUtsp',`
ifelse($1,,,$1 = am(116))
ifelse($2,,,$2 = am(117))
ifelse($3,,,$3 = am(118))
')
define(`QUuin',`
ifelse($1,,,$1 = am(76))
ifelse($2,,,$2 = am(77))
')
define(`QUusr',`
ifelse($1,,,$1 = am(61))
ifelse($2,,,$2 = am(62))
ifelse($3,,,$3 = am(63))
ifelse($4,,,$4 = am(64))
')
define(`QUxpd',`
$1 = am(65)>0.5
')
define(`QUask',`
$1 = am(16)>0.5
')
divert(0)
real am(200)
common/bgrp/am
SCCS_ID(92093,`@(#)'graphics.m 3.10 last edit 2/20/93 StatSci. From BASEFILE)
