h64097
s 00008/00000/00189
d D 1.19 83/03/02 19:15:22 mjb 19 18
c 
e
s 00003/00003/00186
d D 1.18 83/03/02 17:09:16 mjb 18 17
c 
e
s 00031/00024/00158
d D 1.17 83/02/25 18:35:40 mjb 17 16
c 
e
s 00001/00001/00181
d D 1.16 83/02/25 16:38:06 mjb 16 15
c 
e
s 00042/00044/00140
d D 1.15 83/02/25 15:02:28 mjb 15 14
c changed for new axis edit stuff
e
s 00001/00004/00183
d D 1.14 83/02/16 17:29:57 mjb 14 13
c moved cursor position info to mnucom
e
s 00004/00004/00183
d D 1.13 83/02/15 17:10:37 mjb 13 12
c 
e
s 00018/00002/00169
d D 1.12 83/02/14 14:09:39 mjb 12 11
c added cursor positions common for anotation and graphic menus
e
s 00013/00012/00158
d D 1.11 83/02/14 12:48:58 mjb 11 10
c added dashed grid line style capabilties
e
s 00020/00023/00150
d D 1.10 83/02/11 12:57:27 mjb 10 9
c fixed common bliock problem
e
s 00001/00001/00172
d D 1.9 83/02/10 21:30:52 mjb 9 8
c 
e
s 00001/00001/00172
d D 1.8 83/02/10 20:56:47 mjb 8 7
c fixed lenght of graph common
e
s 00000/00014/00173
d D 1.7 83/02/03 20:02:27 mjb 7 6
c moved grftmp from gphcom to gattcom
e
s 00001/00001/00186
d D 1.6 83/01/31 12:05:09 mjb 6 5
c fixed gphcom allcom common sizes
e
s 00001/00000/00186
d D 1.5 83/01/30 18:29:18 mjb 5 4
c error reporting bug fixing
e
s 00011/00001/00175
d D 1.4 83/01/29 14:29:56 mjb 4 3
c made changes to anocom, included in gphcom
e
s 00000/00000/00176
d D 1.3 83/01/25 14:18:08 mjb 3 2
c 
e
s 00026/00024/00150
d D 1.2 83/01/25 11:42:03 mjb 2 1
c modified to match new menu.tex 
e
s 00174/00000/00000
d D 1.1 83/01/20 11:08:21 tes 1 0
c date and time created 83/01/20 11:08:21 by tes
e
u
tes
mjb
U
t
T
I 1
#
#    graph chart common block
#
I 10
#  zlegxy  (real array 2)            current legend x,y position

real zlegxy(2)

# 
# Anotation common 
#

integer crntid, tfont, tcolor, tsize, cfont, ccolor, ctsize, ctsizx, ctsizy
SHORTINT anobuf(1000)

E 10
#  bgtitl  (byte array 41)           current graph title
#  bgsitl  (byte array 41)           current graph subtitle 
D 15
#  bghtit  (byte array 41)           current horz axis label 
#  bgvtit  (byte array 41)           current vert axis label 
E 15
I 15
#  bgitit  (byte array 41)           current independent axis label 
#  bgdtit  (byte array 41)           current dependent axis label 
E 15
D 17
#  bglgfg  (byte array 2)            current graph legend flag
E 17
I 15
#  bgaxis  (byte array 2)            current independent axis type
I 17
#  bglgfg  (byte array 2)            current graph legend flag
E 17
E 15
D 2
#  bgfrfg  (byte array 2)            current graph frame flag 
#  bgblin  (byte array 5)            current graph baseline
E 2
#  bgleng  (byte array 110)          current curve legend array
#  bgcvtp  (byte array 5)            current curve type array
I 2
#  bgcvcl  (byte array 5)            current curve color array
#  bgflpt  (byte array 5)            current curve fill pattern array
E 2
#  bglnst  (byte array 5)            current curve line style array
#  bgsymb  (byte array 5)            current curve symbol array
#  bglnwd  (byte array 5)            current curve line width
D 2
#  bgflpt  (byte array 5)            current curve fill pattern array
#  bgcvcl  (byte array 5)            current curve color array
E 2

