雪乃☆雫のなでしこ日和

サイコロキャラメルを振るよ！

サイコロ, なでしこ | 21:29

　ある意味本題（爆）の、サイコロキャラメルが振れるようになりましたｗ

　別に、そんなに再現性は高くないし、もちろん明治のロゴとか入ってるわけじゃなく、単なる赤白のサイコロってだけなんですけれどねぇ～ｗｗｗ

　結局、全部の色設定を配列にして引数にすることにした～。

　サイコロキャラメルは、全部の面の色が同じカラーリングなんだから、こんな必要ないじゃんとか、角丸じゃないから画像合成通の必要ないじゃんとかゆう野暮なツッコミは不可です！

　おもちゃみたいな、全面色違いのサイコロとかも作りたいんだよ～ん。

　そうそう、普通の一般的なサイコロの、１の目が赤いのは、日の丸に見立てたものなんだって！

　日本だけだったんだね・・・

　まめちしきぃ～。

　ちなみに、そうなったのは大正時代のことらしいから、もし時代劇の丁半博打の場で、目の赤いサイコロが使われていたら、早速テレビ局に電話しなきゃ！（爆）

＃サイコロキャラメル

#-----母艦設計-----------------------------------------------
！母艦設計=「母艦の可視はオフ」
母艦のタイトルは「２Ｄを振る」
母艦のクライアント幅は640。母艦のクライアント高さは480。
母艦を$006600で画面クリア。
母艦のスタイルは「枠固定」
母艦はオフに最大化ボタン有効変更。
母艦を中央移動。
#------------------------------------------------------------

#-----宣言---------------------------------------------------
ダイスサイズとは整数＝80

サイコロ一般とは配列。　＃サイズ｛～｝線色,地色,点色｛～｝...
サイコロ一般＝「{ダイスサイズ}
{黒色},{白色},{赤色}
{黒色},{白色},{黒色}
{黒色},{白色},{黒色}
{黒色},{白色},{黒色}
{黒色},{白色},{黒色}
{黒色},{白色},{黒色}」

サイコロ赤とは配列。
サイコロ赤＝「{ダイスサイズ}
{黒色},{赤色},{白色}
{黒色},{赤色},{白色}
{黒色},{赤色},{白色}
{黒色},{赤色},{白色}
{黒色},{赤色},{白色}
{黒色},{赤色},{白色}」

サイコロ白とは配列。
サイコロ白＝「{ダイスサイズ}
{黒色},{白色},{赤色}
{黒色},{白色},{赤色}
{黒色},{白色},{赤色}
{黒色},{白色},{赤色}
{黒色},{白色},{赤色}
{黒色},{白色},{赤色}」

サイコロ虹とは配列。
サイコロ虹＝「{ダイスサイズ}
{$330000},{$FFBBBB},{$CC3333}
{$003300},{$BBFFBB},{$33CC33}
{$000033},{$BBBBFF},{$3333CC}
{$330033},{$FFBBFF},{$CC33CC}
{$333300},{$FFFFBB},{$CCCC33}
{$003333},{$BBFFFF},{$33CCCC}」

#---サイコロ用イメージ----
線太さ＝１
ダイス用￥１にサイコロ赤でサイコロ準備
ダイス用￥２にサイコロ白でサイコロ準備

処理用とはイメージ。その可視はオフ。

#---サイコロ振るボタン----
ボタンＡとはボタン。その可視はオン。
その幅は１１０。その高さは３５。
そのXは母艦のクライアント幅/２－ボタンＡの幅/２。そのYは母艦の高さ－１００。
そのテキストは「サイコロを振る」

ボタンＡをクリックした時は～
　　サイコロ振る。
#------------------------------------------------------------

#-----メインルーチン-----------------------------------------
母艦の可視はオン。
乱数初期化。

サイコロ振る
#------------------------------------------------------------

