File: FIDES.FT of Tape: Various/System-Tapes/eb-plot

(Source file text) 

---

C	PROGRAM FITEST
C	--------------
C
	DIMENSION  TEXT (14)
	MODE=-1
	MODS=-1
C
	ITTY	= 4
	ICHANN	= 8
	IPLOT	= 9
C
C  INIT PLOT ROUTINES
C
	CALL	FILE   (2+2048+512,IPLOT,'PLOT OUTPUT   ',0,ITTY,ISTAT)
	IF	(ISTAT .LT. 0) GOTO 999
CCC	CALL	PLTDEV ('C751A0',IPLOT)
	CALL	PLTDEV ('FILE  ',IPLOT)
C
9	CALL	FILE   (4+2048    ,ICHANN,0                 ,0,0   ,ISTAT)
	IF	(ISTAT .LT. 0) GOTO 99
	CALL	FILE   (1+2048+512,ICHANN,'PLOT INPUT DATEN',0,ITTY,ISTAT)
	IF	(ISTAT .LT. 0) GOTO 99
C
C  DIALOG
C
	WRITE	(ITTY,1002)
	READ	(ITTY,2002) FAKTX
1002	FORMAT	(' VERZERRUNG IN X-RICHTUNG ? ')
2002	FORMAT	(F10.0)
	WRITE	(ITTY,1003)
	READ	(ITTY,2002) FAKTY
1003	FORMAT	(' VERZERRUNG IN Y-RICHTUNG ? ',F10.3)
	FAKTH	= 0.85*FAKTY
	IF	(FAKTY-FAKTX) 4,5,5
4	FAKTH	= 0.85*FAKTX
5	CONTINUE
C
C  READ
C
10	CALL	CHKEOF (EOF)
	READ	(ICHANN,1000) ITYP,X,Y
1000	FORMAT	(I3,2F6.2)
	IF	(EOF.NE.0) GOTO 9
	X	= X*FAKTX
	Y	= Y*FAKTY
CCC	WRITE(0,1000)ITYP,X,Y
C
C  DISPATCH
C
	IF	(ITYP  ) 10,60,6
6	IF	(ITYP-1) 10,10,7
7	IF	(ITYP-3) 20,20,8
8	IF	(ITYP-5) 40,40,10
C
C  PLOT
C
20	CONTINUE
	CALL	PLTABS (X,Y,ITYP,MODE)
	GOTO 10
C
C  SYMBOL
C
40	READ	(ICHANN,1000) N,H,A
	H	= H*FAKTH
	CALL	PLTABS (X,Y,3,MODE)
	CALL	PLCSIZ (H,H)
	CALL	PLCROT (COSD(A),SIND(A),MODE)
C
	IF	(ITYP-5) 41,50,41
C
C  SPECIAL SYMBOLS
C
41	CONTINUE
C     CALL SYMBOL(X,Y,H,N+100,A,-1)
	GOTO 10
C
C  SYMBOL STRING
C
50	READ	(ICHANN,1050) TEXT
1050	FORMAT	(13A6,A2)
	IF	(N-70) 51,51,55
51	CONTINUE
	CALL	PLTEXT (TEXT, N,1,MODS)
	GOTO 10
55	CONTINUE
	CALL	PLTEXT (TEXT,70,1,MODS)
	N	= N-70
	GOTO 50
C
C  START NEW PICTURE
C
60	CONTINUE
	CALL	PLTPIC (0.,0.,X,Y)
	GOTO 10
C
C  END OF FILE, END OF PLOT
C
99	CONTINUE
	CALL	PLTDEV (0,-1)
	END FILE IPLOT
	CALL	FILE   (4+2048,IPLOT,0,0,0,ISTAT)
C
999	STOP
	END

---