CHAPTER 4:

(1)

CHAPTER 4:

(2)

4. 1 ARC1

(1) ^ç#è

~¿>_`«5"pÃQ=;æÉ}n½ñcR Ì (GPSL^ì )

(2) ª&«¬TÞ4®

CALL ARC1(X,Y,R,ANGS,ANGE,LTY)

(X,Y) : [REAL*4] ^~p¯ x,y^Â1ê R : [REAL*4]

ANGS : [REAL*4] ^T¯ (deg) ANGE : [REAL*4] ^T¯! (deg)

LTY : [INTEGER*4] ^{Ü æ1É} =0;Üp¯yza±-à\LpKLM

( 1:^dÜ 2:^"Ü 3:^®ô$#Ü 4:^%pô#Ü 5:^ô+Ü )

4. 2 ARC2

(1) ^ç#è

&ÿô%_`'Q=æ(on*)ñ+R-, (GPSL^ì )

(2) ^./'0TÞ213

CALL ARC2(XS,YS,XE,YE,R,LTY)

(XS,YS) : [REAL*4] ^54)ô64 x,y^Â1ê (XE,YE) : [REAL*4] ^74*)ô64 x,y^Â1ê ABS(R) : [REAL*4]

R > 0 : É$8/9;:0ü+R-,

R < 0 : <%É$89=: ücR>,

LTY : [INTEGER*4] ^{Ü+ æ(} =0;Ü74yza±àaLpKLM

( 1:^dÜ 2:^"Ü 3:^®ô$#Ü 4:^%pô#Ü 5:^ô+Ü )

4. 3 AROHD

(1) ^ç#è

æ(}n*)äÜ/TüG¼)½6cR>, (GPSL^ì )

(2) ^./'0TÞ213

CALL AROHD(X0,Y0,X1,Y1,AL,AW,IC)

(X0,Y0) : [REAL*4] ¼½!cR-,Ü/54*)ô

(3)

(X1,Y1) : [REAL*4] ¼½!cR-,Ü/54*)ô é ¼)½?/>g@>, Ã27í

AL,AW : [REAL*4] ^¼½A44Ñ}n ^úgÝ IC : [INTEGER*4]

IC/10=0: ¼½?/B48:GRNðñ

1: Ü/7ó¼)½6Rðñ

2: Ü/544s$C¹ü'¼½6Rðñ

MOD(IC,10)=1:^DFEHGI1 2:^JKHGI1 3:^LCAI$1 4:^s$C%¼ 5:^LC¼ 6:^MN:2OPQRI1

7:LCM-:2OPBQFI$1

^ST)ÝAU Figure 2 ^VWX

(3) ^Y4Z

^[ ^¼)½\4*]a± PENX, NEWPEN²_^`(;Qabc,edf_U/WX

^[ M-:2OPBQ4*g7h PENX, NEWPENi_^`(=Q*jg7VkAX

4. 4 ARROW

(1) ^lm

^n/o!pq_r!X

(2) ^./'05Q213

CALL ARROW(X0,Y0,X1,Y1,DC)

(X0,Y0) : [REAL*4] ^n64tsu vwn/o?x!U@-,eyz{

(X1,Y1) : [REAL*4] ^n64|}

DC : [REAL*4] n~Rn64B4*H4t

1 2 3 4 5 6 7 11 12 13 14 15 16 17 21 22 23 24 25 26 27

Figure 2 Sample of AROHD

(4)

(3) ^Y4Z

^[ ^no\4*]7h PENX, NEWPENi_^`(;Qabc,edf_U/WX

4. 5 AXIS

(1) ^lm

]174tp-, (GPSL )

(2) ^./05Q213

CALL AXIS(X,Y,NBCD,N,ALEN,THETA,FIRST,DELTA)

(X,Y) : [REAL*4] 54*|}74t$

NBCD : [CHARACTER*N] ^BV*@5X

N : [INTEGER*4] BV*@5X54

ALEN : [REAL*4] ^B4t

THETA : [REAL*4] p-,¡~t¢¡~*4k$r£¤

FIRST : [REAL*4] 5¥*¦§B¥7¨ª© «

DELTA : [REAL*4] B¥6¨2©_¬A¥*x«

(3) ^Y¥Z

^[ ^]7h LINSEL,PENXi7¥t`®=~ª¯\°±5V²]_^/WX

