
( REAL 3D RPL STARTUP FILE )
( Version 1.6 © 26.07.1993 by Axel Mertes )

"r3d2:rpl/sys/editor.rpl" LOAD

VARIABLE iTOG_PARPER 0 iTOG_PARPER ! ( TOGgle PARallel/PERspective )

: KEY_* ( * = toggle parallel/perspective projection )
   1 iTOG_PARPER @ - iTOG_PARPER !
   3  0  iTOG_PARPER @  MENU  0
;

VARIABLE iTOG_ACCBOX 0 iTOG_ACCBOX ! ( TOGgle ACCurate/bounding BOX )

: KEY_/ ( / = toggle accurate/bounding box wire)
   1 iTOG_ACCBOX @ - iTOG_ACCBOX !
   2 13  iTOG_ACCBOX @  MENU  0
;

( Special keys )

: KEY_+  1 10  1 MENU 0 ; ( + = boolean and )
: KEY_-  1 10  2 MENU 0 ; ( - = boolean and not )
: KEY_.  3  3  3 MENU 0 ; ( . = display position = Point )

: KEY_1  2  0  5 MENU 0 ; ( size 1d = extend )
: KEY_2  2  0  2 MENU 0 ; ( size 2d )
: KEY_3  2  0  3 MENU 0 ; ( size 3d )

: KEY_<  4  1  1 MENU 0 ; ( < = play animation backward )
: KEY_>  4  1  0 MENU 0 ; ( > = play animation forward )
: KEY_?  4  1  4 MENU 0 ; ( ? = go to ? )
: KEY_[  4  1  2 MENU 0 ; ( [ = go to the beginning )
: KEY_]  4  1  3 MENU 0 ; ( ] = go to the end )

( NORMAL KEYS `a`...`z` )

: KEY_a  2  2  5 MENU 0 ; ( A = modify Animation )
: KEY_b  4  1  6 MENU 0 ; ( B = step Backward one frame )
: KEY_c  2  2  0 MENU 0 ; ( C = modifiy Color )
: KEY_d  2  0 10 MENU 0 ; ( D = Deform object )
: KEY_e  2  0  8 MENU 0 ; ( E = shEar object )
: KEY_f  4  1  5 MENU 0 ; ( F = step Forward one frame )
: KEY_g  1  2  2 MENU 0 ; ( G = create subGroup object )
: KEY_h  1  2  3 MENU 0 ; ( H = create metHod level = animation Hierarchy )
: KEY_i  2  2  2 MENU 0 ; ( I = modify attribute Information )
: KEY_j  2  0  1 MENU 0 ; ( J = move cog = Jump )
: KEY_k  1  2  1 MENU 0 ; ( K = create symbolic linK )
: KEY_l  1  2  0 MENU 0 ; ( L = create Level object )
: KEY_m  2  0  0 MENU 0 ; ( M = Move object )
: KEY_n  2  2  1 MENU 0 ; ( N = modify Name )
: KEY_o  2  0  7 MENU 0 ; ( O = mirrOr object = Opposite position )
: KEY_p  2  8  0 MENU 0 ; ( P = Project to plane )
: KEY_q  2  0  9 MENU 0 ; ( Q = rotate and extend = looks like a Q )
: KEY_r  2  0  6 MENU 0 ; ( R = Rotate object )
: KEY_s  2  0  4 MENU 0 ; ( S = Stretch object )
: KEY_t  2  2  4 MENU 0 ; ( T = modfiy Tags )
: KEY_u  4  1  8 MENU 0 ; ( U = refresh = Update animation system )
: KEY_v  5  0  3 MENU 0 ; ( V = clear Vector stack )
: KEY_w  1 10  8 MENU     ( W = unthink and rethink )
         1 10  6 MENU 0 ; (     Wireframe one level )
: KEY_x  0  3  2 MENU 0 ; ( X = eXecute current macro )
: KEY_y  0  3  4 MENU 0 ; ( Y = repeat current macro )
: KEY_z  0  3  3 MENU 0 ; ( Z = execute named macro )

( SHIFT KEYS `A`...`Z` )