D 15
SHORTINT bgtitl(41), bgsitl(41), bghtit(41), bgvtit(41), bglgfg(2), 
D 2
	 bgfrfg(2), bgblin(5), bgleng(110), bgcvtp(5), bglnst(5),
         bgsymb(5), bglnwd(5), bgflpt(5), bgcvcl(5)
E 2
I 2
	 bgleng(110), bgcvtp(5), bgcvcl(5), bgflpt(5), bglnst(5), 
	 bgsymb(5), bglnwd(5)
E 15
I 15
D 17
SHORTINT bgtitl(41), bgsitl(41), bgitit(41), bgdtit(41), bglgfg(2), 
	 bgaxis(2), bgleng(110), bgcvtp(5), bgcvcl(5), bgflpt(5),
E 17
I 17
SHORTINT bgtitl(41), bgsitl(41), bgitit(41), bgdtit(41), bgaxis(2),
	 bglgfg(2), bgleng(110), bgcvtp(5), bgcvcl(5), bgflpt(5),
E 17
	 bglnst(5), bgsymb(5), bglnwd(5)
E 15
E 2

#  bgtclr  (byte array 5)            current graph text colors
#  bgtfnt  (byte array 5)            current graph text fonts
#  bgtsiz  (byte array 5)            current graph text sizes
D 2
#  bgstfg  (byte array 2)            current stacked flag array
E 2
#  bgbrfg  (byte array 2)            current graph border flag
D 2
#  bgbrcl  (byte)                    current graph border color
#  bgbrwd  (byte)                    current graph border width
E 2
I 2
#  bgfrfg  (byte array 2)            current graph frame flag 
#  bgbrcl  (byte array 2)            current graph border/frame color
#  bgbrwd  (byte array 2)            current graph border/frame width
#  bgblfg  (byte array 2)            current graph baseline flag
#  bgblin  (byte array 5)            current graph baseline
E 2
#  bgclus  (byte)                    current cluster factor      
#  bgbard  (byte array 2)            current bar direction
#  bgbarw  (byte array 5)            current graph bar width
I 2
#  bgstfg  (byte array 2)            current stacked flag array
E 2
#  bgptfl  (byte array 10)           current curve pts labeled flag array
#  bgrgfl  (byte array 10)           current curve regression flag array

D 2
SHORTINT bgtclr(5), bgtfnt(5), bgtsiz(5), bgstfg(2), bgbrfg(2), bgbrcl,
         bgbrwd, bgclus, bgbard(2), bgbarw(5), bgptfl(10), bgrgfl(10)
E 2
I 2
SHORTINT bgtclr(5), bgtfnt(5), bgtsiz(5), bgbrfg(2), bgfrfg(2), bgbrcl(2),
         bgbrwd(2), bgblfg(2), bgblin(5), bgclus, bgbard(2), bgbarw(5), 
	 bgstfg(2), bgptfl(10), bgrgfl(10)
E 2

