Private SpX As Single
Private SpZ As Single
Private Uhel As Single
Private Cit As Integer

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
    If Cit >= 2 Then Cit = Cit - 1
    C.Text = Cit
End Sub

Private Sub Command3_Click()
    If Cit < 9 Then Cit = Cit + 1
    C.Text = Cit
End Sub

Private Sub DirX_Change()
Fil.Path = DirX.Path
End Sub

Private Sub Drive_Change()
On Error GoTo p
DirX.Path = Drive.Drive
p:
End Sub

Private Sub Form_Load()
SpX = 1: SpZ = 1: Uhel = 0.1: Cit = 5
End Sub

Private Sub Generuj_Click()
    Dim Pix As Single
    Dim PixT As String
    Dim Mapa As String: Mapa = ""
Im.Visible = False
    Dim Vyska As Long
    Vyska = (10 - Cit)
For i = 0 To Im.Width - 1
    For o = 0 To Im.Height - 1
        
        Pix = Int((Point(Im.Left + i, Im.Top + o)) \ Vyska * 10000) / 10 - 1
        PixT = Pix: If Mid(PixT, 2, 1) = "," Then PixT = Left(PixT, 1) + "." + Right(PixT, 1)
        If Mid(PixT, 3, 1) = "," Then PixT = Left(PixT, 2) + "." + Right(PixT, 1)
        If Mid(PixT, 4, 1) = "," Then PixT = Left(PixT, 3) + "." + Right(PixT, 1)
        Mapa = Mapa & PixT & " "
    Next
Next
'Zßpis do TextBoxu
    Dim T As String * 3: T = "   "
    Dim E As String * 2: E = Chr(13) + Chr(10)
    Dim X As String
X = E + "#" + Info.Caption + E + "#Generovßno v programu VRML Landspace Editor" + E + "#Naprogramoval: Jan Dvo°ßk" + E + "#E - mail: dvorkaman@centrum.cz" + E + " " + E
X = X + "Shape" + E + " {" + E + T + "geometry ElevationGrid" + E + T + " {"
X = X + E + T + T + "xDimension " & Im.Height
X = X + E + T + T + "zDimension " & Im.Width
    If Mid(XS.Text, 2, 1) = "," Then XS.Text = Left(XS.Text, 1) + "." + Right(XS.Text, 1)
    If Mid(ZS.Text, 2, 1) = "," Then ZS.Text = Left(ZS.Text, 1) + "." + Right(ZS.Text, 1)
    If Mid(U.Text, 2, 1) = "," Then U.Text = Left(U.Text, 1) + "." + Right(U.Text, 1)
X = X + E + T + T + "xSpacing " & XS.Text
X = X + E + T + T + "zSpacing " & ZS.Text
X = X + E + T + T + "creaseAngle " & U.Text
X = X + E + T + T + "height ["
'FormßtovßnÝ vřÜkovÚ mapy
    Dim Mezer As Integer: Mezer = 0
L:
    For i = 1 To Len(Mapa)
        If Mid(Mapa, i, 1) = " " Then Mezer = Mezer + 1
        If Mezer = Im.Width Then
            X = X + E + T + T + T + T + "  " + Left(Mapa, i - 1)
            Mapa = Right(Mapa, Len(Mapa) - i)
            Mezer = 0
            GoTo L
        End If
    Next
X = X + E + T + T + "       ]"
'//

X = X + E + T + " }" + E + " }"

Zdroj.Text = X: X = "": Mapa = ""
Im.Visible = True
Schr.Enabled = True
Nahled.Enabled = True
End Sub


Private Sub Nahled_Click()
    Dim txt As String
    Dim Prikaz As String
    txt = "#VRML V2.0 utf8" + Chr(13) + Chr(10) + " " + Zdroj.Text
    Open App.Path + "\Editor.wrl" For Output As #1
        Print #1, txt
    Close #1
    Prikaz = "explorer " + App.Path + "\Editor.wrl"
    Shell Prikaz, vbMaximizedFocus
End Sub

Private Sub Open_Click()
Otev.Visible = True
End Sub

Private Sub Pridat_Click()
    Dim k As String: k = "\"
    If Len(Fil.Path) = 3 Then k = ""
If Fil.FileName <> "" Then
    Im.Stretch = False
    Im.Picture = LoadPicture(DirX.Path + k + Fil.FileName)
    Dim a As Integer, b As Integer
    a = Im.Width
    b = Im.Height
    If a > 256 Or b > 256 Then
        MsgBox ("Formßt obrßzku byl upraven!")
        While a > 256: a = a - 256: Wend
        While b > 256: b = b - 256: Wend
        Im.Stretch = True
        Im.Width = a: Im.Height = b
    End If
    Info.Caption = Fil.FileName & "  -  " & Im.Width & " x " & Im.Height
    Generuj.Enabled = True
    Otev.Visible = False
End If
End Sub

Private Sub Schr_Click()
Clipboard.SetText Zdroj.Text
End Sub

Private Sub um_Click()
    If Uhel >= 0.2 Then Uhel = Uhel - 0.1
    U.Text = Uhel
End Sub

Private Sub up_Click()
    If Uhel < 9.9 Then Uhel = Uhel + 0.1
    U.Text = Uhel
End Sub

Private Sub xm_Click()
    If SpX >= 0.2 Then SpX = SpX - 0.1
    XS.Text = SpX
End Sub

Private Sub xp_Click()
    If SpX < 9.9 Then SpX = SpX + 0.1
    XS.Text = SpX
End Sub

Private Sub zm_Click()
    If SpZ >= 0.2 Then SpZ = SpZ - 0.1
    ZS.Text = SpZ
End Sub

Private Sub zp_Click()
    If SpZ < 9.9 Then SpZ = SpZ + 0.1
    ZS.Text = SpZ
End Sub

Private Sub Zpet_Click()
Otev.Visible = False
End Sub