: KEY_A  1 10  3 MENU 0 ; ( SHIFT A = boolean And with paint )
: KEY_B  1 10  0 MENU 0 ; ( SHIFT B = Boolean or level with selected objects )
: KEY_C  2 11  8 MENU 0 ; ( SHIFT C = freeform surface to Curves )
: KEY_D  2 11  9 MENU 0 ; ( SHIFT D = freeform Distribute )
: KEY_E  2 11 11 MENU 0 ; ( SHIFT E = freeform Exchange u & v )
: KEY_F  0  7  0 MENU 0 ; ( SHIFT F = open external screen = Framebuffer )
: KEY_G  2 11 10 MENU 0 ; ( SHIFT G = freeform assiGn )
( : KEY_H ; unused )
: KEY_I  2  8  1 MENU 0 ; ( SHIFT I = Inverse kinematic )
: KEY_J  2 11  2 MENU 0 ; ( SHIFT J = freeform concatenate = Join )
( : KEY_K ; unused )
: KEY_L  5  0 15 MENU 0 ; ( SHIFT L = Lasso selector )
: KEY_M  0  3  0 MENU 0 ; ( SHIFT M = record Macro on/off )
: KEY_N  1 10  4 MENU 0 ; ( SHIFT N = boolean and Not with paint )
: KEY_O  2 11  4 MENU 0 ; ( SHIFT O = freeform Open/close )
: KEY_P  2 11  0 MENU 0 ; ( SHIFT P = freeform reParametrize )
: KEY_Q  0  7  1 MENU 0 ; ( SHIFT Q = close external screen = Quit framebuffer )
: KEY_R  2 11  7 MENU 0 ; ( SHIFT R = freeform Remap )
: KEY_S  2 11  3 MENU 0 ; ( SHIFT S = freeform Swap directions )
: KEY_T  2 11  5 MENU 0 ; ( SHIFT T = freeform modify Type )
: KEY_U  1 10  9 MENU 0 ; ( SHIFT U = unthink Wireframe all sublevels )
: KEY_V  2 11  6 MENU 0 ; ( SHIFT V = freeform inVert )
: KEY_W  1 10  9 MENU     ( SHIFT W = unthink and rethink     )
         1 10  7 MENU 0 ; (           Wireframe all sublevels )
: KEY_X  2 11 14 MENU 0 ; ( SHIFT X = Delete point/isop. curve )
: KEY_Y  2 11 13 MENU 0 ; ( SHIFT Y = Insert point/isop. curve )
: KEY_Z  2 11 15 MENU 0 ; ( SHIFT Z = Break curve/mesh )

( CTRL KEYS: Codes 0...31, `^A`=1...`^Z`=26 )

: KEY_^a 3  7  3 MENU 0 ; ( CTRL A = delete All boxes )
: KEY_^b 3  7  0 MENU 0 ; ( CTRL B = define Box )
: KEY_^c 3  4  1 MENU 0 ; ( CTRL C = Create grid )
: KEY_^d 3  4  4 MENU 0 ; ( CTRL D = Delete grid )
: KEY_^e 3  7  2 MENU 0 ; ( CTRL E = dElete box = Erase )
: KEY_^f 3  3  7 MENU 0 ; ( CTRL F = auto Focus )
: KEY_^g 3  4  7 MENU 0 ; ( CTRL G = Grid snap on/off )
: KEY_^h 3  5 11 MENU 0 ; ( CTRL H = render Hierarchy )
: KEY_^i 3  0  3 MENU 0 ; ( CTRL I = separate Io on/off )
( : KEY_^j ; unused )
( : KEY_^k ; unused )
( : KEY_^l ; unused )
: KEY_^m 3  4  2 MENU 0 ; ( CTRL M = Modify grid )
: KEY_^n 0  5 13 MENU 0 ; ( CTRL N = No gadgets )
: KEY_^o 3  1  6 MENU 0 ; ( CTRL O = Object space to view )
: KEY_^p 3  3  3 MENU 0 ; ( CTRL P = display Position, see also: "." )
( : KEY_^q ; unused )
: KEY_^r 3  4  3 MENU 0 ; ( CTRL R = Reposition grid )
: KEY_^s 3  4  0 MENU 0 ; ( CTRL S = Select grid )
( : KEY_^t ; unused )
( : KEY_^u ; unused )
: KEY_^v  3  4  6 MENU 0 ; ( CTRL V = grid Visible on/off )
: KEY_^w  3  7  4 MENU 0 ; ( CTRL W = shoW all boxes )
: KEY_^x  3  1  4 MENU 0 ; ( CTRL X = define X axis )
: KEY_^y  3  1  5 MENU 0 ; ( CTRL Y = define Y axis )
: KEY_^z  3  3  2 MENU 0 ; ( CTRL Z = custom Zoom scale )