D 15
#  bghmin  (byte array 5)            current horz axis min value
#  bgvmin  (byte array 5)            current vert axis min value
#  bghmax  (byte array 5)            current horz axis max value
#  bgvmax  (byte array 5)            current vert axis max value
#  bghgfg  (byte array 2)            current horz axis grid flag 
#  bgvgfg  (byte array 2)            current vert axis grid flag 
I 11
#  bggrst  (byte)                    current axis grid styles
E 11
#  bgghcl  (byte)                    current horz axis grid color
#  bggvcl  (byte)                    current vert axis grid color
#  bghrel  (byte array 2)            current horz axis real flag
#  bgvrel  (byte array 2)            current horz axis real flag
D 2
#  bgtics  (byte array 2)            current tic marks flag
#  bgmtic  (byte array 2)            current minor tic marks flag
E 2
I 2
#  bgtics  (byte array 4)            current tic marks flag
#  bgmtic  (byte array 4)            current minor tic marks flag
E 2
#  bghatp  (byte)                    current horz axis type
#  bgvatp  (byte)                    current vert axis type
#  bghsrt  (byte array 5)            current horz axis start period
#  bgvsrt  (byte array 5)            current vert axis start period
#  bghpln  (byte array 5)            current horz axis period length
#  bgvpln  (byte array 5)            current vert axis period length
#  bghnpr  (byte array 5)            current horz axis no. of periods
#  bgvnpr  (byte array 5)            current vert axis no. of periods
E 15
I 15
D 17
#  bgiatp  (byte)                    current independent axis label type
E 17
I 17
#  bgnatp  (byte)                    current numeric axis label type
#  bgpatp  (byte)                    current periodic axis label type
E 17
#  bgdatp  (byte)                    current dependent axis type
D 17
#  bgistr  (byte array 5)            current independent axis label/period start
#  bgdstr  (byte array 5)            current dependent axis label/period start 
#  bgiend  (byte array 5)            current independent axis label end/periods
#  bgdend  (byte array 5)            current dependent axis label end/periods
#  bgiinc  (byte array 5)            current independent axis label increment
E 17
I 17
#  bgnstr  (byte array 5)            current numeric axis label start
#  bgpstr  (byte array 5)            current period axis period start
#  bgdstr  (byte array 5)            current dependent axis label start 
#  bgnend  (byte array 5)            current numeric axis label end
#  bgpnum  (byte array 5)            current period axis number of periods
#  bgdend  (byte array 5)            current dependent axis label end
#  bgninc  (byte array 5)            current numeric axis label increment
E 17
#  bgdinc  (byte array 5)            current dependent axis label increment
D 17
#  bgitic  (byte)                    current independent axis number of ticks
E 17
I 17
#  bgntic  (byte)                    current numeric axis number of ticks
D 18
#  bgptic  (byte)                    current period axis number of ticks
E 18
I 18
#  bgptic  (byte array 2)            current period axis tics flag        
E 18
E 17
#  bgdtic  (byte)                    current dependent axis number of ticks
D 17
#  bgaind  (byte array 2)            current independent axis indent flag
E 17
I 17
#  bgnain  (byte array 2)            current numeric axis indent flag
#  bgpain  (byte array 2)            current periodic axis indent flag
E 17
#  bgigfg  (byte array 2)            current independent axis grid flag 
#  bgigst  (byte)                    current independent axis grid style
#  bgigcl  (byte)                    current independent axis grid color
#  bgdgfg  (byte array 2)            current dependent axis grid flag 
#  bgdgst  (byte)                    current dependent axis grid style
#  bgdgcl  (byte)                    current dependent axis grid color
#  bgadfg  (byte array 2)            current axis data curve flag
#  bgadcv  (byte)                    current axis data curve number
E 15

D 15
SHORTINT bghmin(5), bgvmin(5), bghmax(5), bgvmax(5), bghgfg(2), bgvgfg(2),
D 2
         bgghcl, bggvcl, bghrel(2), bgvrel(2), bgtics(2), bgmtic(2), 
E 2
I 2
D 11
         bgghcl, bggvcl, bghrel(2), bgvrel(2), bgtics(4), bgmtic(4), 
E 2
	 bghatp, bgvatp, bghsrt(5), bgvsrt(5), bghpln(5), bgvpln(5),
	 bghnpr(5), bgvnpr(5)
E 11
I 11
         bggrst(2), bgghcl, bggvcl, bghrel(2), bgvrel(2), bgtics(4),
	 bgmtic(4), bghatp, bgvatp, bghsrt(5), bgvsrt(5), bghpln(5), 
	 bgvpln(5), bghnpr(5), bgvnpr(5)
E 15
I 15
D 17
SHORTINT bgiatp, bgdatp, bgistr(5), bgdstr(5), bgiend(5), bgdend(5),
         bgiinc(5), bgdinc(5), bgitic, bgdtic, bgaind(2), bgigfg(2),
E 17
I 17
SHORTINT bgnatp, bgpatp, bgdatp, bgnstr(5), bgpstr(5), bgdstr(5),
         bgnend(5), bgpnum(5), bgdend(5), bgninc(5), bgdinc(5),
D 18
         bgntic, bgptic, bgdtic, bgnain(2), bgpain(2), bgigfg(2),
E 18
I 18
         bgntic, bgptic(2), bgdtic, bgnain(2), bgpain(2), bgigfg(2),
E 18
E 17
         bgigst, bgigcl, bgdgfg(2), bgdgst, bgdgcl, bgadfg(2), bgadcv
E 15
E 11

