f(x)=(x+2)(x-3) の単純描画
X-Y座標のみ15度反時計回りに回転、
関数のみ反時計回りに15度回転、
軸およびグラフともに反時計回りに15度回転
!------------------------------------------------------------------------------------------------------------
!色指標0の色は背景色で，特別な意味を持つ。また，各描画命令は，特に指定がない場合には色指標1の色を用いる。
! 本BASICでは，色指標は0から255までが利用でき，あらかじめ次のように割り当てられている。
! 0白， 1黒， 2青， 3緑， 4赤， 5水色， 6黄色， 7赤紫，
! 8 灰色，9 濃い青,10 濃い緑，11 青緑， 12 えび茶，13 オリーブ色，14 濃い紫，15 !------------------------------------------------------------------------------------------------------------
!色指標0の色は背景色で，特別な意味を持つ。また，各描画命令は，特に指定がない場合には色指標1の色を用いる。
! 本BASICでは，色指標は0から255までが利用でき，あらかじめ次のように割り当てられている。
! 0白， 1黒， 2青， 3緑， 4赤， 5水色， 6黄色， 7赤紫，
! 8 灰色，9 濃い青,10 濃い緑，11 青緑， 12 えび茶，13 オリーブ色，14 濃い紫，15 銀色，･･･
!SET COLOR MIX(色指標) 数値式，数値式，数値式
! 色指標に対応する色を変える。色指標は数値式で与える。
! ３つ並んだ数値式は，赤，緑，青の順に強度を0～1の数値で指定する。銀色，･･･
!SET COLOR MIX(色指標) 数値式，数値式，数値式
! 色指標に対応する色を変える。色指標は数値式で与える。
! ３つ並んだ数値式は，赤，緑，青の順に強度を0～1の数値で指定する。
!例
! SET COLOR MIX(1) 0,0,1
!を実行すると，以後，１番の色が青になる。
!---------------------------------------------------------------------------------
!軸・格子を描く組込みの絵定義
!DRAW GRID
! ｘ軸方向 間隔１，ｙ軸方向 間隔１の格子を描く。
!DRAW GRID(p,q)
! ｘ軸方向 間隔p，ｙ軸方向 間隔qの格子を描く。
!DRAW AXES
! 目盛り間隔がｘ軸方向１，ｙ軸方向１のｘ軸とｙ軸を描く。
!DRAW AXES(p,q)
! 目盛り間隔がｘ軸方向p，ｙ軸方向qのｘ軸とｙ軸を描く。
!DRAW GRID0
!DRAW AXES0
! 上述と同様であるが，目盛りの数字を描かない。
! 上述の組込み絵は，通常，15番の色を用いる。
!軸・格子の色を変えたい場合は，SET COLOR MIXを用いて15番の色を変更する。
!-------------------------------------------------------------------------------------------------------------------------------------------
!SET COLOR MIX(15) 0,0,0 ! 軸：黒色実線 格子：灰色（銀色）破線 この命令を削除すると、実線軸・破線格子・目盛り数値、が灰色（銀色かな）
SET COLOR MIX(15) 0,0,0 ! 軸：黒色実線 格子：灰色（銀色）破線 目盛り数値：黒色
!SET COLOR MIX(15) 0,0,1 ! 軸：青色実線 格子：青色破線 目盛り数値：青色
SET WINDOW -5,5,-10,5 ! SET WINDOW -4,4,0,8 x座標の範囲を-4～4，y座標の範囲を0～8にする。
!DRAW grid(2,2) ! メモリ数値 XY共に２Step
!SET COLOR MIX(15) 0,0,1 ! 軸：青色実線 格子：青色破線 目盛り数値：青色
OPTION ANGLE DEGREES !
!座標軸が回転します
DRAW grid(2,2) WITH SCALE(1)*SHIFT(0,0)*ROTATE(15) ! ********** メモリ数値 XY共に２Step。 この命令を削除すると、軸・格子・目盛り 無しとなる。
DRAW grid(2,2)
!SET COLOR MIX(15) 0,0,1 ! 軸：青色実線 格子：青色破線 目盛り数値：青色
SET LINE COLOR 7 ! Lineの色を 1黒 7赤紫
DEF f(x)=(x+2)*(x-3) ! ^は累乗を意味します
PICTURE zu1
FOR x=-4 TO 4 STEP 0.01
PLOT x,f(x); ! 末尾がセミコロンであれば，描点がonのままとなる
NEXT x
END PICTURE
DRAW zu1 WITH ROTATE(15) ! 描画関数のみ15度反時計方向に回転させる
END
! 正常に描画した関数のグラフを左15度傾けた図となった。
- 回転について、各手順がプログラムに記述してあります。
- コメント扱い ！を各箇所にいれ変化を観察します。すると、その命令の効果が確認できます。
