set roaddesign_toolsmenu_items {
GuidoMenuItem curve_from_tangent {
-label "Curve from tangents"
-icon "icons/16/curve_tangent.png"
-command server "CURVE TANGENT"
}
GuidoMenuItem curve_from_seg_end {
-label "Curve at segment end"
-icon "icons/16/curve_end.png"
-command server "CURVE END"
}
GuidoSeparator sep1 {
}
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"
}
GuidoMenuItem create_road_profile {
-label "Create longitudinal profile"
-icon "icons/16/create_longitudinal_profile.png"
-command script scripts/createLongitudinalProfile.tcl
}
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_recall_file {
-label "Toggle plane mode"
-command server "TOGGLE PLANE MODE"
}
}
GuidoMenuItem vert_curve {
-label "Create vertical curves"
-icon "icons/16/design_vertical_alignment.png"
-command script scripts/designVerticalAlignment.tcl
}
GuidoMenuItem apply_road_profile {
-label "Apply longitudinal profile"
-icon "icons/16/apply_longitudinal_profile.png"
-command script scripts/applyLongitudinalProfile.tcl
}
GuidoMenuItem create_outline {
-label "Create road outline"
-icon "icons/16/create_road_outline.png"
-command script scripts/createRoadOutline.tcl
}
}
GuidoMenu roaddesign_toolsmenu {
-label "Road design"
-delayed_script $roaddesign_toolsmenu_items
}
