【Word VBA】ドラゴン曲線描画マクロ▽ソースコード
Option Explicit
Option Base 0
'
Const CONSTPAI As Double = 3.14159265358979 'π
'
Const DRGNSXPT As Integer = 110 '描画開始位置Ｘ
Const DRGNSYPT As Integer = 125 ' Ｙ
Const DRGNLENG As Integer = 5 '辺の長さ
Const DRGNORDR As Integer = 10 '次数
Const DRGNLNCL As Long = &H701919 '線の色(濃紺)
Const DRGNLNWT As Single = 1 '線の太さ
'---------------------------------------------------------------
Public p_intDxp As Integer '描画位置Ｘ(変数)
Public p_intDyp As Integer ' Ｙ(変数)
Public p_intAng As Integer '描画角度 (変数)
'*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Public Sub ドラゴン曲線描画マクロ()
'
p_intDxp = DRGN
0