^[ ²³6V*ST_r_X5¥tHh ALEN*FCTR^{~kAX$¥^}

FACTORV\´7µ¶¤!·¸¹º»¼\r_XA½/~

4. 6 BAR

(1) ^lm

¾¿ÁÀO7ÂÃÄ¾¿ÁÀ\¥kÅÆ+ÇÈÉp>Ê (GPSL )

(2) ^Ë/Ì5Q2ÍÎ

CALL BAR(X,Y,TH,H,W,SH,IH,N)

(X,Y) : [REAL*4] Æ+ÇÈÉ¥*ÏÐ6¥*yz

TH : [REAL*4] ^ÆÇÈÉU x^=~kr£¤

(W,H) : [REAL*4] Æ+ÇÈÉ¥ÑÒ[ÔÓH

SH : [REAL*4] ¾¿ÁÀr_XÕx5¥*ÓH

IH : [INTEGER*4]

=1: ¾Ö¿À×Ç_QkÅ

2: Ï/Ð/ÃHØÚÙÛBV¾¿ÁÀ×Çr!X

3: Ù/Ð/ÃHØÚÏÛBV¾¿ÁÀ×Çr!X

(5)

>=4: ÜÝ!¥¾¿ÀB×Çr_X

N : [INTEGER*4] ^Þy (1m)ßjÖµÚ¾Ö¿ÀA¥*à

(3) ^Y¥Z

^[ Æ+ÇÈÉb5´¾Ö¿À\¥]6h PENX, LINSELi_^`®;Qtj6á¥V$kAX

jâ7QRÄ$²]¡~Úã]5¥äåæ

4. 7 CIRC1

(1) ^lm

çèÄéê!^`®Öë6Xìp>Ê (GPSL )

(2) ^Ë/Ì5Q2ÍÎ

CALL CIRC1(X,Y,R,LTY)

(X,Y) : [REAL*4] ^çè7¥ x,y

R : [REAL*4] ^éê

LTY : [INTEGER*4] ^]`® =0;]7¥*»¼7htí6kî/kÅ

( 1:^²] 2:^ã] 3:^ï}$ð] 4:^ñ}ð] 5:^}$] )

4. 8 CIRC2

(1) ^lm

çèÄéê!^`®Öë6Xìp>Ê (GPSL )

(2) ^Ë/Ì5Q2ÍÎ

CALL CIRC2(X,Y,XA,YA,LTY)

(X,Y) : [REAL*4] ^çè7¥ x,y^$

(XA,YA) : [REAL*4] ^ìò7¥}6¥ x,y

LTY : [INTEGER*4] ^]+`® =0;]7¥*»¼7h*í7kî/kÅ

( 1:^²] 2:^ã] 3:^ï}$ð] 4:^ñ}ð] 5:^}$] )

4. 9 CIRC3

(1) ^lm

óô}Ab5´éê_^`®Ö*ë!Xìp>Ê (GPSL )

(2) ^Ë/Ì5Q2ÍÎ

CALL CIRC3(X1,Y1,X2,Y2,R,LTY)

(6)

(X1,Y1) : [REAL*4] ^ìò7¥}7¥ x,y^$

(X2,Y2) : [REAL*4] ^ìò7¥}7¥ x,y^$

ABS(R) : [REAL*4] ^éê

R > 0 : (X1,Y1)^ÃØ (X2,Y2)Vº$õö=µ÷Vìòp>Ê

R < 0 : (X1,Y1)^ÃØ (X2,Y2)VtøAºõ/ö;µÁVìò+p-Ê

