rollout test "Spline optimizator:)" width:162 height:300
(

    button btn3 "Check" pos:[9,7] width:145 height:28
    GroupBox grp1 "GroupBox" pos:[10,41] width:142 height:250
    label lbl1 "" pos:[17,60] width:130 height:22
    label lbl2 "" pos:[17,75] width:130 height:22
    button btn8 "Optimize" pos:[16,258] width:132 height:28


    on btn3 pressed do
    (
            x = selection[1].name
            sKnots = numknots selection[1]
            lbl1.text = "Spline : " + x
            lbl2.text = "Vertex : " + (sKnots as string)
        )


    on btn8 pressed do
    (
        for s = 1 to (numSplines $) do
        (
            step = 0;

            for k = 1 to (numKnots $ s)  do
            (

                step+=1
                print step

                if step== 2 then (
                    deleteKnot $ s k
                    step = 0
                )
            )
        )

        updateshape $
    )

)

CreateDialog test 162 300