( ALT KEYS `a`...`z` )

( : KEY_A ; unused )
: KEY_º  2  1  0 MENU 0 ; ( ALT B = cut = delete and Backup selected )
: KEY_ç  2  1  1 MENU 0 ; ( ALT C = Copy selected )
: KEY_ð  2  1  4 MENU 0 ; ( ALT D = Duplicate selected )
: KEY_©  2  1  5 MENU 0 ; ( ALT E = swap = Exchange selected )
( : KEY_F ; unused, can`t be used! )
( : KEY_G ; unused, can`t be used! )
( : KEY_H ; unused, can`t be used! )
: KEY_¡  0  0  0 MENU 0 ; ( ALT I = Insert object )
( : KEY_J ; unused, can`t be used! )
( : KEY_K ; unused, can`t be used! )
( : KEY_L ; unused )
( : KEY_M ; unused )
: KEY_­  0  1  0 MENU 0 ; ( ALT N = project New )
( : KEY_O ; unused )
: KEY_¶  2  1  2 MENU 0 ; ( ALT P = Paste selected )
: KEY_å  0  8  0 MENU 0 ; ( ALT Q = Quit programm )
: KEY_®  0  0  2 MENU 0 ; ( ALT R = Replace object )
: KEY_ß  0  0  1 MENU 0 ; ( ALT S = Save object )
( : KEY_T ; unused )
( : KEY_U ; unused )
( : KEY_V ; unused )
( : KEY_W ; unused )
: KEY_×  2  1  3 MENU 0 ; ( ALT X = delete = eXterminate selected )
( : KEY_Y ; unused )
( : KEY_Z ; unused )


( NORMAL FUNCTION KEYS `F1`...`F10` )

: KEY_F0~ ( F1 = project window to front, if not open open it )
    0 "Project*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_VIEW "Project" 0 11 492 501 WND_OPEN
    ENDIF
    0 ;
: KEY_F1~
    0 "Select*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_SELECT "Select" 492 246 148 266 WND_OPEN
    ENDIF
    0 ;
: KEY_F2~
    0 "Tool*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_TOOL "Tool" 492 11 148 235 WND_OPEN
    ENDIF
    0 ;
: KEY_F3~
    0 "Material*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_MATERIAL "Material" 0 11 640 200 WND_OPEN
    ENDIF
    0 ;
: KEY_F4~
    0 "Color*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_PALETTE "Color" 0 11 320 80 WND_OPEN
    ENDIF
    0 ;
: KEY_F5~
    0 "Screen*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_SCREEN "Screen" 0 11 300 85 WND_OPEN
    ENDIF
    0 ;
: KEY_F6~
    0 "Animation*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_ANIM "Animation" 0 11 640 115 WND_OPEN
    ENDIF
    0 ;
: KEY_F7~
    0 "Shell*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_SHELL "Shell" 0 312 640 200 WND_OPEN
    ENDIF
    0 ;
: KEY_F8~
    0 "Measuring System*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_MEASURE "Measuring System" 0 414 492 98 WND_OPEN
    ENDIF
    0 ;
: KEY_F9~ 0  5 12 MENU 0 ; ( F10 = close active window )


( SHIFT FUNCTION KEYS `F1`...`F10` )

: KEY_F10~ ( SHIFT F1 = view view window close )
    0 "Project*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F11~ ( SHIFT F2 = select window close )
    0 "Select*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F12~ ( SHIFT F3 = tool window close )
    0 "Tool*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F13~ ( SHIFT F4 = material window close )
    0 "Material*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F14~ ( SHIFT F5 = color window close )
    0 "Color*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F15~ ( SHIFT F6 = screen window close )
    0 "Screen*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F16~ ( SHIFT F7 = animation window close )
    0 "Anim*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F17~ ( SHIFT F8 = rpl shell window close )
    0 "Shell*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F18~ ( SHIFT F9 = measuring window close )
    0 "Measuring System*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F19~ 0 5 12 MENU 0 ; ( SHIFT F10 = close active window )

( END OF FILE )
