AIブックマーカー一番星はてのさんのファンアート描きました - kiyo_hikoのブログ
あらすじ こういう事があって。 なので多分俺がファンアートの言い出しっぺなのではないかと思いますがファンアート描いてなかったので描きました。 できました 世間で流行のAIイラストではなく全部手描きです。 制作時間 = 12時間ぐらい 道具 = Clip Studio Paint EX と Cintiq Pro 16 と Dynabook VZ/HR、その他 はてのさんいいですね 開発者さんも応援してます。 追記 2023/3/29 貼った後で納得いかない所があったのでわずかに修正。 制作過程のGIFです。 描き始めてから構図とかその場の思い付きで変えることが多いです。 見た目もコロコロ調整します。 途中トランプのクイーンみたいな演出にしようかと思った後があります。 何持たせるか悩んで結局やめました。
CL：移動平均の計算 - kiyo_hikoのブログ
移動平均を計算できる汎用の処理を考えたのでメモっておく。 適当に数値データを用意する。 8,11,15,17,18,25,21,30,38,55,59,68,72,73,69,58,52,51,39,43,37,35,29,27,24,21 「汎用」的な性質として要求したい項目と、そこから導き出される動作を考えた 当然幅は可変で 別に平均計算じゃなくてもいい (移動和とか、移動部分文字列 (？) なんかも処理の差し替えで簡単に計算できる) この要求を満たすため、リストからデータを取り出して個包装する部分と平均計算を別腹にする 個包装部分：数値 (にかぎらず) データを受け取ると、一定長の部分リストを先頭から順次くくっていく ただし、以下のデータは意味ないからnilにする 幅が足りなくて結果をはじき出せない先頭部分 幅が足りなくて結果をはじき出せない終端部分 実は数値じゃない (もっと汎用的
VBAでForとFor Eachを学んだ - kiyo_hikoのブログ
VBAでiotaを書いた。 Function iota(count As Long, _ Optional start As Long = 0, _ Optional step As Long = 1) Dim i As Long Dim n As Long Dim ns As Collection i = 0 n = start Set ns = New Collection For i = 0 To count - 1 ns.Add n n = n + step Next i Set iota = ns End Function Sub Run() Dim n As Variant Dim ns As Collection Set ns = iota(100, 1, 5) For Each n In ns Debug.Print n Next n End Sub 別件としてBLOCKと
iotaを書いてパスカルの三角形を作った - kiyo_hikoのブログ
iota10分ぐらい、三角形10分ぐらいでやっつけた。 大したことはやってないし多分遅い。 (defun iota (to &optional (from 0) (step 1)) (do ((i from (incf i step)) (ns nil)) ((< to i) (nreverse ns)) (setf ns (cons i ns)))) (defun pas (n k) (if (or (= n 1) (= k 1) (= k n)) 1 (+ (pas (- n 1) (- k 1)) (pas (- n 1) k)))) (defun line (n) (mapcar #'(lambda (k) (pas n k)) (iota n 1))) (defun sankaku (n) (mapcar #'(lambda (n) (line n)) (iota n 1)))
VBA使ってフォルダーのサブフォルダーとファイルを再帰的に拾う - kiyo_hikoのブログ
いろいろ切り詰めていたが、そろそろボーナスだから最近は財布の紐もゆるめいて来て、Excel2010を買った。これで家でもExcelを勉強できるようになった。 手始めにFileSystemObjectを使った。 FileSystemObject (以下FSO) を使うには、VBEの参照設定で、Microsoft Scripting Runtimeをチェックする。 Dim fso As Object Set fso = OreateObject("Scrpting.FileSystemObject") ↑でもFSOのインスタンスを作れるみたいだが、めんどくさいしインテリセンスが効かない。 VBAの文法はなんだか煩雑さを感じるが、とりあえずFSOはモジュールレベルでNew付きで宣言しておけば記述が簡単そう。 Private fso As New Scripting.FileSystemObjec
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
きよツール カテゴリーの記事一覧 - kiyo_hikoのブログ
お絵カキコ→完成 - kiyo_hikoのブログ
