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
|
*-----------------------------------------------------------------------
PROGRAM SLPK04
REAL X(5), Y(5)
CHARACTER USGI*3
DATA X / -7.5, 7.5, 7.5, -7.5, -7.5/
DATA Y / -7.5,-7.5, 7.5, 7.5, -7.5/
WRITE(*,*) ' WORKSTATION ID (I) ? ;'
CALL SGPWSN
READ(*,*) IWS
CALL SGOPN(IWS)
XMAXF = 26.
YMAXF = 18.5
CALL SLFORM(XMAXF, YMAXF) ! <-- 鐃緒申鐃緒申的鐃緒申鐃術誌申鐃緒申鐃順き鐃緒申鐃緒申鐃緒申鐃緒申
CALL SLRAT(XMAXF, YMAXF)
CALL SGLSET('LFULL', .TRUE.)
CALL SGFRM
CALL SGSWND(-XMAXF/2., XMAXF/2., -YMAXF/2., YMAXF/2.)
CALL SGSTRF
CALL SGPLU(5, X, Y)
CALL SGTXZU(0., 0., '15cm '//USGI(194)//' 15cm', 0.05, 0, 0, 3)
CALL SGCLS
END
|
