version	U12.1.00
uid	gtrace.u1-1786033006-0
impl	error
link	calls.u
link	numbers.u
link	gobject.u
global	10
	0,000005,list_coords,3
	1,000005,point_list,2
	2,000005,coord_list,2
	3,000005,read_trace,1
	4,000005,write_trace,2
	5,000005,compose_trace,3
	6,000005,tcompress,2
	7,000005,interp_trace,1
	8,000005,coord2point,1
	9,000005,point2coord,1

proc list_coords
	local	0,001000,call
	local	1,001000,p
	local	2,001000,w
	local	3,000020,point
	local	4,000000,invoke
	local	5,000000,write
	local	6,000000,decipos
	con	0,002000,1,6
	con	1,002000,2,20
	declend
	filen	gtrace.icn
	line	38
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	41
	colm	4
	synt	any
	null
	int	0
	line	41
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	42
	colm	4
	synt	any
	null
	int	1
	line	42
	colm	7
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	44
	colm	4
	synt	every
	mark0
	pnull
	var	3
	var	4
	var	0
	line	44
	colm	25
	synt	any
	invoke	1
	line	44
	colm	16
	synt	any
	asgn
	pop
	mark0
	var	5
	var	6
	pnull
	var	3
	line	45
	colm	26
	synt	any
	field	x
	var	1
	var	2
	line	45
	colm	20
	synt	any
	invoke	3
	var	6
	pnull
	var	3
	line	45
	colm	50
	synt	any
	field	y
	var	1
	var	2
	line	45
	colm	44
	synt	any
	invoke	3
	line	45
	colm	12
	synt	any
	invoke	2
	unmark
lab L4
	efail
lab L5
	line	44
	colm	4
	synt	endevery
	unmark
lab L3
	pnull
	line	47
	colm	1
	synt	any
	pfail
	end
proc point_list
	local	0,001000,call
	local	1,001000,i
	local	2,000020,plist
	local	3,000000,put
	local	4,000000,invoke
	declend
	line	53
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	56
	colm	13
	synt	any
	llist	0
	line	56
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	58
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	1
	line	58
	colm	7
	synt	any
	nonnull
	unmark
	line	59
	colm	7
	synt	every
	mark0
	var	1
	line	59
	colm	16
	synt	any
	limit
	var	3
	var	2
	var	4
	var	0
	line	59
	colm	30
	synt	any
	invoke	1
	line	59
	colm	16
	synt	any
	invoke	2
	lsusp
	pop
lab L5
	efail
lab L6
	line	59
	colm	7
	synt	endevery
	goto	L4
lab L3
	line	62
	colm	7
	synt	every
	mark0
	var	3
	var	2
	var	4
	var	0
	line	62
	colm	30
	synt	any
	invoke	1
	line	62
	colm	16
	synt	any
	invoke	2
	pop
lab L7
	efail
lab L8
	line	62
	colm	7
	synt	endevery
lab L4
	line	58
	colm	4
	synt	endifelse
	unmark
lab L2
	mark	L9
	mark	L10
	var	2
	line	65
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	67
	colm	1
	synt	any
	pfail
	end
proc coord_list
	local	0,001000,call
	local	1,001000,limit
	local	2,000020,clist
	local	3,000000,put
	local	4,000000,invoke
	con	0,002000,1,2
	declend
	line	74
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	line	77
	colm	13
	synt	any
	llist	0
	line	77
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	79
	colm	4
	synt	ifelse
	mark	L3
	pnull
	var	1
	line	79
	colm	7
	synt	any
	nonnull
	unmark
	line	80
	colm	7
	synt	every
	mark0
	pnull
	var	1
	int	0
	line	80
	colm	50
	synt	any
	mult
	line	80
	colm	16
	synt	any
	limit
	var	3
	var	2
	pnull
	var	4
	var	0
	line	80
	colm	32
	synt	any
	invoke	1
	line	80
	colm	24
	synt	any
	bang
	line	80
	colm	16
	synt	any
	invoke	2
	lsusp
	pop
lab L5
	efail
lab L6
	line	80
	colm	7
	synt	endevery
	goto	L4
lab L3
	line	83
	colm	7
	synt	every
	mark0
	var	3
	var	2
	pnull
	var	4
	var	0
	line	83
	colm	32
	synt	any
	invoke	1
	line	83
	colm	24
	synt	any
	bang
	line	83
	colm	16
	synt	any
	invoke	2
	pop
lab L7
	efail
lab L8
	line	83
	colm	7
	synt	endevery
lab L4
	line	79
	colm	4
	synt	endifelse
	unmark
lab L2
	mark	L9
	mark	L10
	var	2
	line	86
	colm	4
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	88
	colm	1
	synt	any
	pfail
	end
