すべてのカテゴリ

Option Explicit Option Base 0 Public Sub 写真を並べ描画マクロ()     Const PICUXCNT = 6                          '横方向写真数     Const PICUYCNT = 6                          '縦方向写真数     '     Const PICUWIDT = 40                        '写真幅     Const PICUHEIG = 40                         '写真高     '     Const PICUWIGP = 5                          '写真横隙間     Const PICUHEGP = 3                          '写真縦隙間     Const PICULEFT = 15                         '写真描画開始位置     Const PICUTOPP = 20 '     '     Const PICUFNAM = "Cherry.png"         '写真ファイル名     '---------------------------------------------------------------------------     Dim Ip As Integer, strFna As String     '     strFna = ThisDocument.Path &

週間ごとにその週に描いた絵のタイムラインを編集して公開しています2024年２月４日～2月１１日　ふたりはプリキュアレビュー絵２５話～３１話 ふたりはプリキュア　レビュー絵　 19話～24話各話ワンシーンを模写しています。2024年１月29日～2月4日　ふたりはプリキュアレビュー絵19話～24話ふたりはプリキュア　レビュー絵　 19話～24話各話ワンシーンを模写しています。2024年1月22日～28日20240115－0121

左の表にデータを入力して、作成のボタンをクリックすると、そのデータに基づく、ベジェ曲線を描画します。表には、Ｘ、Ｙの１０組の位置情報を入力します。Option Explicit Option Base 0 Public Sub ベジェ曲線作成マクロ()     Const BEZIXPOS = 200 　　　　　　　'ベジェ曲線オフセットＸ     Const BEZIYPOS = 80 　　　　　　　  '       　                    Ｙ     Const BEZIBAIR = 2                           'ベジェ曲線描画倍率     '---------------------------------------------------------------------------     Dim Ip As Integer, Jp As Integer, strDat As String     Dim celData As Cell, sngBezi(9, 1) As Single     If ActiveDocument.Tables.Count < 1 Then Exit Sub     '     With ActiveDocument.Tables(1)          '*セルデータ取り込み          For Each celData In .Range.Cells              strDat = celData.Range.Text              sngBez

Option Explicit Option Base 0 Public Sub ドーナッツ形描画マクロ()     Const CIRCXPOS = 200　　　　　    '円の中心位置　X     Const CIRCYPOS = 180 　　　　　　'　　　             Y     Const CIRCRADI = 100　　　　　    '円の半径     Const CIRCDIVI = 8　　　　　　      '分割数     Const DONARADI = 0.3　　　　　　 '外円と内円の比率(0<比率<0.5)    '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, varColor As Variant     '     'カラーデータ//////////////////////////////////////////////////////////////     varColor = Array(0, 16777215, 255, 65280, 16711680, 65535,  _  16711935, 16776960, 128, 32768, 8388608, 32896, 8388736,   _   8421376, 12632256,  8421504, 16751001, 6697881, 13434879,  _  167

こんにちは。たつやです。前回から引き続き、結構高速化していて、・メッシュの描画なしの場合は１万個で60FPS・メッシュの描画ありの場合は５千個で60FPSをキープできるようになりました。描画の高速化はいくつか手がありそうですが、ひとまずこのくらいにします。週末に、ドミノ並べテクニックのYoutubeチャンネルを見ていたら、それらを使った作品を作ってみたくなりました。作品を作りつつ教材化できればなと思います。

Option Explicit Option Base 0 Public Sub 回転する長方形描画マクロ()     Const RECTCXPS = 180                              '描画の中心位置　X     Const RECTCYPS = 150                              '                        Y     Const RECTWIDT = 80                               '長方形の幅     Const RECTHEIG = 150                              '長方形の高さ     '     Const RECTCONT = 10                              '長方形の数/一周     '---------------------------------------------------------------------------     Dim Ip As Integer, intAng As Integer, dblRd As Double    Dim intXp As Integer, intYp As Integer    Dim intWd As Integer, intHt As Integer    Dim intXa As Integer, intYa As Integer, varCl As Variant    '     'カラーデータ///////

こんにちは。たつやです。前回の進捗になりますが、多めのドミノで描画だけのテストをしてみました。結果↓あとは、これをドミノの状態遷移と組み合わせて、うまく使えるようにモデリングします。並んでいるドミノを地形だと思えば、地形生成＆表示の話と同じなので、そこらへんのやり方も参考にしたいです。

こんにちは。たつやです。ドミノ倒しの世界記録は数百万個単位なんですが、パソコンの中でそのくらいの規模をやってみたいです。物理演算をさぼることで、１万個程度なら現状できているのですが、それ以上は描画がボトルネックになってきます。高速化につながるかはまだ検証できてないですが、三角形をたくさん貼り付けてプログラムでドミノを描いてみました（手前）。遠景の描画をさぼりたいので、実際にはここまで見た目が同じにする必要はないですが。１０万個を目標に、ちょっと頑張ってみようと思っています。