LTY : [INTEGER*4] ^]+`® =0;]7¥*»¼7h*í7kî/kÅ

( 1:^²] 2:^ã] 3:^ï}$ð] 4:^ñ}ð] 5:^}$] )

4.10 CIRCL

(1) ^lm

ìù[ìòú[üûý+p>Ê (GPSL )

(2) ^Ë/Ì5Q2ÍÎ

CALL CIRCL(X,Y,THO,THF,RO,RF,DI)

(X,Y) : [REAL*4] ^|}7¥ x,y

THO : [REAL*4] |}Áþ+Xéê!U x^¡~k$r£¤

THF : [REAL*4] ^ÿ}þXéê!U x^¡~k$r£¤

RO : [REAL*4] |}6Vb/XAéê

RF : [REAL*4] ÿ}6Vb/XAéê

DI : [REAL*4]

=0.0 : ^²]

=0.5 : ^ã]

^Y¥*Z : ]+Á»¼cQ*kÅ

4.11 CNTRL

(1) ^lm

7V ®Ö*ëaÅAX}/¬6ï}ð]!^ (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL CNTRL(X,Y,N,INC)

N : [INTEGER*4] ^}5¥t}7¥

X,Y : [REAL*4; N] ^}5¥}7¥*

INC : [INTEGER*4]

=1:^a

n: (n-1)!\b7ÂV"

(7)

4.12 CONTR

(1) ^lm

^i«]p-Ê

(2) ^Ë/Ì2ÍÎ

CALL CONTR(Z,LMAX,IMAX,JMAX,C1,C2,C3)

Z(LMAX,JMAX) : [REAL*4] i«]+p-ÊFj#¥*«_U$&%aÅAX'

IMAX,JMAX : [INTEGER*4] Û (5¥)Äi«]+p>Ê+*,B¥-Â

C1,C2,C3 : [REAL*4] ¦§B¥ti«]5¥*«Ä$¦ .5¥ti«]B¥«Ä

b7´i«]5¥¬0/

(3) ^Y¥Z

^[ 1 2 ®5Vh35¥546578ÀB×9;:/r_X

SETDRW : Z¥<=?>\¥@ABB¥*® C

SETDXDY: ^{D» E¸B¥ ®} SETT3D : 33F» G5¥ ®

SETSPV : ^{H0I« J K5¥}

SETVAL : i«]«($7¥ ÄB¥L M5¥*`®

kbÄ ®Ö*ëAj1 27hÄ12 ®;46578ÀB×V\´7µ

N¤®CÖëOr8P^Q R_^/W/X

4.13 DASHL

(1) ^lm

7V ®Ö*ëaÅAX}/¬6÷ã]!^ (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL DASHL(X,Y,N,INC)

N : [INTEGER*4] ^}5¥t}7¥

X,Y : [REAL*4; N] ^}5¥}7¥*

INC : [INTEGER*4]

=1:^a

n: (n-1)!\b7ÂV"

(8)

4.14 DASHP

(1) ^lm

^ã]+0SÖÊ (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL DASHP(X,Y,W)

(X,Y) : [REAL*4] ^T×¥UVs W : [REAL*4] ^ã]5¥¬0/

(3) ^Y¥Z

^[ ã]B¥0W|yz7h PLOT^XY# ®Zab;Êedf_UW/X

4.15 DRAWTXT

(1) ^lm

[ \HÂ5]?^_a` pq_r!X

(2) ^Ë/Ì2ÍÎ

CALL DRAWTXT(CM,N,YS,YINT,YD,MODE)

CM : [CHARACTER*N] pq_r_X]?^_b`ª¥

N : [INTEGER*4] ^$7¥t

YS : [REAL*4] ^{$ 5¥ÓÖ}

