{ All use of this software is the responsiblity of the recipient. } { CATEGORY: ME10 construction-projection } { } { AUTHOR: Ray Dauphinais } { CONTACT OPTION: dauph@jlc.net } { VIDEO MODE: Native ME10. } { MONITOR RESOLUTION: n/a } { MACRO TITLE: Projection } { DESC: Allows user to place lines at 45 degrees for projection. } { MACRO VERSION: 1.0 First version (no known bugs) } { } { DATE: 2000.07.01 } { APPLICATION: ME10 8.7up } { OPSYS: all } { KEYWORDS: FV FF } { } { } { } { } { } { } { } {*************************************************************************} DEFINE pro LOCAL File_name INQ_ENV 0 LET File_name CURRENT_MENU 'Projection' MENU_LAYOUT (1*Text_slot_height) ' | ' (2*Text_slot_height) ' | ' (2*Text_slot_height) ' | | ' (2*Text_slot_height) ' | ' (2*Text_slot_height) (Graphic_area_low_left+((Graphic_area_up_right - Graphic_area_low_left)/2.00)) END MENU Colo0 Bcol5 CENTER 'Project' 'menu_status move' 1 1 MENU Colo0 Bcol4 CENTER '\ 135' 'ffa' 2 1 MENU Colo0 Bcol4 CENTER '' '' 3 1 MENU Colo0 Bcol4 CENTER '/-135' 'ffb' 4 1 MENU Colo0 Bcol5 CENTER 'X' 'menu_status unmap' 1 2 MENU Colo0 Bcol4 CENTER '/ 45' 'ffc' 2 2 MENU Colo0 Bcol3 CENTER 'choice' 'ff' 3 2 MENU Colo0 Bcol4 CENTER '\-45' 'ffd' 4 2 MENU Colo0 Bcol4 CENTER '' '' 3 3 END END_DEFINE DEFINE FFa local a local e read pnt 'enter start point location' a let p1 (x_of a) let p2 (y_of a) let g (100.000) let u (135) let e (pnt_xy (p1+g) p2) let t (991) ADD_CURRENT_INFO 'LAYER: 1'end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR t) end line yellow long_dotted end line two_pts a e end modify rotate center a u select infos ('LAYER: '+str t) confirm end change_color red select infos ('LAYER: '+str t) confirm end change_linetype dotted select infos ('LAYER: '+str t) confirm end line red dotted end let v (1) change_elem_info 'LAYER: *' ('LAYER: '+str v) select infos ('LAYER: '+str t) confirm end ADD_CURRENT_INFO 'layer: 1' end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR v) end redraw Sm_screen_col WHITE Sm_screen_lt SOLID Ls_loc 0 Sm_screen_lt END_DEFINE DEFINE FFb local a local e read pnt 'enter start point location' a let p1 (x_of a) let p2 (y_of a) let g (100.000) let u (-135) let e (pnt_xy (p1+g) p2) let t (991) ADD_CURRENT_INFO 'LAYER: 1'end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR t) end line yellow long_dotted end line two_pts a e end modify rotate center a u select infos ('LAYER: '+str t) confirm end change_color red select infos ('LAYER: '+str t) confirm end change_linetype dotted select infos ('LAYER: '+str t) confirm end line red dotted end let v (1) change_elem_info 'LAYER: *' ('LAYER: '+str v) select infos ('LAYER: '+str t) confirm end ADD_CURRENT_INFO 'layer: 1' end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR v) end redraw Sm_screen_col WHITE Sm_screen_lt SOLID Ls_loc 0 Sm_screen_lt END_DEFINE DEFINE FFc local a local e read pnt 'enter start point location' a let p1 (x_of a) let p2 (y_of a) let g (100.000) let u (45) let e (pnt_xy (p1+g) p2) let t (991) ADD_CURRENT_INFO 'LAYER: 1'end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR t) end line yellow long_dotted end line two_pts a e end modify rotate center a u select infos ('LAYER: '+str t) confirm end change_color red select infos ('LAYER: '+str t) confirm end change_linetype dotted select infos ('LAYER: '+str t) confirm end line red dotted end let v (1) change_elem_info 'LAYER: *' ('LAYER: '+str v) select infos ('LAYER: '+str t) confirm end ADD_CURRENT_INFO 'layer: 1' end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR v) end redraw Sm_screen_col WHITE Sm_screen_lt SOLID Ls_loc 0 Sm_screen_lt END_DEFINE DEFINE FFd local a local e read pnt 'enter start point location' a let p1 (x_of a) let p2 (y_of a) let g (100.000) let u (-45) let e (pnt_xy (p1+g) p2) let t (991) ADD_CURRENT_INFO 'LAYER: 1'end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR t) end line yellow long_dotted end line two_pts a e end modify rotate center a u select infos ('LAYER: '+str t) confirm end change_color red select infos ('LAYER: '+str t) confirm end change_linetype dotted select infos ('LAYER: '+str t) confirm end line red dotted end let v (1) change_elem_info 'LAYER: *' ('LAYER: '+str v) select infos ('LAYER: '+str t) confirm end ADD_CURRENT_INFO 'layer: 1' end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR v) end redraw Sm_screen_col WHITE Sm_screen_lt SOLID Ls_loc 0 Sm_screen_lt END_DEFINE DEFINE FF local a local e read pnt 'enter start point location' a let p1 (x_of a) let p2 (y_of a) let g (100.000) let e (pnt_xy (p1+g) p2) let t (991) ADD_CURRENT_INFO 'LAYER: 1'end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR t) end line yellow long_dotted end line two_pts a e end read number 'enter rotation value (45 or -45 or 135 or -135)' u modify rotate center a u select infos ('LAYER: '+str t) confirm end change_color red select infos ('LAYER: '+str t) confirm end change_linetype dotted select infos ('LAYER: '+str t) confirm end line red dotted end let v (1) change_elem_info 'LAYER: *' ('LAYER: '+str v) select infos ('LAYER: '+str t) confirm end ADD_CURRENT_INFO 'layer: 1' end CHANGE_CURRENT_INFO 'LAYER: *' ('LAYER: '+STR v) end Sm_screen_col WHITE Sm_screen_lt SOLID Ls_loc 0 Sm_screen_lt redraw end_loop END_DEFINE