aboutsummaryrefslogtreecommitdiff
path: root/plotlib/sym/test.f
diff options
context:
space:
mode:
Diffstat (limited to 'plotlib/sym/test.f')
-rw-r--r--plotlib/sym/test.f159
1 files changed, 159 insertions, 0 deletions
diff --git a/plotlib/sym/test.f b/plotlib/sym/test.f
new file mode 100644
index 0000000..2dd5b7d
--- /dev/null
+++ b/plotlib/sym/test.f
@@ -0,0 +1,159 @@
+C***********************************************************************
+C Module: test.f (test routine for fonts in Xplot/sym)
+C
+C Copyright (C) 1996 Harold Youngren, Mark Drela
+C
+C This program is free software; you can redistribute it and/or modify
+C it under the terms of the GNU General Public License as published by
+C the Free Software Foundation; either version 2 of the License, or
+C (at your option) any later version.
+C
+C This program is distributed in the hope that it will be useful,
+C but WITHOUT ANY WARRANTY; without even the implied warranty of
+C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+C GNU General Public License for more details.
+C
+C You should have received a copy of the GNU General Public License
+C along with this program; if not, write to the Free Software
+C Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+C
+C Report problems to: guppy@maine.com
+C or drela@mit.edu
+C***********************************************************************
+
+
+ PROGRAM TEST
+C
+ IDEV = 3
+ IPSLU = 0
+ SIZE = 7.0
+ IPEN = 3
+ CH = 0.020
+C
+cc size = 5.0
+cc ipen = 2
+C
+ CALL PLINITIALIZE
+ CALL PLOPEN(-0.95,IPSLU,IDEV)
+ CALL NEWFACTOR(SIZE)
+ CALL NEWPEN(IPEN)
+C
+ CALL PLOTABS(0.60,1.20,-3)
+C
+ WRITE(*,*) 'Plotting PLCHAR set...'
+ CALL PLCHAR(0.0,1.25,CH,
+ & 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',0.0,52)
+ CALL PLCHAR(0.0,1.20,CH,
+ & '0123456789,.;:`"!?@#$%&|()[]{}<>_+-*=/^~ ',0.0,52)
+C
+ WRITE(*,*) 'Plotting PLSLAN set...'
+ CALL PLSLAN(0.0,1.10,CH,
+ & 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',0.0,52)
+ CALL PLSLAN(0.0,1.05,CH,
+ & '0123456789,.;:`"!?@#$%&|()[]{}<>_+-*=/^~ ',0.0,52)
+C
+ WRITE(*,*) 'Plotting PLMATH set...'
+ CALL PLMATH(0.0,0.95,CH,
+ & 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz',0.0,52)
+ CALL PLMATH(0.0,0.90,CH,
+ & '0123456789,.;:`"!?@#$%&|()[]{}<>_+-*=/^~ ',0.0,52)
+C
+ WRITE(*,*) 'Plotting PLSYMB set...'
+ DO IS=0, 13
+ XX = 0.05*FLOAT(IS)
+ CALL PLSYMB(XX,0.80,CH,IS,0.0,0)
+ ENDDO
+C
+ WRITE(*,*) 'Plotting sample character strings...'
+C
+ CALL PLMATH(0.0 ,0.55,CH,' a2+b2=g2',0.0,9)
+C
+ CALL PLMATH(0.0 ,0.45,CH,' 2 2 2',0.0,9)
+ CALL PLCHAR(0.0 ,0.45,CH,' a +b =c ',0.0,9)
+C
+ CALL PLMATH(0.0 ,0.35+0.15*CH,
+ & CH,'R_____ ',0.0,9)
+ CALL PLMATH(0.0 ,0.35,CH,' 2 2 ',0.0,9)
+ CALL PLSLAN(0.0 ,0.35,CH,' a +b =c ',0.0,9)
+C
+ CALL PLMATH(0.30,0.55,CH,' 2',30.0,5)
+ CALL PLCHAR(0.30,0.55,CH,'E=mc ',30.0,5)
+C
+C
+ CALL PLMATH(0.30,0.45,CH,'F&= & & & ',-30.0,14)
+ CALL PLCHAR(0.30,0.45,CH,' u x+v y+w z',-30.0,14)
+C
+ CALL PLMATH(0.50,0.55,CH,'l- ',0.0,7)
+ CALL PLCHAR(0.50,0.55,CH,' shock',0.0,7)
+C
+ CALL PLMATH(0.50,0.45,CH,'>=Nf',0.0,4)
+ CALL PLCHAR(0.50,0.45,CH,'u ',0.0,4)
+C
+ CALL PLMATH(0.75,0.55,CH,'V= n H',0.0,7)
+ CALL PLCHAR(0.75,0.55,CH,' ( ) ',0.0,7)
+ CALL PLSLAN(0.75,0.55,CH,' t ',0.0,7)
+C
+ CALL PLMATH(0.75,0.45,CH,' __',0.0,5)
+ CALL PLMATH(0.75,0.45,CH,'V=Rn',0.0,4)
+ CALL PLSLAN(999.0,999.0,CH,'t',0.0,1)
+C
+ CALL PLMATH(0.75,0.35,CH,' = M ',0.0,7)
+ CALL PLCHAR(0.75,0.35,CH,'x [A] b',0.0,7)
+C
+ CALL PLMATH(0.0-CH,0.25-0.4*CH,2.0*CH,'I',0.0,1)
+ CALL PLMATH(0.0,0.25,CH,' ( ) ',0.0,7)
+ CALL PLCHAR(0.0,0.25,CH,' F x dx',0.0,7)
+C
+ CALL PLMATH(0.0,0.15,CH,'e{ ',0.0,3)
+ CALL PLCHAR(0.0,0.15,CH,' 1',0.0,3)
+C
+ CALL PLCHAR(0.25,0.25,CH,'273 K',0.0,5)
+ CALL PLMATH(0.25,0.25,CH,' " ',0.0,5)
+C
+ CALL PLSLAN(0.50,0.25,CH,' y',0.0,8)
+ CALL PLMATH(0.50,0.25,CH,'g=-$G/$ ',0.0,8)
+C
+ CALL PLCHAR(0.75,0.25,CH,' tan ',0.0,9)
+ CALL PLSLAN(0.75,0.25,CH,' y/x',0.0,9)
+ CALL PLMATH(0.75,0.25,CH,'q= M ',0.0,9)
+C
+ CALL PLCHAR(0.25,0.15,CH,'Underline',0.0,9)
+ CALL PLCHAR(0.25,0.15,CH,'_________',0.0,9)
+C
+ CALL PLSLAN(0.50,0.15,CH,'Overline',0.0,8)
+ CALL PLMATH(0.50,0.15,CH,'________',0.0,8)
+C
+ CALL PLSLAN(0.75,0.15,CH,' r=0',0.0,5)
+ CALL PLMATH(0.75,0.15,CH,'q# ',0.0,5)
+ CALL PLMATH(0.75,0.15,CH,' ^ ',0.0,5)
+ CALL PLMATH(0.75,0.15+0.4*CH,
+ & CH,'^ ',0.0,5)
+C
+ CALL PLMATH(0.00,0.05+1.2*CH,
+ & CH,' * ',0.0,10)
+ CALL PLMATH(0.00,0.05+0.4*CH,
+ & CH,' > > ',0.0,10)
+ CALL PLMATH(0.00,0.05,CH,'> > >',0.0,10)
+ CALL PLCHAR(0.00,0.05,CH,'a= r+2 v',0.0,10)
+ CALL PLMATH(0.00,0.05,CH,' W# W# ',0.0,10)
+C
+ CALL PLSLAN(0.30,0.05,CH,' ~ ',0.0,9)
+ CALL PLCHAR(0.30,0.05,CH,'ln(1+ ) ',0.0,9)
+ CALL PLMATH(0.30,0.05,CH,' v v',0.0,9)
+C
+ CALL PLSLAN(0.55,0.05,CH,' ~ ',0.0,14)
+ CALL PLCHAR(0.55,0.05,CH,' {g x } g x',0.0,14)
+ CALL PLMATH(0.55,0.05,CH,'O ( ) `O ',0.0,14)
+C
+ CALL PLFLUSH
+C
+ccc call usetzoom(.true.,.true.)
+ccc call replot(1)
+C
+ READ(*,1) DUMMY
+ 1 FORMAT(A)
+C
+ CALL PLOT(0.0,0.0,+999)
+C
+ END
+