Const pi As Double = 3.1415926 Const rr As Double = pi / 180 Const rr2 As Double = 180 / pi Public w As Double Public r0 As Double Public h As Double Public tj As Double Const qj = 0 Public tcj As Double Public hcj As Double Public yxj As Double Public sg As Integer Public q As Integer Public xqb As Double Public ii As Integer, jj As Integer, nn As Integer Public zxj As Double Publ