1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
C***********************************************************************
C Module: zoomtest.f
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 ZOOMTEST
C
C---- dot-pattern masks for use with PLGRID, NEWPAT, etc.
C
C mask0: _________________________ (solid)
C 1: .........................
C 2: . . . . . . . . . . . . .
C 3: . . . . . . .
C 4: . . . .
C
CHARACTER LINE*80
LOGICAL LXYSAME, LCURSOR
data mask0, mask1, mask2, mask3, mask4
& / -1 , -21846, -30584, -32640, -32768 /
C
IDEV = 1
IPSLU = 0
SIZE = 0.8
C
CH = 0.020
C
CALL PLINITIALIZE
CALL PLOPEN(0.78,IPSLU,IDEV)
CALL DRAWTOBUFFER
CALL NEWFACTOR(SIZE)
C
CALL PLOTABS(1.00,1.00,-3)
C
call PLGRID(0.0,0.0,22,0.5,17,0.5,MASK2)
call PLGRID(0.0,0.0,11,1.0, 9,1.0,MASK1)
call PLGRID(0.0,0.0, 3,5.0, 2,5.0,MASK0)
call PLSLAN(0.1,0.1,0.2,'abcDEF123',0.0,9)
CALL NEWCOLORNAME('green')
call PLCHAR(1.1,1.1,0.2,'321GHIjkl',0.0,9)
CALL NEWCOLORNAME('red')
call PLSLAN(2.1,2.1,0.2,'mnoPQR123',0.0,9)
CALL NEWCOLORNAME('blue')
call PLCHAR(3.1,3.1,0.2,'321STUvwx',0.0,9)
CALL NEWCOLORNAME('black')
c
CALL PLFLUSH
c
write(*,*) ' '
write(*,*) 'The zoom can be done with same X,Y scales'
write(*,*) 'Either mouse or keyboard can set the zoom rectangle'
write(*,*) 'Enter XYsame, MouseInput flags (T/F):'
LXYSAME = .TRUE.
LCURSOR = .TRUE.
read(*,1000) LINE
if(LINE.NE.' ') THEN
read(LINE,*,err=10) LXYSAME,LCURSOR
endif
10 write(*,*) ' '
C
do k=1, 3
call USETZOOM( LXYSAME , LCURSOR )
call REPLOT(1)
enddo
pause
call CLRZOOM
call REPLOT(1)
pause
c
CALL PLOT(0.0,0.0,+999)
1000 FORMAT(A)
C
END
|
