1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      PROGRAM KIHONC
5
6      WRITE(*,*) ' WORKSTATION ID (I)  ? ;'
7      CALL SGPWSN
8      READ (*,*) IWS
9
10      CALL SGOPN( IWS )
11      CALL SGFRM
12
13      CALL SGSWND( 0.0, 10.0, 0.0, 10.0 )
14      CALL SGSVPT( 0.0,  1.0, 0.0,  1.0 )
15      CALL SGSTRN( 1 )
16      CALL SGSTRF
17
18*-- デフォルト ----
19      Y1 = 9.0
20      DO 10 I=1,8
21        X1 = I
22        X2 = X1 + 0.1*I
23        Y2 = Y1 + 0.1*I
24        CALL SGLAU( X1, Y1, X2, Y2 )
25   10 CONTINUE
26
27*-- 線分のラインタイプ ----
28      Y1 = 8.0
29      Y2 = 8.6
30      DO 20 I=1,4
31        X1 = 2*I - 1
32        X2 = X1 + 0.6
33        CALL SGSLAT( I )
34        CALL SGLAU( X1, Y1, X2, Y2 )
35   20 CONTINUE
36
37      CALL SGSLAT( 1 )
38
39*-- 線分のラインインデクス ----
40      Y1 = 7.0
41      Y2 = 7.6
42      DO 30 I=1,4
43        X1 = 2*I
44        X2 = X1 + 0.6
45        CALL SGSLAI( I )
46        CALL SGLAU( X1, Y1, X2, Y2 )
47   30 CONTINUE
48
49      CALL SGSLAI( 1 )
50
51*-- 矢じり部分の長さ ----
52      CALL SGLSET( 'LPROP', .FALSE. )
53      CALL SGRSET( 'CONST', 0.03 )
54
55      Y1 = 6.0
56      DO 40 I=1,8
57        X1 = I
58        X2 = X1 + 0.1*I
59        Y2 = Y1 + 0.1*I
60        CALL SGLAU( X1, Y1, X2, Y2 )
61   40 CONTINUE
62
63      CALL SGLSET( 'LPROP', .TRUE. )
64
65*-- 矢じり部分の角度 ----
66      Y1 = 5.0
67      Y2 = 5.6
68      DO 50 I=1,8
69        X1 = I
70        X2 = X1 + 0.6
71        CALL SGRSET( 'ANGLE', 10.0*I )
72        CALL SGLAU( X1, Y1, X2, Y2 )
73   50 CONTINUE
74
75*-- 矢じり部分のぬりつぶし ----
76      CALL SGLSET( 'LSOFTF', .TRUE. )
77      CALL SGLSET( 'LATONE', .TRUE. )
78      CALL SGISET( 'IATONE', 655 )
79
80      Y1 = 4.0
81      Y2 = 4.6
82      DO 60 I=1,8
83        X1 = I
84        X2 = X1 + 0.6
85        CALL SGRSET( 'ANGLE', 10.*I )
86        CALL SGLAU( X1, Y1, X2, Y2 )
87   60 CONTINUE
88
89*-- ラインサブプリミティブ ----
90*-- デフォルト ----
91        CALL SGLNU( 0., 3., 10., 3. )
92
93*-- 線分のラインインデクス ----
94      Y1 = 0.5
95      Y2 = 2.5
96      DO 70 I=1,4
97        X1 = 2*I - 1
98        X2 = X1 + 2.0
99        CALL SGSLNI( I )
100        CALL SGLNU( X1, Y1, X2, Y2 )
101   70 CONTINUE
102
103      CALL SGCLS
104
105      END
106