fHeight (0) - 1 ( ax, ay)=0
NextSub
'Процедура створення уявного растраCreatMRast (). Text=«Створення м-растра»
ClearMas (0, MasM) (0, MasM, NumericUpDownMRS.Value, NumericUpDownMRS.Value - NumericUpDownMRS1.Value, NumericUpDownMRA.Value). Value крок сеткі.Value ширина темних полос.Value кут повороту;. Text=«Збереження растра» (0, MasM, «. Уявний растр.bmp») Sub
'Процедура отримання муараMyar (ByVal TResol As Integer, ByVal MasIn1 (,) As Byte, ByVal MasIn2 (,) As Byte, ByRef MasOut (,) As Byte) ax, ay As Integerax=0 To fWidth (0) - 1ay=0 To fHeight (0) - 1 (MasIn1 (ax, ay)> MasIn2 (ax, ay)) Then (ax, ay)=MasIn1 (ax, ay) (ax, ay)= MasIn2 (ax, ay) IfSub
'Процедура Центри ліній робочої поверхностіCwline ()
ClearMas (0, MasC) (0, Mas3) (0, «. Вид робочої поверхності.bmp», MasC) (0, MasC, Mas3, NumericUpDown.Value)
SaveToFile (0, Mas3, «. Центри ліній робочої поверхності.bmp») Sub
'Процедура Центри ліній уявної поверхні
Sub Cmline () (0, MasCM) (0, Mas4) (0, «. Вид уявної поверхності.bmp», MasCM) (0, MasCM, Mas4, Me.NumericUpDownMRA.Value )
SaveToFile (0, Mas4, «. Центри ліній уявної поверхності.bmp») Sub
'Процедура отримання муару центрів ліній
Sub MyarEffectLine () (0, Mas3) (0, Mas4) (0, MasMyarC) (0, «. Центри ліній робочої поверхності.bmp», Mas3)
LoadFromFile (0, «. Центри ліній уявної поверхності.bmp», Mas4) (0, Mas3, Mas4, MasMyarC) (0, MasMyarC, «. Муаровий ефект центрів ліній.bmp» ;) Sub
'Процедура отримання муараMyarEffect ()
ClearMas (0, MasC) (0, MasCM) (0, MasMyar) (0, «. Вид уявної поверхності.bmp», MasCM) (0, «. Вид робочої поверхні . bmp », MasC) (0, MasC, MasCM, MasMyar) (0, MasMyar,«. Муаровий еффект.bmp »)
End Sub
'Процедура авто створення Муар і пошуку центрів ліній
Public Sub autocreatall () () () () () SubSub Options_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load_Res.SelectedIndex=0_Pov.SelectedIndex=0 . Location=New System.Drawing.Point (10, 0). TopMost=TrueSubSub ButtonBMP (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click=«CreateBMPbrowser» SubSub TabControl1_SelectedIndexChanged (ByVal sender As System . Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged.Refresh () CheckBoxAuto.Checked=True ThenSomeChange=True Then_Click (sender, e) ()=3If=FalseIf=TrueSubSub Button10_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
LoadFromFile (0, «. Центри ліній робочої поверхності.bmp», Mas3) (0, «. Центри ліній уявної поверхності.bmp», Mas4)
Dim h, cosf1, cosf2 As Doublefs As IO.FileStream=New IO.FileStream («test», IO.FileMode.Create) w As IO.TextWriter=New IO.StreamWriter (fs) ax, ay As Integerax=0 To fWidth (0) - 1ay=0 To fHeight (0) - 1 (Mas3 (ax, ay)=& HFF) And (Mas4 (ax, ay)=& HFF) Then= NumericUpDownPZ.Value / Math.Sqrt (NumericUpDownPZ.Value ^ 2 + ax ^ 2 + ay ^ 2)=NumericUpDownCH.Value * Math.Cos (NumericUpDownCA.Value * ...
