{---プログラム掲示板投稿フォーム---
【ソフト名】グラデーション高機能お絵かき (バージョン 1.00)
【作 成 者】ミッズー (連絡先:mizuyu@k5.dion.ne.jp)
【種 別】フリーソフトウェア
【ひまわりのバージョン】ver.1.00
【転 載】可(ご自由に)
【改変運用】可(メールで連絡を下さい)
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】無
【コメント】高機能なお絵かきです。
グラデーションのペンやランダムなペンなどがあります。
HTMLの色抽出もできます。
その他機能色々。
---投稿フォームここまで---}
色=黒色。
母艦の、Xは、100。母艦の、Yは、100。
形=●
さいず=12
母艦は、「お絵かき〜」
エラー処理に、エラー処理設定。
＊フォーム作成
fを、フォームとして、作成。
その、可視は、オフ。
その、スタイルは、ダイアログスタイル
f=「色設定」
ｆを、最前面
fの、サイズは、(29,34,339,244)。
ラベル0を、ラベルとして、作成。
その、テキストは、「赤」
その、サイズは、(10,10,50,40)
fの、Xは、0
fの、Yは、427
ラベル1を、ラベルとして、作成。
その、テキストは、「緑」
その、サイズは、(10,50,50,80)
ラベル2を、ラベルとして、作成。
その、テキストは、「青」
その、サイズは、(10,90,50,120)
バー0を、バーとして、作成。
その、イベントは、バー変更。
その、最大値は、２５５
その、サイズは、(60,10,240,40)
バー1を、バーとして、作成。
その、イベントは、バー変更。
その、最大値は、２５５
その、サイズは、(60,50,240,80)
バー2を、バーとして、作成。
その、イベントは、バー変更。
その、最大値は、２５５
その、サイズは、(60,90,240,120)
ラベル3を、ラベルとして、作成。
その、テキストは、「0」
その、サイズは、(240,10,300,40)
ラベル4を、ラベルとして、作成。
その、テキストは、「0」
その、サイズは、(240,50,300,80)
ラベル5を、ラベルとして、作成。
その、テキストは、「0」
その、サイズは、(240,90,300,120)
ラベル6を、ラベルとして、作成。
その、テキストは、「」
その、透過処理は、オフ。
その、背景色は、黒色。
その、サイズは、(10,120,300,150)
ボタン0を、ボタンとして、作成。
その、テキストは、「OK」
その、イベントは、(
FCO=RGB(「｛バー０の、値｝」,「｛バー１の、値｝」,「｛バー２の、値｝」)。
色=FCO
fの、可視は、オフ。)
その、サイズは、(10,150,160,180)
ボタン1を、ボタンとして、作成。
その、テキストは、「Cancel」
その、イベントは、(fの、可視は、オフ。)
その、サイズは、(160,150,300,180)
ラベル7を、ラベルとして、作成。
その、テキストは、「HTML色コード」
その、サイズは、(10,180,150,200)
エディタ0を、エディタとして、作成。
その、テキストは、「#990000」
その、サイズは、(150,180,300,200)
バー0を、fに、乗せる。バー1を、fに、乗せる。バー2を、fに、乗せる。ラベル1を、fに、乗せる。
ラベル2を、fに、乗せる。ラベル3を、fに、乗せる。ラベル0を、fに、乗せる。
ラベル4を、fに、乗せる。ラベル7を、fに、乗せる。
ラベル5を、fに、乗せる。ラベル6を、fに、乗せる。
エディタ0を、fに、乗せる。
ボタン0を、fに、乗せる。
ボタン１を、fに、乗せる。
＊フォーム作成ここまで
＊ファイルのメニュー
ファイルメニューを、メニュー作成。
その、テキストは、「ファイル(&F)」
ファイルメニューに、新規作成を、メニュー追加。
その、イベントは、(白色で、画面クリア。)
ファイルメニューに、保存するを、メニュー追加。
その、イベントは、(
「ビットマップ(*.bmp)|*.bmp|JPEG(*.jpg)|*.jpg」の、書き込みファイル選択。
もし、それ＝「」なら、戻る。
それへ、母艦を、イメージ保存。)
ファイルメニューに、ファイルから貼り付けるを、メニュー追加。
その、イベントは、(
「ビットマップまたはJPEG|*.bmp;*.jpg|ビットマップ(*.bmp)|*.bmp|JPEG(*.jpg)|*.jpg」の、読み込みファイル選択。
もし、それ＝「」なら、戻る。
貼り付ける画像=それ。
「最後にクリックした位置に貼り付けられます」と、言う。
貼り付ける画像を、画像表示。)
ファイルメニューに、印刷を、メニュー追加。
その、イベントは、(母艦を、イメージ印刷。)
＊ペン
ペン種類メニューを、メニュー作成。
その、テキストは、「ペン種類(&P)」
ペン種類メニューに、通常を、メニュー追加。
その、イベントは、基本設定。
ペン種類メニューに、色ランダムペンを、メニュー追加。
その、イベントは、ランダム筆。
ペン種類メニューに、形ランダムペンを、メニュー追加。
その、イベントは、形ランダム。
ペン種類メニューに、色形ランダムペンを、メニュー追加。
その、イベントは、色形ランダム。
ペン種類メニューに、グラデーションを、メニュー追加。
グラデーションに、黒から黄緑へを、メニュー追加。
その、イベントは、緑グラデ。
グラデーションに、黒から青へを、メニュー追加。
その、イベントは、青グラデ。
グラデーションに、黒から赤へを、メニュー追加。
その、イベントは、赤グラデ。
グラデーションに、水色から白へを、メニュー追加。
その、イベントは、赤白。
グラデーションに、ピンクから白へを、メニュー追加。
その、イベントは、薄1。
グラデーションに、黄色から白へを、メニュー追加。
その、イベントは、薄3。
グラデーションに、黒から白へを、メニュー追加。
その、イベントは、薄5。
＊フィルター
フィルタメニューを、メニュー作成。
フィルタメニューに、ぼかしを、メニュー追加。
その、イベントは、(母艦を、10度、画像ボカシ。)
フィルタメニューに、シャープを、メニュー追加。
その、イベントは、(母艦を、100度、画像シャープ。)
フィルタメニューに、ネガポジを、メニュー追加。
その、テキストは、「ネガポジ反転」
その、イベントは、(母艦を、ネガポジ反転。）
フィルタメニューに、ソラリゼーション効果を、メニュー追加。
その、イベントは、(母艦を、ソラリゼーション。)。
その、テキストは、「ソラリゼーション」
フィルタメニューに、明るさ補正効果を、メニュー追加。
その、イベントは、(母艦を、20度、明るさ補正。)。
その、テキストは、「明るさ補正」
フィルタメニューに、ガンマ補正効果を、メニュー追加。
その、イベントは、(母艦を、10度、ガンマ補正。)。
その、テキストは、「ガンマ補正」
フィルタメニューに、画像セピア効果を、メニュー追加。
その、テキストは、「茶色セピア」
その、イベントは、(母艦を、茶色で、画像セピア。)。
フィルタメニューに、画像エッジを、メニュー追加。
その、テキストは、「画像エッジ検出」
その、イベントは、(母艦を、画像エッジ検出。)。
フィルタメニューに、グレイスケールを、メニュー追加。
その、テキストは、「グレイスケールへ変換」
その、イベントは、(母艦を、グレイスケール変換。)。
フィルタメニューに、ビットを、メニュー追加。
その、テキストは、「画像ビット数変換」
ビットに、1を、メニュー追加。
その、テキストは、「1bit（白黒）」
その、イベントは、(母艦を、1ビットに、画像ビット数変更。)
ビットに、4を、メニュー追加。
その、テキストは、「4bit（16色）」
その、イベントは、（母艦を、4ビットに、画像ビット数変更。）
ビットに、8を、メニュー追加。
その、テキストは、「8bit（256色）」
その、イベントは、（母艦を、8ビットに、画像ビット数変更。）
ビットに、16を、メニュー追加。
その、テキストは、「16bit High Color」
その、イベントは、（母艦を、16ビットに、画像ビット数変更。）
ビットに、24を、メニュー追加。
その、テキストは、「24bit True Color」
その、イベントは、（母艦を、24ビットに、画像ビット数変更。）
ビットに、32を、メニュー追加。
その、テキストは、「32bit Color」
その、イベントは、（母艦を、32ビットに、画像ビット数変更。）
＊イメージフォント
その他ツールメニューを、メニュー作成。
その、テキストは、「設定＆文字」
その他ツールメニューに、文字入れを、メニュー追加。
その、テキストは、「文字入れ(&T)」
その、イベントは、(
文字サイズ=10
「文字を入れて下さい」と、尋ねる。
入力=それ。
「２秒以内に画面をクリックして入れる場所を決めて下さい」と、言う。
文字サイズ=さいず
母艦の、マウス押した時は、母艦の、(マウスX,マウスY)へ、「｛入力｝」と、文字描画。
2秒、待つ。
「｛飛び先｝へ、飛ぶ。」を、ひまわりする。)
その他ツールメニューに、サイズを、メニュー追加。
その、テキストは、「ペン・文字サイズ設定(&F)」
その、イベントは、(
文字サイズ=10
「数字で大きさを入力して下さい」と、尋ねる。
一時サイズ=それ
「｛一時サイズ｝」が、数字か。
もし、それが、いいえなら、(「数字で入れて下さい」と、言う。文字サイズ=さいず。戻る。)
もし、それが、はいなら、(さいず=「｛一時サイズ｝」)。)
その他ツールメニューに、サイズ戻すを、メニュー追加。
その、テキストは、「ペン・文字サイズを標準に戻す」
その、イベントは、(さいず=12)
その他ツールメニューに、カラーを、メニュー追加。
その、テキストは、「ペン・文字色設定(&C)」
その、イベントは、（fの、可視は、オン。）
＊メニュー作成終了
ペン形状=形
文字色=色
＊基本設定
飛び先=「基本設定」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字色=色
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
文字色=色
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊ランダム筆
飛び先=「ランダム筆」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
ペン形状＝形
文字サイズ=さいず
もし、ペイントスイッチが、ONなら、(
文字色=RGB(乱数(255),乱数(255),乱数(255))
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊形ランダム
飛び先=「形ランダム」
スタンプ=「☆
★
●
○
□
■
◇
◆
△
▲
▽
▼
◎
∇
＊
※
・」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
もし、ペイントスイッチが、ONなら、(
文字色=色
(マウスX,マウスY)へ、移動。(スタンプ#(乱数(17)))と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊色形ランダム
飛び先=「色形ランダム」
スタンプ=「☆
★
●
○
□
■
◇
◆
△
▲
▽
▼
◎
∇
＊
※
・」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ＝さいず
もし、ペイントスイッチが、ONなら、(
文字色=RGB(乱数(255),乱数(255),乱数(255))
(マウスX,マウスY)へ、移動。(スタンプ#(乱数(17)))と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊緑グラデ
飛び先=「緑グラデ」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
G=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Gが、255なら、緑グラデ2。
G=G+5
文字色=RGB(0,G,0)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊緑グラデ２
母艦の、マウス押した時は、(
ペイントスイッチ=ON
G=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Gが、0なら、緑グラデ。
G=G-5
文字色=RGB(0,G,0)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊青グラデ
飛び先=「青グラデ」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
B=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Bが、255なら、青グラデ2。
B=B+5
文字色=RGB(0,0,B)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊青グラデ２
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Bが、0なら、青グラデ。
B=B-5
文字色=RGB(0,0,B)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊赤グラデ
飛び先=「赤グラデ」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
R=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Rが、255なら、赤グラデ2。
R=R+5
文字色=RGB(R,0,0)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊赤グラデ２
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Rが、0なら、赤グラデ。
R=R-5
文字色=RGB(R,0,0)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊赤白
飛び先=「赤グラデ」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
R=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Rが、255なら、赤白2。
R=R+5
文字色=RGB(R,255,255)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊赤白２
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Rが、0なら、赤白。
R=R-5
文字色=RGB(R,255,255)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄１
飛び先=「薄１」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
G=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Gが、255なら、薄2。
G=G+5
文字色=RGB(255,G,255)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄２
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Gが、0なら、薄1。
G=G-5
文字色=RGB(255,G,255)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄３
飛び先=「薄１」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
B=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Bが、255なら、薄4。
B=B+5
文字色=RGB(255,255,B)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄４
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Bが、0なら、薄３。
B=B-5
文字色=RGB(255,255,B)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄５
飛び先=「薄１」
母艦の、マウス押した時は、(
ペイントスイッチ=ON
K=0)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Kが、255なら、薄6。
K=K+5
文字色=RGB(K,K,K)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊薄６
母艦の、マウス押した時は、(
ペイントスイッチ=ON
)。
その、マウス動かした時は、(
文字サイズ=さいず
ペン形状＝形
もし、ペイントスイッチが、ONなら、(
もし、Kが、0なら、薄5。
K=K-5
文字色=RGB(K,K,K)
(マウスX,マウスY)へ、移動。「｛ペン形状｝」と、表示。
)。
)。
その、マウス離した時は、(
ペイントスイッチ=OFF。
)。
待機。
＊エラー処理
「予期せぬエラーが発生しました。
エラーが起こる前へ戻ります。」と、言う。
エラーから復帰。
＊バー変更
ラベル3の、テキストは、「｛バー０の、値｝」
ラベル4の、テキストは、「｛バー１の、値｝」
ラベル5の、テキストは、「｛バー２の、値｝」
ラベル0の、フォント色は、RGB(「｛バー０の、値｝」,0,0)
ラベル1の、フォント色は、RGB(「0,｛バー１の、値｝」,0)
ラベル2の、フォント色は、RGB(0,0,「｛バー２の、値｝」)
「{バー０の、値}を、HEX」を、ひまわりする
CR=それ。
「{バー１の、値}を、HEX」を、ひまわりする
CG=それ。
「{バー２の、値}を、HEX」を、ひまわりする
CB=それ。
エディタ0=「#{CR}{CG}{CB}」
ラベル6の、背景色は、RGB(「｛バー０の、値｝」,「｛バー１の、値｝」,「｛バー２の、値｝」)。
戻る。
|
グラデーション高機能お絵かき
/ミッズー (02/07/22(Mon) 17:34) [1088]