#  bglabl  (byte array 300)          current graph label array
#  bgdta1  (byte array 375)          current data for curve 1
#  bgdta2  (byte array 375)          current data for curve 2
#  bgdta3  (byte array 375)          current data for curve 3
#  bgdta4  (byte array 375)          current data for curve 4
#  bgdta5  (byte array 375)          current data for curve 5
#  bgddef  (byte array 5)            current number of data points defined

SHORTINT bglabl(300), bgdta1(375), bgdta2(375), bgdta3(375), 
	 bgdta4(375), bgdta5(375), bgddef(5)

D 10
#  zlegxy  (real array 2)            current legend x,y position

real zlegxy(2)

E 10
#
#    pie chart  common block
#
#  bptitl  (byte array 41)           current pie chart title
#  bpsitl  (byte array 41)           current pie chart subtitle 
#  bplabl  (byte array 304)          current pie chart labels
#  bpexfg  (byte array 32)           current pie slice explode flag array
#  bpslcl  (byte array 16)           current pie slice color array 
#  bpslfl  (byte array 16)           current pie slice fill pattern array
#  bptclr  (byte array 3)            current pie chart text colors
#  bptfnt  (byte array 3)            current pie chart text fonts
#  bptsiz  (byte array 3)            current pie chart text sizes
#  bvalfg  (byte array 2)            current pie chart value or % flag
#  bpsrfg  (byte array 2)            current pie chart sort flag 
#  bpsrod  (byte array 2)            current pie chart sort order flag
#  bpbrfg  (byte array 2)            current pie chart border flag
#  bpbrcl  (byte)                    current pie chart border color
#  bpbrwd  (byte)                    current pie chart border width
#  bpticl  (byte)                    current pie chart tic mark color
#  bpddef  (byte)                    current number of data points defined

SHORTINT bptitl(41), bpsitl(41), bplabl(304), bpexfg(32), bpslcl(16),
	 bpslfl(16), bptclr(3), bptfnt(3), bptsiz(3), bvalfg(2), bpsrfg(2),
	 bpsrod(2), bpbrfg(2), bpbrcl, bpbrwd, bpticl, bpddef

#  bpdata  (byte array 80)           current pie chart data 

SHORTINT bpdata(80)

#
#  bctype  (byte)                    current graph type (0=undefined)
#                                                       (1=pie, 2=graph)
I 12
#  Do not count bgsave as part of graph common size
#  bgsave  (byte)                    graph need to be saved (YES, NO)
E 12

D 12
SHORTINT bctype
E 12
I 12
SHORTINT bctype, bgsave
E 12

I 4
D 10
# 
# Anotation common block
#

integer crntid, tfont, tcolor, tsize, cfont, ccolor, ctsize, ctsizx, ctsizy
SHORTINT anobuf(1000)

E 10
E 4
# ***************************************************************************
#      Do not count following common as part of graph common size
# ***************************************************************************

#
I 12
# Current cursor positions
#

# ginx    (integer)          current graphic input cursor position x
# giny    (integer)          current graphic input cursor position y
D 14
# alphax  (byte)             current alpha cursor position x
# alphay  (byte)             current alpha cursor position y
E 14

integer ginx, giny
D 14
SHORTINT alphax, alphay
E 14

#
E 12
# Multiple graphs per page common block
#

# multfg  (byte)              current multi graph flag (0 == NO, 1 == YES)
# mfrmat  (byte)              current multi graph format (1-6, 1 == Default)
# mfname  (byte array 56)     current multi graph file names (14 chars/name)

SHORTINT multfg, mfrmat, mfname(56)

#
# Graph main/action common block
#

integer mid, lastid, krmain, action, device

I 19
#
# CRT capabilities common
#

SHORTINT bgraph, bgin

E 19
D 7
# ***************************************************************************
#         do NOT include following arrays in ALLCOM 
#           or count as part of graph common size
# ***************************************************************************

#  ntpray (integer array 41)         temp integer array for titles etc.
#  zydata (real array 375)           temp real array for storage of graph data
#  zstack (real array 375)           temp real array for stacking

integer ntpray(41)
real zydata(375), zstack(375)

