斜めの四角を描こう！

■はじめに

斜めの四角を描いてみよう。
正確か？といわれると、端がちょっと出てたり、まあ微妙だけど、その辺は大まかな感じで
多分動くんじゃないかなぁ、というスクリプトです。
座標の順番などで動かないこともあるような・・・という感じの実用度の低いスクリプトです。

あ、細長い矩形がかけないようです。うーむ。


実行結果はこんな感じです。



■スクリプト本体

buffer 2 picload "naname.bmp" gsel 0 color 200,0,0 x1=20:y1=0 x2=100:y2=20 x3=80:y3=100 x4=0:y4=80 line x1,y1,x2,y2 line x2,y2,x3,y3 line x3,y3,x4,y4 line x4,y4,x1,y1 wait 100 pos 0,0:gzoom x1,y4,2,0,0,100,100 wait 20 pos x1,y1:gzoom x2-x1,y2,2,100,0,-100,100 wait 20 pos x3,y2:gzoom x2-x3,y3-y2,2,100,100,-100,-100 wait 20 pos x4,y4:gzoom x3,y3-y4,2,0,100,100,-100 color 0,200,0 boxf x1,y2,x3,y4 stop

■スクリプト解説

斜めの四角形が描きたい、という掲示板の質問から、いろいろ考えて作ってみました。
gzoom命令を使うと、自由な大きさにグラフィックを変形できるので、それを使おうと思い、
斜めの四角形の要素をいろいろと研究しました。


赤い線で補助線を引きながら考えていると、どうやら斜めの四角形というのは
上の図のように5つの部分がら成り立っているような、気がしてきました。
真ん中の四角形はbxof命令で描画すれば簡単そうです。

あとの部分は同じような形で、上下が反転しているだけです。
gzoom命令では上下反転も出来るので、これを利用しない手はありません。
naname.bmp
こんな形の部品を用意しました。


先のサンプルでは、 こんな構成になっています。
gzoom命令で、naname.bmpを縦横に伸ばして、対応する位置に置いています。

gzoom x2-x1,y2,2,100,0,-100,100

このように、コピーサイズにマイナスの値をしていすると図形を反転しながらコピーすることができます。
この場合は、X座標に-100を指定しているので、横方向の反転をします。
4つの3角形をコピーしたあと、最後にBoxf命令で塗りつぶせば終わりです。
今回はわざと色を変えてあります。

line命令の部分やwait命令は、動作の確認をするために入れているものなので、その辺は省いても動きます。