S.12 Rotate Parallels

　単純な図形に回転や平行移動のような幾何学的な処理を組み合わせることで、一見すると複雑な模様に合成させることができるのがコンピュータグラフィックスの一つの面白さです。

Public Sub Proc12() 'RotateParallels
    Dim n, m, i, j, Th, th1, th2, x1, y1, x2, y2
    Const lenn = 200
    Select Case Ivar
        Case 1: n = 5: m = 2
        Case 2: n = 5: m = 4
        Case 3: n = 5: m = 10
        Case 4: n = 10: m = 10
        Case Else: n = 5: m = 2
    End Select
    Dperas
    Dpwind 0, 0, 640
    For i = 0 To m - 1
        For j = 1 To n - 1
            Th = j * (pie / n)
            th1 = i * (pie / m) + Th
            th2 = i * (pie / m) - Th
            x1 = Cos(th1) * lenn
            y1 = Sin(th1) * lenn
            x2 = Cos(th2) * lenn
            y2 = Sin(th2) * lenn
            Dpmove x1, y1
            Dpdraw x2, y2
        Next j
    Next i
 End Sub