YINT : [REAL*4] ^í\¬ vw$7¥*ÓHdce{

YD : [REAL*4] ^{f ghB¥¬/}

MODE : [INTEGER*4]

=0: ^ÜuiYj =1: ^{Ï ij} =2: ^çkiYj =3: ^{Ù ij}

(3) ^l¥"m

ⁿ ]?^_a`ô¥tpq o?p6 SETPAGE qXY# ®Z'r scÊ+t u8vw;x

ⁿ y+Éz×&`Úh SETFNT^{q ®\r{x}

ⁿ |Ä\Ãk+Éz×&`Úh SETKFNT^{q ®_r8x}

^jâYRÄ JIS}0~ÅrhåæZ'rÅkÅ/¥0qÄ EUC,Shift-JIS^}

» G\r{xtu8v;wx

ⁿ |Ä\Ãk80 (EUC,JIS,Shift-JIS)hÇÈ qV \r{xvÄ

(9)

SETKCODEqV ®_r8xA½A~áq6Âx

^ksÄ EUC,Shift-JIS¥é$£{A¥ä\d:r{x Ä$7r{x¥0qÄ

^t8 SETKCODEqV ®_r{x/½A~

ⁿ |Ä\ÃkB¥$7¥th EUC,Shift-JIS^¥Ä 1^$8q 2^} kxvÄé$£Ah EUC^qh 2^}Ä Shift-JIS^q/h 1^}kx

JIS¥" 7h Shift-JIS^~'*âvÄ IOS 2022}*Ztjv$x

^¥q Fortran^6ä7ä° LENq$ 5¥t{xA½A~'{#x

ⁿ ^B¥tg6h PENX, NEWPENi?q®*j6á¥7~kx

4.16 DSCALE

(1) ^lm

^{s7´ TICK^p-Ê

(2) ^Ë/Ì2ÍÎ

CALL DSCALE(X0,Y0,X1,Y1,H,D,N)

(X0,Y0) : [REAL*4] B¥*|}7¥*yz

(X1,Y1) : [REAL*4] B¥*ÿ}7¥*yz

H : [REAL*4] TICK^$¥ÓÖ

>0¥Ä5¥*Û/Ý{}~\;x

<0¥Ä5¥ÐÝ{}~\;x

D : [REAL*4] TICK^$Aë{x¬/

N : [INTEGER*4]

ABS(N) : D=0¥ Ä$}" \r{x TICK^¥*à N<0 : $+ *kÅ

(3) ^l¥"m

ⁿ ^¡7h LINSEL, GSLN, GSLWSC, GSPLCI, NEWPEN, PENX^i8q®\r{x

4.17 ELIPS

(1) ^lm

¢+ì£n¤¢ìò+p-Ê (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL ELIPS(X,Y,RM,RN,TH,THO,THF,IP)

(X,Y) : [REAL*4] ^|}7¥ x,y^$

RM,RN : [REAL*4] ^¢+ì¥*ê ,^¥ê

(10)

TH : [REAL*4] ^¢ì¥tê{v x^¡~*¥kr£¤

THO : [REAL*4] ^{¢ìò7¥0W|£} (deg) THF : [REAL*4] ^{¢ìò5¥ÿ{¦£} (deg) IP : [INTEGER*4]

=2: |}PqT+×*Ð§0rUV

=3: |}PqT+×Û§0rUV

(3) ^l¥"m

4.18 ELLIPS

(1) ^lm

¢+ì£n¤¢ìò+p-Ê

(2) ^Ë/Ì2ÍÎ

CALL ELLIPS(X,Y,RM,RN,TH,THO,THF)

(X,Y) : [REAL*4] ^çè7¥ x,y^$

RM,RN : [REAL*4] ^¢+ì¥*ê ,^¥ê

TH : [REAL*4] ^¢ì¥tê{v x^¡~*¥kr£¤

THO : [REAL*4] ^{¢ìò7¥0W|£} (deg) THF : [REAL*4] ^{¢ìò5¥ÿ{¦£} (deg)

(3) ^l¥"m

4.19 FLINE

(1) ^lm

Y} ®Ö*ërÅx}/¬6O¡¨Pjh¡8q (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL FLINE(X,Y,NPT,INC,LTP,ICOD)

X,Y : [REAL*4; ABS(NPT)] ^}5¥}7¥*

NPT : [INTEGER*4]

ABS(NPT): ^}7¥}6¥*

>0:^}/¬6O0¡{q

<0:}/¬6k#+Ø÷Ãk ¡{q

(11)

INC : [INTEGER*4]

=1:^{d r}

n: (n-1)^!?s7Â}

LTP : [INTEGER*4]

=0:^}/¬6²¡{q

1:}A¬!²¡{q6Äl¥t}Y} ICODq®Ztj(©5p-Ê

m:}A¬!²¡{q7Ä (m-1)^!ª} ICOD^q®*j(©5

^p-Ê

-1:^}Y} ICODq®*j(©7p>Ê

-m:^}6¥ (m-1)^!ª} ICODq®Ztj(©5p-Ê

ICOD : [INTEGER*4] «5×¬_×"7{}*åæAr{x 0-15 ^®\r{x

4.20 GPL

(1) ^lm

®\ë¡pq_r8x (KGRAF )

(2) ^Ë/Ì2ÍÎ CALL GPL(N,X,Y)

N : [INTEGER*4] ®Aë0¡5¥}6¥*

X,Y : [REAL*4; N] ®Aë0¡B¥}6¥t$

(3) ^l¥"m

ⁿ ^¡Y¯ LINSEL, GSLN, GSLWSC, GSPLCI, NEWPEN, PENX^i8q®\r{x

4.21 GRID

(1) ^lm

^E¸+pq_r{x (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL GRID(X,Y,DX,DY,NX,NY)

X,Y : [REAL*4] E¸B¥*ÏÐ$u5¥t$

DX,DY : [REAL*4] x,y^{Ý°¥E¸B¥¬/}

NX,NY : [INTEGER*4] x,y^{Ý?°¥E¸B¥*}

(12)

4.22 LINE

(1) ^lm

Y} ®Ö*ërÅx}/¬6Á² ¡{q (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL LINE(X,Y,NPT,INC,LTP,ICOD)

X,Y : [REAL*4; NPT] ^}7¥}7¥t$

NPT : [INTEGER*4] ^}7¥}6¥*

IN : [INTEGER*4]

=1:^r

n: (n-1)!?s7Â0}"

LTP : [INTEGER*4]

=0:^}A¬!²¡{q

1:}A¬!²¡{q6Äl¥}} ICODq®Ztj(©5p-Ê

m:}A¬!²¡{q6Ä (m-1)^!ª} ICOD^q®*j(©5

^p-Ê

-1:^}Y} ICODq®tj(©7p>Ê

-m:^}7¥ (m-1)^!ª} ICODq®*j(©5p-Ê

ICOD : [INTEGER*4]«B×¬\×7{}tåæ\r8x 0-15 ^'®_r8x

4.23 LINE2

(1) ^lm

^O¡+pq_r{x

(2) ^Ë/Ì2ÍÎ

CALL LINE2(X0,Y0,X1,Y1)

(X0,Y0) : [REAL*4] ^O¡5¥*|}

(X1,Y1) : [REAL*4] ^O¡5¥*ÿ}

(3) ^l¥"m

(13)

4.24 NUMBER

(1) ^lm

± V² }7¥* «p-Ê (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL NUMBER(X,Y,S,FPN,ARG,N)

(X,Y) : [REAL*4] d\ÖÂÌrÏÐ6¥tyz

=(999.0,999.0)¥" Y&³×¨`´µ7×&` »jkÅ

=(-999.0,999.0)->¶³×&`+´;µ7×¨`RÁ»YjÛ·$+\NÊ

=(999.0,-999.0)->¶³×&`+´;µ7×¨`RÁ»YjÐ·$+\NÊ

S : [REAL*4] ^$5¥*ÓÖ

FPN : [REAL*4] ^{± V² }7¥ «}

ARG : [REAL*4] ^?v X=~t¥$k$r£¤

N : [INTEGER*4] «B¥"¸ +'®

>0: ²$ }¹/Ð¸¨Pqp-Ê

=0: ²$ }¹Û5¥* «=~º²$ }p-Ê

<0: ^» Õ |N|¸ ¹ÛB¥ «p-Ê

(3) ^l¥"m

ⁿ N>=0¥" Ä \r{x 8v 10d¼Yjx6~V8½} \r{x

ⁿ +Éz×&`¾¯ SETFNT^{q ®\r{x}

ⁿ ^B¥¿¯ PENX, NEWPENi?q®*j6á¥7~kx

ⁿ 1 2 ®}¯35¥546578ÀB×9;:/r8x

SETNUM : » Ä 5¥ ®

ksÄ ®Ö*ëAj1 2Y¯Ä12 ®;46578ÀB×}\´7µ

