set roaddesign_toolsmenu_items {
GuidoMenu horz_points {
-label "Design horizontal inflection points"
GuidoMenuItem horz_digitise_digitise {
-label "Create new points using the mouse"
-icon "icons/16/digitiser_digitise.png"
-command server "DIGITISER DIGITISE"
}
GuidoMenuItem horz_recall_file {
-label "Open file containing existing design"
-command server "RECALL FILE APPEND NO SCALE"
}
}
GuidoMenuItem hor_curve {
-label "Create horizontal curves"
-icon "icons/16/design_horizontal_alignment.png"
-command script scripts/designHorizontalAlignment.tcl
}
GuidoMenuItem drape_segment {
-label "Drape segment over DTM"
-icon "icons/16/segment_over_dtm.png"
-command server "SEGMENT OVER DTM"
}
GuidoMenu vert_points {
-label "Design vertical inflection points"
GuidoMenuItem vert_digitise_digitise {
-label "Create new points using the mouse"
-icon "icons/16/digitiser_digitise.png"
-command server "DIGITISER DIGITISE"
}
GuidoMenuItem vert_recall_file {
-label "Open file containing existing design"
-command server "RECALL FILE APPEND NO SCALE"
}
}
GuidoMenuItem vert_curve {
-label "Create vertical curves"
-icon "icons/16/design_vertical_alignment.png"
-command script scripts/designVerticalAlignment.tcl
}
}
GuidoMenu roaddesign_toolsmenu {
-label "Road design"
-delayed_script $roaddesign_toolsmenu_items
}
