※ 広告を×ボタンで閉じて再生ボタンを押した後、リンク先で再生可能です。

※ スマホで動画が重い方は、リンク先の「ダウンロード」から「360p」を選択すると少し軽くなる可能性があります。

アルゴリズム共有 その2 ~ 毛編 ~

  • calendar_month
    2021-04-06
    16:56
  • remove_red_eye
    6003
    回視聴
  • favorite
    66
    いいね
add
お気に入り登録

作者コメント:

サムネ詐欺のようなマネをしてすまぬすまぬ・・※※※本マクロご使用上の際のご注意※※※エクセル上でのマクロの使用は、お使いのPC環境によっては、動作機能を著しく低下させる恐れがあります。本マクロご使用の際の前中後は、お使いのPCが安定した状態にあることを強く推奨いたします。※※※※※※※※※※※※※※※※※※※※!!!規則的毛モデルのルール追加!!!一本の毛の根元ほど、頂点インデックスNoは若く、毛先に近づいていくほど頂点インデックスNoは老番になっていくこと。!!!!!!!!!!!!!!!!!!!準備物・モデルビュー上選択頂点群の全情報を.CSV化/ Sub WAKIGEnemoto_HENSYUUyou_UserInput()Dim y, s, RowsDltSftUpSTART, r, l, i As Longy = 2s = Application.InputBox(prompt:="毛モデル1本の底面の頂点数(角数)を半角数値のみで入力してください。", Type:=1, Default:=5) \', xpos:=1000, ypos:=2000If IsNumeric(s) = False Or s < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd IfRowsDltSftUpSTART = y sr = Application.InputBox(prompt:="毛モデル1本の曲がり箇所数を半角数値のみで入力してください。", Type:=1, Default:=20) \', xpos:=1000, ypos:=2000If IsNumeric(r) = False Or r < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd Ifl = s * ri = 0Do While Len(Cells(RowsDltSftUpSTART (i * s), 1)) <> 0Rows(RowsDltSftUpSTART (i * s) & ":" & RowsDltSftUpSTART (i * s) (l - 1)).SelectSelection.Delete Shift:=xlUpi = i 1LoopEnd Sub改変用っぽいものPublic Sub WAKIGEnemoto_HENSYUUyou()Dim RowsDltSftUpSTART, i As LongRowsDltSftUpSTART = 7i = 0Do While Len(Cells(RowsDltSftUpSTART (i * 5), 1)) <> 0Rows(RowsDltSftUpSTART (i * 5) & ":" & RowsDltSftUpSTART (i * 5) 99).SelectSelection.Delete Shift:=xlUpi = i 1LoopEnd Sub毛を太くするモーフ追加用Public Sub TITIGE_S5_HUTOKU_x16_MORPH_UserInput()Dim y, x, r, s, ss, b, k, j, l As LongDim CX, CY, CZ As Doubley = 2x = 3r = 20s = 5ss = 5b = 16k = 0j = 1CX = 0CY = 0CZ = 0s = Application.InputBox(prompt:="毛モデル1本の底面の頂点数(角数)を半角数値のみで入力してください。", Type:=1, Default:=5) \', xpos:=1000, ypos:=2000If IsNumeric(s) = False Or s < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd Ifss = sr = Application.InputBox(prompt:="毛モデル1本の曲がり箇所数を半角数値のみで入力してください。", Type:=1, Default:=20) \', xpos:=1000, ypos:=2000If IsNumeric(r) = False Or r < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd Ifl = s * rb = Application.InputBox(prompt:="毛モデルを何倍太くするか、自然数の半角数値のみで入力してください。※本マクロでは毛モデルの先端部分は太くはなりません", Type:=1, Default:=16) \', xpos:=1000, ypos:=2000If IsNumeric(b) = False Or b < 1 Then \'isnumeric(cells(yy,xx).value) = falseMsgBox "1 値以上を入力してください。マクロを中断します。"Exit SubEnd Ifb = b - 1Do While Cells(y k, 2) <> ""\'If k <> s * r * j ThenFor i = 0 To s - 1 Step 1CX = CX Cells(y i k, x 0)Next iCX = CX / sFor i = 0 To s - 1 Step 1CY = CY Cells(y i k, x 1)Next iCY = CY / sFor i = 0 To s - 1 Step 1CZ = CZ Cells(y i k, x 2)Next iCZ = CZ / sFor i = 0 To s - 1 Step 1Cells(y i k, x 0) = (Cells(y i k, x 0) - CX) * bNext iCX = 0For i = 0 To s - 1 Step 1Cells(y i k, x 1) = (Cells(y i k, x 1) - CY) * bNext iCY = 0For i = 0 To s - 1 Step 1Cells(y i k, x 2) = (Cells(y i k, x 2) - CZ) * bNext iCZ = 0\'Else\'j = j 1\'End Ifk = k sLoop\'-------------------------------------------------------------Do While Cells(y l, 2) <> ""For i = 0 To s - 1 Step 1Cells(y i l, x 0) = 0Next iFor i = 0 To s - 1 Step 1Cells(y i l, x 1) = 0Next iFor i = 0 To s - 1 Step 1Cells(y i l, x 2) = 0Next il = l s * (r 1)LoopEnd Sub


/movies/81585/authors/1948/tags/2?sort=latest&page=710/origins/104?sort=favorites&page=5美杜莎 r18mmd/movies/142344/movies/159250/movies/3470/movies/141674/movies/139418/characters/1452?sort=popularity&page=1/characters/2072/movies/146955/movies/93277ultrahaku sex/movies/79830/origins/5?sort=hot&page=34/characters/127?page=3/origins/19?page=2vill v hentai full罪袋🖤甘雨七种体位纯享版/tags/16/movies/100468/movies/101222/authors/4543诺艾尔R18mmd/characters/1376/characters/8?sort=hot&page=7/movies/26163/tags/210?sort=latest&page=55支援者様用1080p LO-オナホ型(処女)チン媚びドスケベダンス1.0/movies/100098/characters/1786?sort=latest&page=8ロンリーガールダンスエロ動画/tags/70?sort=latest&page=213/movies/160024/tags/163?sort=favorites&page=20/characters/1788?sort=favorites&page=11/movies/873/authors/745/movies/9437/movies/124198Asawa reimu/tags/190ジャンヌダルク エロ動画lowlost mjfxいちいちに iwara原神きららえろ/characters/255?sort=popularity&page=4/movies/54894ONE PIECEHMVエロ動画/tags/1?sort=popularity&page=93エロ 000MMD糖果匠人 千仞雪/characters/5?sort=latest&page=15r18 masta_ mmd/tags/90?page=18/movies/111083AI Animation]Reverse bunny cowgirlStrawBerryAi mmd弱音phut hon r18/movies/140480mmdrancer nessa/tags/203?page=49/origins/5?sort=hot&page=135/characters/2411トワラプ「ONE OFF MIND/origins/5?sort=popularity&page=54custom udon レズ -jav/movies/32899m4 sopエロraffa 弱音/authors/4669エロ MMD ローアングル