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

(Source file text) 

---

C	PROGRAM CHRTST.FT      CHARACTER GENERATOR TEST
C	-----------------------------------------------
C
	DIMENSION TEXT(10)
C
C  INIT
C
	ITTY	= 4
	IPLOT	= 9
	WRITE	(ITTY,2000)
2000	FORMAT	(' CHARACTER GENERATOR TEST'/
     +		 ' ------------------------'/
     +		 ' (TYPE NEGATIVE  NUMBERS TO EXIT)'/)
C
	CALL	PLTDEV ('FILE',IPLOT)
	CALL	PLTPIC (-1.,-1.,45.,45.)
	CALL	PLTABS (0.,0.,3,1)
	CALL	PLTREL (20.,0.,2,1)
	CALL	PLTREL (0.,20.,2,1)
	CALL	PLTREL (-20.,0.,2,1)
	CALL	PLTREL (0.,-20.,2,1)
	CALL	PLTREL (20.,20.,2,1)
C
C  READ
C
10	WRITE	(ITTY,2010)
2010	FORMAT	(' CHARACTER ORIGIN X,Y ?   ',$)
	READ	(ITTY,1010)X,Y
1010	FORMAT	(3F10.3)
	IF	(X .LT. 0.) GOTO 100
C
	WRITE	(ITTY,2015)
2015	FORMAT	(' HEIGHT , WIDTH , ROTATION ?   ',$)
	READ	(ITTY,1010) HEI , WID , ROT
C
20	WRITE	(ITTY,2020)
2020	FORMAT	(' FONT , NUMBER OF CHARS , STRING ?   ',$)
	READ	(ITTY,1020) IFONT,NCHAR,TEXT
1020	FORMAT	(2I5,10A6)
	IF	(IFONT .LT. 0) GOTO 10
C
C  PLOT
C
	CALL	PLTABS (X,Y,3,1)
	CALL	PLCSIZ (HEI,WID)
	CALL	PLCROT (COSD(ROT),SIND(ROT),1)
	CALL	PLTEXT (TEXT,NCHAR,IFONT,1)
	GOTO 20
C
C  END
C
100	CALL	PLTDEV (0,-1)
	END FILE IPLOT
	END

---