proc read_trace
	local	0,001000,f
	local	1,000020,line
	local	2,000040,schar
	local	3,000000,read
	local	4,000000,Point
	local	5,000000,tab
	local	6,000000,upto
	local	7,000000,many
	con	0,020000,1,056
	declend
	line	92
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	2
	pnull
	line	96
	colm	21
	synt	any
	keywd	digits
	cset	0
	line	96
	colm	29
	synt	any
	unions
	line	96
	colm	18
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
lab L5
	line	98
	colm	4
	synt	while
	mark0
	pnull
	var	1
	var	3
	var	0
	line	98
	colm	22
	synt	any
	invoke	1
	line	98
	colm	15
	synt	any
	asgn
	unmark
	mark	L5
	var	1
	line	99
	colm	12
	synt	any
	bscan
	line	100
	colm	10
	synt	suspend
	mark0
	var	4
	var	5
	var	6
	var	2
	line	101
	colm	21
	synt	any
	invoke	1
	line	101
	colm	16
	synt	any
	invoke	1
	pop
	var	5
	var	7
	var	2
	line	101
	colm	40
	synt	any
	invoke	1
	line	101
	colm	35
	synt	any
	invoke	1
	var	5
	var	6
	var	2
	line	102
	colm	21
	synt	any
	invoke	1
	line	102
	colm	16
	synt	any
	invoke	1
	pop
	var	5
	var	7
	var	2
	line	102
	colm	40
	synt	any
	invoke	1
	line	102
	colm	35
	synt	any
	invoke	1
	line	100
	colm	23
	synt	any
	invoke	2
	line	100
	colm	10
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	100
	colm	10
	synt	endsuspend
	line	99
	colm	12
	synt	any
	escan
lab L6
	unmark
	goto	L5
lab L7
	line	98
	colm	4
	synt	endwhile
	unmark
lab L4
	pnull
	line	106
	colm	1
	synt	any
	pfail
	end
proc write_trace
	local	0,001000,header
	local	1,001000,call
	local	2,000020,point
	local	3,000000,write
	local	4,000000,invoke
	con	0,010000,1,072
	con	1,010000,1,040
	declend
	line	110
	colm	11
	synt	any
	mark	L1
	var	3
	var	0
	str	0
	line	113
	colm	9
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	line	115
	colm	4
	synt	every
	mark0
	pnull
	var	2
	var	4
	var	1
	line	115
	colm	25
	synt	any
	invoke	1
	line	115
	colm	16
	synt	any
	asgn
	pop
	mark0
	var	3
	pnull
	var	2
	line	116
	colm	18
	synt	any
	field	x
	str	1
	pnull
	var	2
	line	116
	colm	32
	synt	any
	field	y
	line	116
	colm	12
	synt	any
	invoke	3
	unmark
lab L3
	efail
lab L4
	line	115
	colm	4
	synt	endevery
	unmark
lab L2
	pnull
	line	118
	colm	1
	synt	any
	pfail
	end
proc compose_trace
	local	0,001000,trace
	local	1,001000,call_1
	local	2,001000,call_2
	local	3,000020,point
	local	4,000000,invoke
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	129
	colm	11
	synt	any
	mark	L1
	line	132
	colm	4
	synt	every
	mark0
	pnull
	var	3
	var	4
	var	1
	line	132
	colm	25
	synt	any
	invoke	1
	line	132
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L4
	pnull
	pnull
	pnull
	var	2
	line	133
	colm	13
	synt	any
	field	args
	int	0
	line	133
	colm	18
	synt	any
	subsc
	pnull
	var	3
	line	133
	colm	30
	synt	any
	field	x
	line	133
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	pnull
	var	2
	line	134
	colm	13
	synt	any
	field	args
	int	1
	line	134
	colm	18
	synt	any
	subsc
	pnull
	var	3
	line	134
	colm	30
	synt	any
	field	y
	line	134
	colm	22
	synt	any
	asgn
	unmark
lab L5
	line	135
	colm	7
	synt	suspend
	mark0
	var	4
	var	2
	line	135
	colm	21
	synt	any
	invoke	1
	line	135
	colm	7
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	135
	colm	7
	synt	endsuspend
	unmark
lab L2
	efail
lab L3
	line	132
	colm	4
	synt	endevery
	unmark
lab L1
	pnull
	line	138
	colm	1
	synt	any
	pfail
	end
