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

※ スマホで動画が重い方は、リンク先の「ダウンロード」から「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/159961tiaopidan合集いちいちに iwara/characters/1705喜多川海夢エロMMDアリシアちゃん達とSEXerciseブラックマジシャンガール フェラmmd porn ボイス/authors/2686/origins/38?sort=hot&page=3/movies/71456/origins/5?sort=popularity&page=79/origins/5?sort=hot&page=132/origins/1?page=26/tags/4?sort=popularity&page=132/authors/4287/authors/6596/movies/2219/authors/249/characters/101ウマ娘緊縛 MMDR18/movies/82649/movies/158158/authors/338/movies/3644/movies/88285/authors/2/tags/88?sort=popularity&page=15/movies/148768/authors/4900/movies/81135/movies/88099gimozard原神R18mmd/movies/8930/movies/85484shota porn animated/characters/62?sort=favorites&page=2/movies/77543优纪vs杰西卡/movies/56412/origins/5?sort=latest&page=52渐脱mmd iwara/movies/160630/tags/4?sort=favorites&page=371/movies/138343/movies/55385/movies/2941エロ 000MMDSofokyan nude mmd/characters/759/movies/64760/movies/66442/origins/276?sort=latest&page=155/movies/101357/movies/107568/tags/65?sort=latest&page=18/authors/3939/authors/165?page=8OVA義姉はヤンママ授乳中 hmv/origins/5?page=164sour miku&rin aidee nudeMMDSPY×FAMILY Yor ForgerslenHonKai Impact 3rd God Kiana/movies/104902/origins/236?sort=hot&page=2/movies/162931/movies/103657/movies/60685/origins/118?sort=hot&page=2/movies/34798azur lane ntr 3d/tags/177?sort=hot&page=57/origins/7?sort=popularity&page=30/tags/3?page=465電気責め MMD/origins/276?sort=latest&page=53/characters/2932Nyanyao_iwarasteven purgatory mmd xxx/tags/69?sort=favorites&page=32/movies/11432