p align="justify"> Imports System.Windows.FormsClass OptionsSystem.Windows.Forms.FormResel As Boolean=True
'Визначає чи було зміна виду поверхні
Public statW As String=«Show»
Мінлива статусу вікна 3d моделірованіяsavef As Boolean=False
Параметр збереження вікна 3d моделювання в файлcreatecameraviewA As Byte=0
Мінлива створення кадрів в автоматичному режімеcreatecameraview As Boolean=False
Мінлива створення кадру робочої поверхні і збереження в файлcreatecameraviewM As Boolean=False
'Мінлива створення кадру уявної поверхні і збереження у файл refreshwindow As Boolean=False
Мінлива стану оновити вікна 3d моделірованіяMRast As Boolean=False
Мінлива стану обробки мнимого растраNewRast As Boolean=False
Мінлива стану обробки робочого растраNewResolution As Boolean=False
Мінлива стану нове расшіреніеFace As Integer «Номер поверхностіUserSur (1280 - 1, 960 - 1) As Int32» масив користувальницької поверхностіSurSize As New RecSize 'розмір користувальницької поверхні
Public Mas (1280, 960) As Byte «робочий растрMasM (1280 - 1, 960 - 1) As Byte» уявний растр Mas2 (1280 - 1, 960 - 1) As Byte « вид з проектораMas3 (1280 - 1, 960 - 1) As Byte »центри смуг
Public Mas4 (1280 - 1, 960 - 1) As Byte 'центри смуг уявної поверхні
Public MasC (1280 - 1, 960 - 1) As Byte «Вид від камери MasCM (1280 - 1, 960 - 1) As Byte» Вид від камери м-растрMasMyar (1280 - 1 , 960 - 1) As Byte «Вид муару MasMyarC (1280 - 1, 960 - 1) As Byte» Вид муар. центр ліній
Public fWidth () As Integer={400, 400, 640, 800, 1024, 1280} «Підтримувані дозволу по XfHeight () As Integer={300, 300, 480, 600, 768, 960} »Підтримувані дозволу по YfSize () As Single={1, 1.6, 2, 2.56, 3.2}
Коефіцієнт маштабування залежно від разрешеніяSomeChange As Boolean=False «Мінлива стану« щось змінено »FType As Int16=& H4D42» Константа BM - об'евленія тип файлу BMP
Const XpM As Int32=10000YpM As Int32=10000bitperpix As Byte=24Rez As Int16=0Off As Int32=& H36HSize As Int32=& H28planes As Int16=1Compr As Int32=0ISize As Int32=0CUsed As Int32=0CImp As Int32=0R1 As Byte=& HFFG1 As Byte=& HFFB1 As Byte=& HFFR2 As Byte=0G2 As Byte=0B2 As Byte=0RR As Byte=& H0
'Все константи потрібні для роботи з файлами формату BMP
'Процедура створення растру з кутом Alpha, кроком Stp, результат зберігає в Mas2D (,)
Sub CreatLine (ByVal TResol As Byte, ByRef Mas2D (,) As Byte, ByVal Stp As Integer, ByVal Pix4 As Integer, ByVal Alpha As Single) maxx As Integer=fWidth (TResol) «дозвіл по X і Уmaxy As Integer=fHeight (TResol) xc As Integer=maxx 2 »центр X і Yyc As Integer=maxy 2
Dim ax, ay As Int16 'вільні змінні
Dim freevarible As Single.Maximum=maxy 'Показувати індикацію прогресу
'Цикл створення растру, проводиться сканування по X і Y
'впізнається, де знаходилася ця точка до обертання і потім
'визначається темна / світла полосаay=0 To maxy - 1