#------------------------------------------------------------
＊サイコロ振る
　　処理用をダイスサイズ,ダイスサイズへ画像高速リサイズ。
　　２回
　　　　ｒ＝６の乱数。出目￥（回数-1）＝ｒ＋１。
　　　　ｘ＝ｒ＊ダイスサイズ。ｙ＝０。
　　　　ダイス用￥回数のｘ,ｙ,ダイスサイズ,ダイスサイズを処理用の０,０へ画像部分コピー。
　　　　処理用を母艦の（（母艦のクライアント幅/４）＊（回数））－（ダイスサイズ／２）＋（母艦のクライアント幅/８）,（母艦のクライアント高さ/２）－（ダイスサイズ／２）へ画像合成通。
#------------------------------------------------------------
＊サイコロ準備（{グループ}imgにSで）
　　imgをイメージとして作成。
　　img→可視はオフ。
　　img→幅はS\0＊６
　　img→高さはS\0
　　imgを$00FF00で画面クリア。　　　　#透過色
　　目サイズ＝S\0/8。
　　６回
　　　　色設定とは配列。色設定＝S\回数。
　　　　線色は色設定￥０。塗り色は色設定￥１。
　　　　外枠（img,S\0）
　　　　線色は色設定￥２。塗り色は色設定￥２。
　　　　もし、回数＝１ならば
　　　　　　半径＝目サイズ＋S\0/40。
　　　　　　中点(img,S\0)。
　　　　もし、回数＝２ならば
　　　　　　半径＝目サイズ。
　　　　　　左上点(img,S\0)。右下点(img,S\0)。
　　　　もし、回数＝３ならば
　　　　　　半径＝目サイズ。
　　　　　　中点(img,S\0)。左上点(img,S\0)。右下点(img,S\0)。
　　　　もし、回数＝４ならば
　　　　　　半径＝目サイズ。
　　　　　　左上点(img,S\0)。左下点(img,S\0)。右上点(img,S\0)。右下点(img,S\0)。
　　　　もし、回数＝５ならば
　　　　　　半径＝目サイズ。
　　　　　　中点(img,S\0)。左上点(img,S\0)。左下点(img,S\0)。右上点(img,S\0)。右下点(img,S\0)。
　　　　もし、回数＝６ならば
　　　　　　半径＝目サイズ－S\0/80。
　　　　　　左上点(img,S\0)。左下点(img,S\0)。右上点(img,S\0)。右下点(img,S\0)。左中点(img,S\0)。右中点(img,S\0)。

＊外枠({グループ}img,S)
　　ｘ＝(回数-1)＊S。ｙ＝０。
　　ｘ２＝ｘ＋S。ｙ２＝S。
//　　imgのｘ,ｙからｘ２,ｙ２へS/3,S/3で角丸四角。
　　imgのｘ,ｙからｘ２,ｙ２へ四角。

＊中点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／２）－半径。ｙｙ＝S／２－半径
　　ｘｘ２＝（ｘ＋S／２）＋半径。ｙｙ２＝S／２＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊左上点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４）－半径。ｙｙ＝S／４－半径
　　ｘｘ２＝（ｘ＋S／４）＋半径。ｙｙ２＝S／４＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊左下点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４）－半径。ｙｙ＝（S／４）＊３－半径
　　ｘｘ２＝（ｘ＋S／４）＋半径。ｙｙ２＝（S／４）＊３＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊右上点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４＊３）－半径。ｙｙ＝S／４－半径
　　ｘｘ２＝（ｘ＋S／４＊３）＋半径。ｙｙ２＝S／４＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊右下点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４＊３）－半径。ｙｙ＝（S／４）＊３－半径
　　ｘｘ２＝（ｘ＋S／４＊３）＋半径。ｙｙ２＝（S／４）＊３＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊左中点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４）－半径。ｙｙ＝S／２－半径
　　ｘｘ２＝（ｘ＋S／４）＋半径。ｙｙ２＝S／２＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。

＊右中点({グループ}img,S)
　　ｘｘ＝（ｘ＋S／４＊３）－半径。ｙｙ＝S／２－半径
　　ｘｘ２＝（ｘ＋S／４＊３）＋半径。ｙｙ２＝S／２＋半径。
　　imgのｘｘ,ｙｙからｘｘ２,ｙｙ２へ円。
#------------------------------------------------------------
●画像合成通({グループ}コピー元を{数値=$00FF00}透過色で{グループ}コピー先のX,Yへ)
　　# マスクの作成（キャラの透過部分が白、表示部分が黒の画像）
　　マスク画像をイメージとして作成。マスク画像の可視はオフ。
　　マスク画像→画像はコピー元→名前
　　マスク画像を透過色で画像マスク作成

　　# キャラの透過色部分を黒に変換
　　# はじめからキャラの透過色を黒にすると髪や目や文字に黒が使用出来なくなる
　　キャラ画像をイメージとして作成。キャラ画像の可視はオフ
　　キャラ画像→画像はコピー元→名前
　　マスク画像を画像ネガポジ
　　マスク画像をキャラ画像の0,0へ画像ANDコピー
　　マスク画像を画像ネガポジ

　　# 合成実行
　　マスク画像をコピー先のX,Yへ画像ANDコピー
　　キャラ画像をコピー先のX,Yへ画像ORコピー
　
　　VCL_FREE(マスク画像)
　　VCL_FREE(キャラ画像)
#------------------------------------------------------------

　なにがでるかな？　なにがでるかな？　....　....　....