N¤®CÖëOr8PqQ R8qwx

4.25 NUMBER3

(1) ^lm

± V² }7¥* «p-Ê

(2) ^Ë/Ì2ÍÎ

CALL NUMBER3(X,Y,Z,S,FPN,ARG,N)

^T+×¥UVs XX,YY¯¹Ð6¥_´?À"}» GH*ëx

XX=X03D+(X-X03D)*(1-(Y-Y03D)/YM3D)*X3D+(Y-Y03D)*X2D YY=Y03D+(Y-Y03D)*(1-(X-X03D)/XM3D)*Y3D+(X-X03D)*Y2D

(14)

+Z*(1-(Y-Y03D)/YM3D)*X3D S : [REAL*4] ^$5¥*ÓÖ

FPN : [REAL*4] ^{± V² }7¥ «}

N : [INTEGER*4] «B¥"¸ +'®

>0: ²$ }¹/Ð¸Pqp-Ê

=0: ²$ }¹ÛB¥ «=~º²$ }p-Ê

<0: ^» Õ |N|¸ ¹ÛB¥ «p-Ê

(3) ^l¥"m

ⁿ N>=0¥" Ä \r{x 8v 10d¼Yjx6~V8½} \r{x

ⁿ +Éz×&`¾¯ SETFNT^{q ®\r{x}

ⁿ 1 2 ®}¯35¥546578ÀB×9;:/r8x

SETT3D : 33F» G5¥ ®

SETNUM : » Ä 5¥ ®

ksÄ ®Ö*ëAj1 2Y¯Ä12 ®;46578ÀB×}\´7µ

4.26 PLOT

(1) ^lm

O¡+0SÖÊ¶nÂÁ}7¥UV (GPSL ) T8 Ã"ÄjÅnÆÇÉ{È"µ07ÿ{¦/¥ÉÊ

(2) ^Ë/Ì2ÍÎ

CALL PLOT(X,Y,NS)

(X,Y) : [REAL*4] ^T×¥UVs NS : [INTEGER*4]

= 2: T+×*Ð{§rUV

3: T+×Û§0rUV

-2: T+×*Ð§0rUV ÄUVsY}Á}U\r

-3: T+×Û§0rUV ÄUVsY}Á}U\r

5: T8 Ã"ÄYj

999: Æ ÇÉÈ'µ07ÿ8¦A¥"É Ê

(3) ^l¥"m

(15)

ⁿ T?ÃdÄYjx6~Á}UV¯*§ Ë;+*ë{x

4.27 PLOT1

(1) ^lm

^®\ë¡p-Ê (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL PLOT1(X,Y,N)

N : [INTEGER*4] ®Aë0¡5¥}6¥*

X,Y : [REAL*4; N] ®Aë0¡5¥}6¥t$

(3) ^l¥"m

4.28 PLOT3

(1) ^lm ^O¡+0SÖÊ

(2) ^Ë/Ì2ÍÎ

CALL PLOT3(X,Y,Z,NS)

XX=X03D+(X-X03D)*(1-(Y-Y03D)/YM3D)*X3D+(Y-Y03D)*X2D YY=Y03D+(Y-Y03D)*(1-(X-X03D)/XM3D)*Y3D+(X-X03D)*Y2D +Z*(1-(Y-Y03D)/YM3D)*X3D

NS : [INTEGER*4]

=2: T+×*Ð{§rUV

3: T+×Û§0rUV

5: ^{T8 ÃÃjx} 999: ÿ{¦_ÉÊ_r{x

(3) ^l¥"m

ⁿ ^¡Y¯ LINSEL, GSLN, GSLWSC, GSPLCI, NEWPEN, PENX^i8q®\r{x ⁿ 1 2 ®}¯35¥546578ÀB×9;:/r8x

SETT3D : 33F» G5¥ ®

ksÄ ®Ö*ëAj1 2Y¯Ä 12 ®;467{ÀB×}\´7µ

(16)

4.29 RECT

(1) ^lm

^/ÝÍ+p-Ê (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL RECT(X0,Y0,DH,DW,TH,NP)

(X0,Y0) : [REAL*4] /ÝÍ5¥*ÏÐ6¥*yz

(DW,DH) : [REAL*4] X,Y^AÝ°¥*x

TH : [REAL*4] Ý$Í7¥ÌÍ=~t¢¡~t¥$k$r£¤

NP : [INTEGER*4]

=2 : (X0,Y0)PqT+×*Ð{§rUV_r8x

^l¥m : (X0,Y0)PqT×Û§rUV\r{x

(3) ^l¥"m

4.30 SMOOT

(1) ^lm

}A¬6k #+Ø÷Ãk ¡¨Pj ¯O¡8q (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL SMOOT(X,Y,NS)

(X,Y) : [REAL*4] ^T×¥UVs NS : [INTEGER*4]

=0: ¡+pÂ÷|Y#x¦§B¥t}'®_r8x

-1: ¡+pHÂF|Y#x¦§B¥}B'®_r{x

-2: T+×*Ð§0rUV Ä!k #ØÁÃk¡8q{

-3: T+×Û§0rUV

<-24: ¡5¥*¦ÿ}qwx/½A~'®RÄï5¥Î Ï+ÿ8¦r8x

2: T+×*Ð§0rUVRÄO¡8q{

3: T+×Û§0rUV

(3) ^l¥"m

(17)

4.31 STREAM

(1) ^lm

ÐÑ¡pq_r8x

(2) ^Ë/Ì2ÍÎ

CALL STREAM(U,V,WK,LMAX,IMAX,JMAX)

U(LMAX,JMAX) : [REAL*4] xÒx5¥*«{v$&%5rÅ?x

V(LMAX,JMAX) : [REAL*4] yÒx5¥*«{v$&%5rÅ?x

WK(LMAX,JMAX) : [REAL*4] work

IMAX,JMAX : [INTEGER*4] Û (5¥)ÄÐÑ¡pq_r8x

^{* ,5¥-+Â}

(3) ^l¥"m

ⁿ 1 2 ®}¯35¥546578ÀB×9;:/r8x

SETDRW : Z¥<=?>\¥@ABB¥*® C

SETDXDY: ^{D» E¸B¥ ®} SETT3D : 33F» G5¥ ®

SETSTRM: ÐÑ¡B¥¬/s5´n/oA¥¬0/ÓnÔ-Â¥®

^v ó2Ý°¥*²³6¥"E¸Ñv;*kØ2ÄÕ} ®_r8x'tu¯kÅ{

ksÄ ®Ö*ëAj1 2Y¯Ä12 ®;46578ÀB×}\´7µ

4.32 SYMBOL

(1) ^lm

$+p>Ê (GPSL )

(2) ^Ë/Ì2ÍÎ

CALL SYMBOL(X,Y,S,C,ARG,N)

(X,Y) : [REAL*4] d\ÖÂÌrÏÐ6¥*yz

=(999.0,999.0)->¶³×¨`´µ7×¨`R»jkÅ

=(-999.0,999.0)->¶³×&`+´;µ7×¨`RÁ»YjÛ·$+\NÊ

=(999.0,-999.0)->¶³×&`+´;µ7×¨`RÁ»YjÐ·$+\NÊ

S : [REAL*4] ^$5¥*ÓÖ

C : [CHARACTER] ^$

(18)

N<0^¥

(X,Y) : [REAL*4] «5×0¬_×"7_¥çèyz

S : [REAL*4] «B×¬\×7!¥ÓÖ

C : [INTEGER*4] (0-15)q «5× ¬_×"7_¥tÖ+'®

N=-1 : (X,Y)PqT×ÁÛ§rUV

-2 : (X,Y)PqT+×*Ð§0rUV

«5×0¬\×7_¥ ;×?v Figure 3 ^}wx

(3) ^l¥"m

ⁿ y+Éz×&`¾¯ SETFNT^{q ®\r{x}

ⁿ |Ä\Ãk+Éz×&`¾¯ SETKFNT^{q ®_r8x}

ⁿ |Ä\Ãk80 (EUC,JIS,Shift-JIS)¯ÇÈ qV \r{xvÄ

SETKCODEqV ®_r8xA½A~áq6Âx

^ksÄ EUC,Shift-JIS¥é$£{A¥ä\d:r{x Ä$7r{x¥0qÄ

^t8 SETKCODEqV ®_r{x/½A~

ⁿ |Ä\ÃkB¥$7¥t¯ EUC,Shift-JIS^¥Ä 1^$8q 2^} ^kxvÄé$£¯ EUC^q;¯ 2^}Ä Shift-JIS^q¯ 1^}kx

JIS¥" Y¯ Shift-JIS^~'*âvÄ IOS 2022}*Ztjv$x

^¥q Fortran^6ä7ä° LENq$ 5¥t{xA½A~'{#x

ⁿ |Ä\ÃkAÉz×¨`RØ\ÖÂ}®Ztj Ä$ }"y8v$x!~

