DataMuseum.dk

top - download

    Length: 7648 (0x1de0)
    Types: TextFile
    Names: »subse.f«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/utep/subse.f« 

TextFile

*****************************************************************************
*
* subroutine sat does the following:
*  (set auxiliary table)
*     + enter segment page in table
*     + enter guiding axes in table
*     + display it on (AED) screen
*****************************************************************************
	subroutine sat
	common/contr/icnt
	common/space/ifree
c to set the auxiliary table & call drawp to disply a blank page with axes.
	call entpage
	call entaxes
	call clr
	call drawp
	ifree=icnt
	return
	end
***************************************************************************
*
* subroutine entpage does the following:
*  (enter segment page)
*      + enter segment page in auxiliary table
*      + build its code in (df)
*      + save rest of page info in table
***************************************************************************
	subroutine entpage
	common/at/asegtbl(2,10),isgclr(2),seg(2)
	common/contr/icnt
	character*1 seg
c
	seg(1)='p'
	isgclr(1)=18
	asegtbl(1,1)=10.0
	asegtbl(1,2)=0.0
	asegtbl(1,3)=0.0
	asegtbl(1,4)=10.0
	asegtbl(1,5)=10.0
	asegtbl(1,6)=1.0
	asegtbl(1,7)=0.0
	asegtbl(1,8)=icnt
	call clr
	call bondry
	asegtbl(1,9)=icnt-1
	asegtbl(1,10)=1.0
	return
	end
****************************************************************************
*
* subroutine entaxes does the following:
*  ( enter axes)
*     + enter segment axes in auxiliary table
*     + build its code in (df)
*     + save rest of segment axes info in table
*****************************************************************************
	subroutine entaxes
	common/at/asegtbl(2,10),isgclr(2),seg(2)
	common/contr/icnt
	character*1 seg
c
c segment 'g' for guiding axes.
	seg(2)='g'
	isgclr(2)=18
	asegtbl(2,1)=10.0
	asegtbl(2,2)=0.0
	asegtbl(2,3)=0.0
	asegtbl(2,4)=0.0
	asegtbl(2,5)=0.0
	asegtbl(2,6)=1.0
	asegtbl(2,7)=0.0
	asegtbl(2,8)=icnt
	call clr
	call axes
	asegtbl(2,9)=icnt-1
	asegtbl(2,10)=1.0
	return
	end
***************************************************************************
*
* subroutine hmarker does the following:
*  (horizontal marker)
*      + draw a marker to show units divisions on
*        y-axis.
***************************************************************************
	subroutine hmarker
c
	call move(-0.05,-1.0)
	call line(-0.4,-1.0)
	return
	end
**************************************************************************
*
* subroutine vmarker does the following:
*  (vertical marker)
*      + draw a marker to show units divisions 
*        on the x-axis
***************************************************************************
	subroutine vmarker
c
	call move(-1.0,-0.05)
	call line(-1.0,-0.4)
	return
	end
**************************************************************************
*
* subroutine zero does the following:
**************************************************************************
	subroutine zero
c
	call move(-1.0,-0.5)
	call line(-0.75,-0.5)
	call line(-0.75,-1.0)
	call line(-1.0,-1.0)
	call line(-1.0,-0.5)
	return
	end
**************************************************************************
*
* subroutine one does the following:
**************************************************************************
	subroutine one
c
	call move(-1.0,-0.5)
	call line(-1.0,-1.0)
	return
	end
***************************************************************************
*
* subroutine two does the following:
***************************************************************************
	subroutine two
c
	call move(-1.0,-0.5)
	call line(-0.75,-0.5)
	call line(-0.75,-0.75)
	call line(-1.0,-0.75)
	call line(-1.0,-1.0)
	call line(-0.75,-1.0)
	return
	end
***************************************************************************
*
* subroutine three does the following:
***************************************************************************
	subroutine three
c
	call move(-1.0,-0.5)
	call line(-0.75,-0.5)
	call line(-1.0,-0.75)
	call line(-0.75,-0.75)
	call line(-0.75,-1.0)
	call line(-1.0,-1.0)
	return
	end