E 7
D 2
common /grpcom/  bgtitl, bgsitl, bghtit, bgvtit, bglgfg, bgfrfg, 
		 bgblin, bgleng, bgcvtp, bglnst, bgsymb, bglnwd,
  		 bgflpt, bgcvcl, bgtclr, bgtfnt, bgtsiz, bgstfg, 
		 bgbrfg, bgbrcl, bgbrwd, bgclus, bgbard, bgbarw,
		 bgptfl, bgrgfl, bghmin, bgvmin, bghmax, bgvmax,
		 bghgfg, bgvgfg, bgghcl, bggvcl, bghrel, bgvrel, 
		 bgtics, bgmtic, bghatp, bgvatp, bghsrt, bgvsrt,
		 bghpln, bgvpln, bghnpr, bgvnpr, bglabl, bgdta1,
		 bgdta2, bgdta3, bgdta4, bgdta5, bgddef
E 2
I 2
D 10
common /grpcom/  bgtitl, bgsitl, bghtit, bgvtit, bglgfg, bgleng, 
E 10
I 10
common /grpcom/  zlegxy,
                 crntid, tfont, tcolor, tsize, cfont, ccolor,
		 ctsize, ctsizx, ctsizy, 
		 anobuf,
D 15
                 bgtitl, bgsitl, bghtit, bgvtit, bglgfg, bgleng, 
E 10
		 bgcvtp, bgcvcl, bgflpt, bglnst, bgsymb, bglnwd,
                 bgtclr, bgtfnt, bgtsiz, bgbrfg, bgfrfg, bgbrcl,
                 bgbrwd, bgblfg, bgblin, bgclus, bgbard, bgbarw, 
	         bgstfg, bgptfl, bgrgfl, bghmin, bgvmin, bghmax,
D 11
		 bgvmax, bghgfg, bgvgfg, bgghcl, bggvcl, bghrel, 
		 bgvrel, bgtics, bgmtic, bghatp, bgvatp, bghsrt,
		 bgvsrt, bghpln, bgvpln, bghnpr, bgvnpr, bglabl,
D 10
		 bgdta1, bgdta2, bgdta3, bgdta4, bgdta5, bgddef
E 2

common /grprel/  zlegxy

common /piecom/  bpdata, bptitl, bpsitl, bplabl, bpexfg, bpslcl, 
E 10
I 10
		 bgdta1, bgdta2, bgdta3, bgdta4, bgdta5, bgddef,
                 bpdata, bptitl, bpsitl, bplabl, bpexfg, bpslcl, 
E 10
		 bpslfl, bptclr, bptfnt, bptsiz, bvalfg, bpsrfg,
D 10
		 bpsrod, bpbrfg, bpbrcl, bpbrwd, bpticl, bpddef 

common /gstcom/  bctype

I 4
common /anocom/ crntid, tfont, tcolor, tsize, cfont, ccolor, ctsize, ctsizx,
		ctsizy, anobuf
E 10
I 10
		 bpsrod, bpbrfg, bpbrcl, bpbrwd, bpticl, bpddef,
                 bctype
E 11
I 11
		 bgvmax, bghgfg, bgvgfg, bggrst, bgghcl, bggvcl, 
		 bghrel, bgvrel, bgtics, bgmtic, bghatp, bgvatp,
		 bghsrt, bgvsrt, bghpln, bgvpln, bghnpr, bgvnpr, 
		 bglabl, bgdta1, bgdta2, bgdta3, bgdta4, bgdta5,
D 13
		 bgddef, bpdata, bptitl, bpsitl, bplabl, bpexfg,
		 bpslcl, bpslfl, bptclr, bptfnt, bptsiz, bvalfg,
		 bpsrfg, bpsrod, bpbrfg, bpbrcl, bpbrwd, bpticl,
D 12
		 bpddef, bctype
E 12
I 12
		 bpddef, bctype, bgsave
E 13
I 13
		 bgddef, bptitl, bpsitl, bplabl, bpexfg, bpslcl, 
		 bpslfl, bptclr, bptfnt, bptsiz, bvalfg, bpsrfg,
		 bpsrod, bpbrfg, bpbrcl, bpbrwd, bpticl, bpddef,
		 bpdata, bctype, bgsave
E 15
I 15
D 17
                 bgtitl, bgsitl, bgitit, bgdtit, bglgfg, bgaxis, 
E 17
I 17
                 bgtitl, bgsitl, bgitit, bgdtit, bgaxis, bglgfg, 