^Ù;Ú} *kÅ

^{P$jÄÛ ·} ^v Ð·{$cáºÙ;Ú} *kÅ

4.33 SYMBOL3

(1) ^lm

$+p>Ê (GPSL )

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Figure 3 Sample of center symbol

(19)

(2) ^Ë/Ì2ÍÎ

CALL SYMBOL3(X,Y,Z,S,C,ARG,N)

XX=X03D+(X-X03D)*(1-(Y-Y03D)/YM3D)*X3D+(Y-Y03D)*X2D YY=Y03D+(Y-Y03D)*(1-(X-X03D)/XM3D)*Y3D+(X-X03D)*Y2D +Z*(1-(Y-Y03D)/YM3D)*X3D

S : [REAL*4] ^$5¥*ÓÖ

C : [CHARACTER] ^$

N<0^¥

C : [INTEGER*4] (0-15)q «5× ¬_×"7_¥tÖ+'®

N=-1 : (X,Y)PqT×ÁÛ§rUV

-2 : (X,Y)PqT+×*Ð§0rUV

(3) ^l¥"m

ⁿ y+Éz×&`¾¯ SETFNT^{q ®\r{x}

ⁿ |Ä\Ãk+Éz×&`¾¯ SETKFNT^{q ®_r8x}

ⁿ |Ä\Ãk}~År/¥ÛÜ Ý ÞY¯ SYMBOL^{ßàá8xA½/~}

