cintePhoton$B$N(Bdebug 1$B%+=j!%(B

ciniTracking: 
	Zfirst.pos.depth = 0.
	csetObs
	incident.where = NoOfSites + 1
	
ctracking:
	csampIntL
	
	ctruncPath
	
	ccompPathEnd

	cifXobSites(nextwhere)

	Truncated ?
		yes: push MovedTrack into stack
	Interact ?
		yes: Zfist.pos.depth=0 ?
				yes: Zfirst = MovedTrack
		cinteraction

	ToBeObserved ?
		yes: cobservation(2)

		MovedTrack.where = nextwhere
		MovedTrack.where >EndLevel
			no: If(MovedTrack.where < 0)
				1
		push(MovedTrack)

==================
csampIntL:
	ciniSmpIntL
		MoveStat=ToInteract
	csampGIntL
		cpairPath(eg, t)
		setIntInf t*X0
	cfixProc

cTruncPath:
	cmaxMovLen(leng, thick)
	leng < IntInfArray.length ?	
			yes: Truncated
			   IntInfArray.length=leng
				//.thickness =thick

==============

