Xojo備忘録-画像データを生成

consoleアプリケーションで簡単なグラフ的なイメージデータを生成する必要がありテスト。
GUIアプリでも使えるけど
最終的にデータベースかCSVなどから値を読み込んでグラフ化に利用する予定。
以下のは800×400pixelの画像を生成し白で塗りつぶし左上に100x100pixelの赤い正方形を描くきファイル出力するだけサンプルである。

// 800 x 500 Pixel works
Var width  As Integer = 800
Var height As Integer = 500

// creates new picture
Var pic As New Picture(width, height)

// white
pic.Graphics.DrawingColor = &cFFFFFF
pic.Graphics.FillRectangle(0, 0, 799, 499)

// red
pic.Graphics.DrawingColor = &cFF0000
pic.Graphics.FillRectangle(0, 0, 100, 100)

Var f As FolderItem
f=SpecialFolder.Desktop.Child("Image.jpg")
pic.Save(f, Picture.Formats.JPEG)

実際にはファイルなどから値を読んで文字とか数値とかラインとか引く必要あるけど、画像の生成も簡単だ。
出力したファイルをhtmlに埋め込めば良い。