proc tcompress
	local	0,001000,call
	local	1,001000,i
	local	2,000020,j
	local	3,000020,point
	local	4,000000,invoke
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	144
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	int	0
	line	147
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	149
	colm	4
	synt	every
	mark0
	pnull
	var	3
	var	4
	var	0
	line	149
	colm	25
	synt	any
	invoke	1
	line	149
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L5
	line	150
	colm	7
	synt	if
	mark0
	pnull
	pnull
	var	2
	var	1
	line	150
	colm	12
	synt	any
	mod
	int	0
	line	150
	colm	16
	synt	any
	numeq
	unmark
	line	150
	colm	25
	synt	suspend
	mark0
	var	3
	line	150
	colm	25
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	150
	colm	25
	synt	endsuspend
	line	150
	colm	7
	synt	endif
	unmark
lab L5
	pnull
	var	1
	dup
	int	1
	line	151
	colm	9
	synt	any
	plus
	asgn
	unmark
lab L3
	efail
lab L4
	line	149
	colm	4
	synt	endevery
	unmark
lab L2
	pnull
	line	154
	colm	1
	synt	any
	pfail
	end
proc interp_trace
	local	0,001000,call
	local	1,000020,point
	local	2,000020,last_point
	local	3,000000,invoke
	local	4,000000,Point
	con	0,002000,1,2
	declend
	line	159
	colm	11
	synt	any
	mark	L1
	line	162
	colm	4
	synt	every
	mark0
	pnull
	var	1
	var	3
	var	0
	line	162
	colm	25
	synt	any
	invoke	1
	line	162
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L4
	line	163
	colm	7
	synt	if
	mark0
	pnull
	var	2
	line	163
	colm	10
	synt	any
	nonnull
	unmark
	mark	L5
	line	164
	colm	10
	synt	suspend
	mark0
	var	2
	line	164
	colm	10
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	164
	colm	10
	synt	endsuspend
	unmark
lab L5
	line	165
	colm	10
	synt	suspend
	mark0
	var	4
	pnull
	pnull
	pnull
	var	1
	line	166
	colm	19
	synt	any
	field	x
	pnull
	var	2
	line	166
	colm	34
	synt	any
	field	x
	line	166
	colm	22
	synt	any
	minus
	int	0
	line	166
	colm	38
	synt	any
	div
	pnull
	pnull
	pnull
	var	1
	line	167
	colm	19
	synt	any
	field	y
	pnull
	var	2
	line	167
	colm	34
	synt	any
	field	y
	line	167
	colm	22
	synt	any
	minus
	int	0
	line	167
	colm	38
	synt	any
	div
	line	165
	colm	23
	synt	any
	invoke	2
	line	165
	colm	10
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	165
	colm	10
	synt	endsuspend
	line	163
	colm	7
	synt	endif
	unmark
lab L4
	pnull
	var	2
	var	1
	line	170
	colm	18
	synt	any
	asgn
	unmark
lab L2
	efail
lab L3
	line	162
	colm	4
	synt	endevery
	unmark
lab L1
	mark	L10
	line	173
	colm	4
	synt	suspend
	mark0
	var	2
	line	173
	colm	4
	synt	any
	psusp
	pop
lab L11
	efail
lab L12
	line	173
	colm	4
	synt	endsuspend
	unmark
lab L10
	pnull
	line	175
	colm	1
	synt	any
	pfail
	end
proc coord2point
	local	0,001000,cl
	local	1,000020,pl
	local	2,000000,put
	local	3,000000,Point
	local	4,000000,get
	declend
	line	180
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	183
	colm	10
	synt	any
	llist	0
	line	183
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
lab L3
	line	185
	colm	4
	synt	while
	mark0
	var	2
	var	1
	var	3
	var	4
	var	0
	line	185
	colm	27
	synt	any
	invoke	1
	var	4
	var	0
	line	185
	colm	36
	synt	any
	invoke	1
	line	185
	colm	23
	synt	any
	invoke	2
	line	185
	colm	13
	synt	any
	invoke	2
lab L4
	unmark
	goto	L3
lab L5
	line	185
	colm	4
	synt	endwhile
	unmark
lab L2
	mark	L6
	mark	L7
	var	1
	line	187
	colm	4
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	189
	colm	1
	synt	any
	pfail
	end
proc point2coord
	local	0,001000,pl
	local	1,000020,cl
	local	2,000000,put
	declend
	line	194
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	line	197
	colm	10
	synt	any
	llist	0
	line	197
	colm	7
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	199
	colm	4
	synt	every
	mark0
	var	2
	var	1
	pnull
	pnull
	var	0
	line	199
	colm	19
	synt	any
	bang
	line	199
	colm	18
	synt	any
	bang
	line	199
	colm	13
	synt	any
	invoke	2
	pop
lab L3
	efail
lab L4
	line	199
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	var	1
	line	201
	colm	4
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	203
	colm	1
	synt	any
	pfail
	end