E 17
		 bgleng, bgcvtp, bgcvcl, bgflpt, bglnst, bgsymb,
		 bglnwd, bgtclr, bgtfnt, bgtsiz, bgbrfg, bgfrfg,
		 bgbrcl, bgbrwd, bgblfg, bgblin, bgclus, bgbard,
D 17
		 bgbarw, bgstfg, bgptfl, bgrgfl, bgiatp, bgdatp,
		 bgistr, bgdstr, bgiend, bgdend, bgiinc, bgdinc,
		 bgitic, bgdtic, bgaind, bgigfg, bgigst, bgigcl,
		 bgdgfg, bgdgst, bgdgcl, bgadfg, bgadcv, bglabl,
		 bgdta1, bgdta2, bgdta3, bgdta4, bgdta5, bgddef,
                 bptitl, bpsitl, bplabl, bpexfg, bpslcl, bpslfl,
		 bptclr, bptfnt, bptsiz, bvalfg, bpsrfg, bpsrod,
D 16
		 bpbrfg, bpbrcl, bpbrwd, bpticl, bpddef bpdata,
E 16
I 16
		 bpbrfg, bpbrcl, bpbrwd, bpticl, bpddef, bpdata,
E 16
		 bctype, bgsave
E 17
I 17
		 bgbarw, bgstfg, bgptfl, bgrgfl, bgnatp, bgpatp,
		 bgdatp, bgnstr, bgpstr, bgdstr, bgnend, bgpnum,
		 bgdend, bgninc, bgdinc, bgntic, bgptic, bgdtic,
		 bgnain, bgpain, bgigfg, bgigst, bgigcl, bgdgfg,
		 bgdgst, bgdgcl, bgadfg, bgadcv, bglabl, bgdta1,
		 bgdta2, bgdta3, bgdta4, bgdta5, bgddef, bptitl,
		 bpsitl, bplabl, bpexfg, bpslcl, bpslfl, bptclr,
		 bptfnt, bptsiz, bvalfg, bpsrfg, bpsrod, bpbrfg,
		 bpbrcl, bpbrwd, bpticl, bpddef, bpdata, bctype,
		 bgsave
E 17
E 15
E 13

D 14
common /grfcur/ ginx, giny, alphax, alphay
E 14
I 14
common /grfcur/ ginx, giny
E 14
E 12
E 11
E 10

E 4
common /mltcom/ multfg, mfrmat, mfname

common /grmain/ mid, lastid, krmain, action, device
I 19

common /gphcap/ bgraph, bgin
E 19
D 7

common /grftmp/  ntpray, zydata, zstack
E 7

# Current total 'gphcom' size in bytes
ifdef(`UNIX',`define(`SHORTSIZE',2)',`define(`SHORTSIZE',1)')
D 2
define(`GPHCOMxSIZE',`eval(3160*SHORTSIZE+8)')
E 2
I 2
D 4
define(`GPHCOMxSIZE',`eval(3164*SHORTSIZE+8)')
E 4
I 4
D 6
define(`GPHCOMxSIZE',`eval(4182*SHORTSIZE+8)')
E 6
I 6
D 8
define(`GPHCOMxSIZE',`eval(4164*SHORTSIZE+26)')
E 8
I 8
D 9
define(`GPHCOMxSIZE',`eval(4170*SHORTSIZE+26)')
E 9
I 9
D 11
define(`GPHCOMxSIZE',`eval(4168*SHORTSIZE+26)')
E 11
I 11
D 15
define(`GPHCOMxSIZE',`eval(4170*SHORTSIZE+26)')
E 15
I 15
D 17
define(`GPHCOMxSIZE',`eval(4147*SHORTSIZE+26)')
E 17
I 17
D 18
define(`GPHCOMxSIZE',`eval(4161*SHORTSIZE+26)')
E 18
I 18
define(`GPHCOMxSIZE',`eval(4162*SHORTSIZE+26)')
E 18
E 17
E 15
E 11
E 9
E 8
E 6
I 5
define(`HEADERxLENGTH',`eval(3*SHORTSIZE)')
E 5
E 4
E 2
define(`MULTxSIZE',`eval(58*SHORTSIZE)')
E 1
