Option Explicit
Option Base 0
'
Public Sub 直線並ぶ模様描画マクロ其の二()
Const LNUPCTRX = 190 '描画中心位置X
Const LNUPCTRY = 180 ' Y
'
Const LNUPRADI = 100 '図形の半径
Const LNUPDVCN = 10 '線描画 本数
Const LNUPSTEP = (LNUPRADI / LNUPDVCN)
'
Const LNUPLNCL = &H82004B '線の色(紫色)
Const LNUPLNWE = 1# '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim intSxp As Integer, intSyp As Integer
Dim intExp As Integer, intEyp As Integer
Dim sngSit As Single
'
'
sngSit = (Atn(1) / 45) * (360 / 6)
For Ip = 0 To 5
For Jp = 1 To LNUPDVCN
Option Explicit
Option Base 0
'
Public Sub カラフル曲線描画マクロ()
Const COLFCNXP = 160 '描画中心位置X
Const COLFCNYP = 160 ' Y
'
Const COLFANSP = 5 '描画刻み角度
Const COLFNPRD = 360 / COLFANSP '一周の点数
Const COLFRATE = 45 '線の長さレート
Const COLFRAND = 8 '周回数
'
Const COLFLNWE = 3.5 '線の太さ
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim Kp As Integer
Dim sngPDat(COLFNPRD, 1) As Single
Dim sngSit As Single, sngRpd As Single
Dim sngRds As Single, lngCol As Long
'
sngRpd = Atn(1) / 45
For Jp = 0 To COLFRAND - 1
'*ポリラインデータ作成
Fo