S1 Wiki

n個の座標点を直線で結びます(CONNECT)。

グラフィック・アクセス用インターフェイス・バッファ内に格納されている、いくつかのグラフィック座標を直線で結びます。
指定できるグラフィック座標の数は2点から最大30点までです。
その他必要なパラメータもすべて、グラフィック・アクセス用インターフェイス・バッファに格納します。
グラフィック・アクセス用インターフェイス・バッファの先頭アドレスはシステム・ワークのPIFBUF($F010)に格納されています。

グラフィック・アクセス用インターフェイス・バッファの構成

0	1	2	3	4	5	6	7	8	9	A	B	C	D	E	...
ERR	CMD	CL	PO	LS		N	X1		Y1		X2		Y2		...	Xn		Yn

• ERR:エラーコード(出力)*1
• CMD:コマンド・コード*2
• CL:グラフィックのパレット番号(0〜7)
• PO:プロット・オプションおよびライン・スタイル・フラグ(→LINEMAの項目参照)
• LS:ライン・スタイル $0000〜$FFFF
• N:コネクタ・カウント 2〜30
• X1:始点の水平方向座標値 スクリーン座標値
• Y1:始点の垂直方向座標値 スクリーン座標値
• Xn:第n座標点の水平方向座標値 スクリーン座標値
• Yn:第n座標点の垂直方向座標値 スクリーン座標値

座標上の(100,50)、(500,50)、(450,150)、(50,150)、(100,50)を対角線とする四角形を描きます。

 0           C000   CONNEC  EQU  *          --SAMPLE OF "CONNEC" ROUTINE--
 1 C000   20 1B             BRA  STEP1
 2           F010   PIFBUF  EQU  $F010      POINT ADDR. OF
 3                  *                                   GRAPHIC I/F BUFFER
 4 C002      00     PARM    FCB  $00        ERROR CODE
 5 C003      00             FCB  $00        COMMAND CODE
 6 C004      03             FCB  $03        PALETTE CODE
 7 C005      02             FCB  $02        PLOT OPTION(d7:LS FLAG)
 8 C006      0000           FDB  $0000      LINE
 9 C008      05             FCB  $05        CONNECT COUNT
10 C009      0064           FDB  100        CONNECT POS. 1 (HORZ.)
11 C00B      0032           FDB  50         (VERT.)
12 C00D      01F4           FDB  500        CONNECT POSITION 2
13 C00F      0032           FDB  50
14 C011      01C2           FDB  450        CONNECT POSITION 3
15 C013      0096           FDB  150
16 C015      0032           FDB  50         CONNECT POSITION 4
17 C017      0096           FDB  150
18 C019      0064           FDB  100        CONNECT POSITION 5
19 C01B      0032           FDB  50
20           C01D   PARME   EQU  *          PARM. END
21           C01D   STEP1   EQU  *          --- PARM. SET TO BUF. ---
22 C01D   BE F010           LDX  PIFBUF     X:GRAPHIC I/F BUFFER ADDR.
23 C020   31 8CDF           LEAY PARM,PCR   Y:TOP ADDR. OF PARM.
24 C023   C6 0F             LDB  #PARME-PARM B:PARM. COUNT
25 C025   A6 A0     LOOP    LDA  ,Y+        A:PARM. DATA
26 C027   A7 80             STA  ,X+        GRAPHIC I/F BUF. <--A 
27 C029   5A                DECB            CONNECT PARM. DATA END ?
28 C02A   26 F9             BNE  LOOP
29           C02C   STEP2   EQU  *          --- CONNECT EXEC ---
30 C02C 103F                SWI2            CALL "CONNEC" ROUTINE
31 C02E      42             FCB  $42        MAP NO=2
32 C02F      02             FCB  $02        ROUTINE NO=2
33 C030   39                RTS