S1 Wiki

円、または円弧を描きます(CIRCLE)。

グラフィック・アクセス用インターフェイス・バッファに格納されているグラフィック座標点を中心として、画面に円弧を描きます。

0	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
ERR	CMD	-	PO	LS		SX		SY		-	-	-	-	RS				RE				-	-	-	-	TFL	RX			RY

• PO:プロット・オプション(KLINEMAルーチンを参照してください)
• LS:ライン・スタイル(KLINEMAルーチンを参照してください)
• SX:中心座標の水平座標値
• SY:中心座標の垂直座標値
• RS:開始角0〜2πラジアン(単制度型実数で指定)
• RE:終了角0〜2πラジアン(単制度型実数で指定)
• TFL:終了角フラグ
  • 0…省略
  • $80…指定
  • 開始角・終了角を指定すると、その範囲内の円弧を描きます。
    角度の指定はラジアンで(-0πから2πの範囲で指定します。ただし、-0ラジアンは指定不可)、省略すると<開始角>には0ラジアンが、<終了角>には2πラジアンが設定されます。
    角度に負の値を指定すると、その絶対値がとられ正の角度が用いられますが、そのとき負の値を指定した方に、中心からの半径を描きます。
    <開始角><終了角>ともに、負の値を指定すると扇形を描くことができます。
• RX:水平方向の半径
• RY:垂直方向の半径
  • RXおよびRYの構成:半径値…2バイト、少数部…1バイト

中心点を(200,200)、X軸半径を150、Y軸半径を126で円を描きます。

 0           0000   KCRCXY  EQU  *          --SAMPLE OF "KCRCXY" ROUTINE--
 1 0000   20 21             BRA  STEP1
 2           F010   PIFBUF  EQU  $F010      POINT ADDR. OF GRAPHIC I/F BUF.
 3           0021   LEN     EQU  EXEC-PARM  LENGTH OF PARM.
 4 0002      00     PARM    FCB  $00        ERROR CODE
 5 0003      00             FCB  $00        COMMAND CODE
 6 0004      07             FCB  $07        COLOR No.
 7 0005      02             FCB  $02        PLOT OPTION
 8 0006      0000           FDB  $0000      LINE STYLE
 9 0008      00C8           FDB  200        HORIZONTAL POSITION 1
10 000A      00C8           FDB  200        VERTICAL   POSITION 1
11 000C                     RMB  4          USED
12 0010      0000           FDB  $0000      START ANGLE
13 0012      0000           FDB  $0000
14 0014      0000           FDB  $0000      END ANGLE
15 0016      0000           FDB  $0000
16 0018                     RMB  4          USED
17 001C      00             FCB  $00        TFL:0
18 001D      0096           FDB  150        HORIZONTAL RADIUS
19 001F      00             FCB  00
20 0020      007E           FDB  126        VERTICAL RADIUS
21 0022      00             FCB  00
22           C023   EXEC    EQU  *          --- PROGRAM START ---
23 0023   BE F010           LDX  PIFBUF     X:GRAPHIC I/F BUFFER ADDR. SET
24 0026   31 8CD9           LEAY PARM,PCR   Y:PARM. START ADDR. SET 
25 0029   C6 21             LDB  #LEN       B:PARM. COUNT SET
26           C02B   LOOP    EQU  *          --- GRAPHIC I/F BUFFER SET ---
27 002B   A6 A0             LDA  ,Y+        A:PARM. DATA
28 002D   A7 80             STA  ,X+        GRAPHIC I/F BUF. <-- A
29 002F   5A                DECB            PARM. DATA END ?
30 0030   26 F9             BNE  LOOP
31           C032   EXECM   EQU  *          --- EXECUTION ---
32 0032 103F                SWI2            CALL "KCRCXY" ROUTINE
33 0034      49             FCB  $49
34 0035      14             FCB  $14
35 0036   39                RTS
36                          END