【Word VBA】ヒルベルト曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const cns_intLnLn = 10 '描画線の長さ(定数)
Public p_intCptX As Integer '描画位置Ｘ(変数)
Public p_intCptY As Integer ' Ｙ(変数)
Public p_intCAng As Integer '描画方向 (変数)
Public Sub ヒルベルト曲線描画マクロ()
Const HLBTLEFT = 100 '描画開始位置Ｘ
Const HLBTTOPP = 220 ' Ｙ
'
Const HLBTORDR = 4 '次数
'
p_intCptX = HLBTLEFT
p_intCptY = HLBTTOPP: p_intCAng = 0
Call Sヒルベルト曲線描画マクロ_再帰(HLBTORDR, 90)
End Sub
Public Sub Sヒルベルト曲線描画マクロ_再帰(pintNo As Integer, pintAn As Integer)
Const HLBTLCOL = &H4763FF '線の色(TOMATO)
Const HLBTLWEI = 1.5 '線の太さ
'----------------------------------------------------
0