***************************************************************************
*
* subroutine four does the following:
***************************************************************************
	subroutine four
c
	call move(-0.75,-0.75)
	call line(-1.0,-0.75)
	call line(-0.75,-0.5)
	call line(-0.75,-1.0)
	return
	end
****************************************************************************
*
* subroutine five does the following:
****************************************************************************
	subroutine five
c
	call move(-0.75,-0.5)
	call line(-1.0,-0.5)
	call line(-1.0,-0.75)
	call line(-0.75,-0.75)
	call line(-0.75,-1.0)
	call line(-1.0,-1.0)
	return
	end
*****************************************************************************
*
* subroutine six does the following:
*****************************************************************************
	subroutine six
c
	call move(-1.0,-0.5)
	call line(-1.0,-1.0)
	call line(-0.75,-1.0)
	call line(-0.75,-0.75)
	call line(-1.0,-0.75)
	return
	end
*****************************************************************************
*
* subroutine seven does the following:
*****************************************************************************
	subroutine seven
c
	call move(-1.0,-0.5)
	call line(-0.75,-0.5)
	call line(-1.0,-1.0)
	return
	end
*****************************************************************************
*
* subroutine eight does the following:
****************************************************************************
	subroutine eight
c
	call zero
	call move(-1.0,-0.75)
	call line(-0.75,-0.75)
	return
	end
***************************************************************************
*
* subroutine nine does the following:
***************************************************************************
	subroutine nine
c
	call move(-0.75,-0.75)
	call line(-1.0,-0.75)
	call line(-1.0,-0.5)
	call line(-0.75,-0.5)
	call line(-0.75,-1.0)
	return
	end
***************************************************************************
*
* subroutine axes does the following:
*  (xy axes)
*     + draw guiding x&y axes along page sides
*       with divisions markers and numbers.
***************************************************************************
	subroutine axes
c
c
c draw x-axis.
	call clr
	call sec(18)
	call move(-0.4,0.0)
	call line(10.0,0.0)
c
	call sec(7)
	do 20 i=1,10
	   call clr
	   call tlt(i+1.0,0.0)
	   call vmarker
20	continue
c draw y-axis
	call clr
	call sec(18)
	call move(0.0,-0.4)
	call line(0.0,10.0)
c
	call sec(7)
	do 40 j=1,10
	   call clr
	   call tlt(0.0,j+1.0)
	   call hmarker
40	continue
c disply numbers 0-10 on x-axis.
	call clr
	call tlt(1.0,0.0)
	call zero
	call clr
	call tlt(2.0,0.0)
	call one
	call clr
	call tlt(3.0,0.0)
	call two
	call clr
	call tlt(4.0,0.0)
	call three
	call clr
	call tlt(5.0,0.0)
	call four
	call clr
	call tlt(6.0,0.0)
	call five
	call clr
	call tlt(7.0,0.0)
	call six
	call clr
	call tlt(8.0,0.0)
	call seven
	call clr
	call tlt(9.0,0.0)
	call eight
	call clr
	call tlt(10.0,0.0)
	call nine
	call clr
	call tlt(11.0,0.0)
	call one

	call clr
	call tlt(11.25,0.0)
	call zero
c disply numbers 0-10 on y-axis.
	call clr
	call tlt(0.0,1.0)
	call zero
	call clr
	call tlt(0.0,2.0)
	call one
	call clr
	call tlt(0.0,3.0)
	call two
	call clr
	call tlt(0.0,4.0)
	call three
	call clr
	call tlt(0.0,5.0)
	call four
	call clr
	call tlt(0.0,6.0)
	call five
	call clr
	call tlt(0.0,7.0)
	call six
	call clr
	call tlt(0.0,8.0)
	call seven
	call clr
	call tlt(0.0,9.0)
	call eight
	call clr
	call tlt(0.0,10.0)
	call nine
	call clr
	call tlt(0.0,11.0)
	call one
	call clr
	call tlt(0.25,11.0)
	call zero
	return
	end