Le portail francophone de la géomatique

Include "mapbasic.def"
Include "OpenTable.def"

Declare Sub main

Sub Main
    Dim compareTopo As String
    Dim cmd As String
    Dim px, py, deltaZ, sumD As Alias
    Dim val_px, val-py, val_deltaZ, val_sumD As Float
    Dim idWindow As integer

    compareTopo = "CompareTopo"
    call OpenTableWithTableName(compareTopo)
    
    Map From compareTopo
    idWindow = FrontWindow()
    Set Window idWindow Layer 0 editable On
    
    px = compareTopo + ".px"
    py = compareTopo + ".py"
    deltaZ = compareTopo + ".DeltaZ"
    sumD = compareTopo + ".SumD"
    Fetch First From compareTopo
    Do While Not EOT(compareTopo)
        val_px = px
        val_py = py
        val_deltaZ = py+deltaZ
        val_sumD = px+sumD
        cmd = "Create Rect Into Window " & idWindow & " (" val_px & ", " & val_py & ") (" & val_sumD & ", " & val_deltaZ & ")"
        print cmd
        run Command cmd
        Fetch Next From compareTopo
    Loop
End Sub