ⁿ ^B¥¿¯ PENX, NEWPENâ?q®ã6á¥7~"äx

ⁿ 1 2 ®}¯35¥546578ÀB×9;:á8x

SETT3D : 33F» G5¥ ®

äsÄ ®Ö*ëã1 2Y¯Ä12 ®;46578ÀB×}\´7µ

N¤®CÖëO;á8PqQ R8qwx

4.34 UVHPLOT

(1) ^åæ

(U,V)vç?j+ØFëãèÂÄéê ëìYí`î7ïð ñò'ó>Ê

(2) ^ËôÌ2ÍÎ

UVHPLOT(U,V,DNS,LMAX,IMAX,JMAX,CD,ISP)

U(LMAX,JMAX) : [REAL*4] ^ë5¥ XÒõ5¥*«{v$&%5rÅx'

V(LMAX,JMAX) : [REAL*4] ^ë5¥ YÒõ5¥*«{v$&%5rÅx'

DNS(LMAX,JMAX) : [REAL*4] ë Òõ&òö¤8q÷xtu?vwx Ä

ö¤7¥*«8v$¨%rÅx' ¨ò$;øá8x

(20)

DNS = 0.0 : ëÒõ¨ò'ö ?q÷x't u8v;äÅ

IMAX,JMAX : [INTEGER*4] Û ()ÄNµ~òíä&À

^{* ,-+Â}

CD : [REAL*4] X^Ý° E¸_¬ìYí`î7-Â Ä

