# ap-list:2081
# 小熊 将廉 <bear@p1.coralnet.or.jp>
# ビットマップ（モノクロ）画像ファイルの作成サンプル   H13-9-4
# Apollo の ap-625d バージョンから作成可能になりました。

require 'phi'
include Phi

form = Form.new

@bmp = Bitmap.new  # Bitmap objectの作成 
                   # インスタンス変数を使ったけど、ローカル変数にした方がいいかな。
@bmp.monochrome = true  # この属性で、bmp画像は白黒になります。

@bmp.height = 100
@bmp.width = 150

@image = Image.new form, :src_image # Image objectの作成

# @image.visible = true 無くても表示されます。
@image.height = 110
@image.width = 160

@bmp.canvas.move_to(0,0)  # 描画開始位置の指定
@bmp.canvas.line_to(149,99)  # 線描画
@image.picture.graphic = @bmp  # 描画完了後に、image objectに表示してもらう。

@image.picture.save('monochro.bmp') # モノクロｂｍｐ画像（３ｋ）として保存。

# 描画後にモノクロ属性を解除？しようとしても無効です。
@bmp.monochrome = false   # エラーはでないようです。
@image.picture.save('color.bmp') # 保存しても、ファイルサイズ（３ｋ）は増えません。カラーだと30kになります。

form.show
Phi.mainloop