Pã ¯û~ðñ}*å?á{x'ë

CD = 0.0 : ^{V ?á{x} ISP : [INTEGER*4]

ISP > 0 : ^éêëì `î7Yò'ó>Ê+E¸/

ISP = 0 : ^éêëì `î7Yò'ó>Ê+E/ò8V 8á{x

ISP < 0 : ^{ð ñòE/} ABS(ISP) ^qó>Ê

(3) ^{l "m}

ⁿ ½467{À×0òËôÌáh}3 7Ø"!@AB&ò#C'r

^s%$ûtu?vwx

SETDRW : U,V x-y<=>"@ AB&'C

SETDRW2 : U,V^è( (r-⁾ )<=?>@ AB* C

SETDRW3 : ^{+ ,} U,V^-( (⁾ -r)./0'1 243* 5

ⁿ ^{ðñ687*9 ¯} SETUVPL q;:"ä<=;>@?BADCE F'G6H

^I ^JKMLNO SETUVPL PRQ4;:ä4<4=%>?S.'TVU6WX YZG6H

X YF'[ä<;ã4\VW4O8? SETUVPL ^{P^]_} 0.0 ^{P8E `aHSbè} ^I c dE WOMe fg hi^j&kò#lVmS`H

SETDXDY : npo q&'E

SETUVPL : r ê ëì6sBtuh ïð ñ6'vwIx7y9#?VJK'L N

z4{R?4EZ'G|Mc dO8?c}d4E Vfg hi^j&kW~>

5ZGV`RP8 PSSH

4.35 YABANE

(1) ^}

^$

(2) ^{S :D}

CALL YABANE(X,Y,ANG,MET,FL)

(X,Y) : [REAL*4] &#$&V

ANG : [REAL*4] ^a 360^VLV

MET : [INTEGER*4]

= 1:

= 2: ^S

=10: }¡&k¢t£¥¤S

(21)

FL : [REAL*4] ±²'S6'³F´

(3) ^{µ ¶}

Î ^·O LINSEL, GSLN, GSLWSC, GSPLCI, NEWPEN, PENX^¸PQ¹àH Î ¡*k¢tº'»>D¼}½*: 'vO'&Mv%¾¿À WzH