
( REAL 3D RPL STARTUP FILE )
( Version 1.5        © 20.03.1993 by Axel Mertes )
( Modified version      6.06.1993 by Realsoft )
( Modified version     10.12.1993 by Günter Hagedorn )
( Modified version     28.12.1993 by Realsoft )


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

"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 14  iTOG_ACCBOX @  MENU  0
;

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

: KEY_a  2  2  5 MENU 0 ; ( change animation          modify/properties/animation
: KEY_b  4  3  6 MENU 0 ; ( step backwards            animate/control/step_backwards
: KEY_c  2  2  0 MENU 0 ; ( change colour             modify/properties/colour 
: KEY_d  2  0 10 MENU 0 ; ( deform object             modify/linear/deform
: KEY_e  2  0  8 MENU 0 ; ( shEar object              modify/linear/shear
: KEY_f  4  3  5 MENU 0 ; ( step forward              animate/control/step_forwards
: KEY_g  1  2  2 MENU 0 ; ( create group              create/structure/group
: KEY_h  1  2  3 MENU 0 ; ( create metHod level       create/structure/method
: KEY_i  2  2  2 MENU 0 ; ( Info about attributes     modify/properties/attributes
: KEY_j  2  0  1 MENU 0 ; ( move cog = Jump           modify/linear/move COG
: KEY_k  1  2  1 MENU 0 ; ( create linK               create/structure/link
: KEY_l  1  2  0 MENU 0 ; ( create Level object       create/structure/level
: KEY_m  2  0  0 MENU 0 ; ( move                      modify/linear/move
: KEY_n  2  2  1 MENU 0 ; ( change name               modify/properties/name
: KEY_o  2  0  7 MENU 0 ; ( Opposite position         modify/linear/mirrOr
: KEY_p  1  3  0 MENU 0 ; ( create point lightsource  create/light/point
: KEY_q  2  0  9 MENU 0 ; ( rotate and extend         modify/linear/rot&ext
: KEY_r  2  0  6 MENU 0 ; ( rotate                    modify/linear/rotate
: KEY_s  2  0  4 MENU 0 ; ( stretch                   modify/linear/strech
: KEY_t  2  2  4 MENU 0 ; ( change tags               modify/properties/tags
: KEY_u  4  3  8 MENU 0 ; ( Update anim. system       animate/control/refresh  
: KEY_v  3  3  1 MENU 0 ; ( Create camera from View   view/camera/create
: KEY_w  1  9  8 MENU     ( unthink and rethink )
         1  9  6 MENU 0 ; ( Wireframe one level )
: KEY_x  0  3  2 MENU 0 ; ( eXecute current macro     project/macros/execute current
: KEY_y  0  3  4 MENU 0 ; ( repeat current macro      project/macros/repeat current
: KEY_z  0  3  3 MENU 0 ; ( execute named macro       project/macros/execute named

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

: KEY_A  1  9  3 MENU 0 ; ( boolean And with paint
: KEY_B  1  9  0 MENU 0 ; ( Boolean or                create/boolean/or
: KEY_C  2 12  8 MENU 0 ; ( surface to Curves
: KEY_D  2 12  9 MENU 0 ; ( Distribute points         modify/freeform/distribute
: KEY_E  2 12 11 MENU 0 ; ( Exchange u & v            modify/freeforn/exchange_u&v
: KEY_F  0  7  0 MENU 0 ; ( open Framebuffer 
: KEY_G  2 12 10 MENU 0 ; ( freeform assiGn 
: KEY_H  4  5  0 MENU 0 ; ( edit anim. metHod         animate/edit
: KEY_I  2  9  0 MENU 0 ; ( Inv. kinematics           modify/special/inv.kinem
: KEY_J  2 12  2 MENU 0 ; ( Join freeforms            modify/freeform/concatenate 
: KEY_K  1  4 10 MENU 0 ; ( create Knotpoint B-spl.   create/controls/B-Spline_Knot
: KEY_L  5  0 15 MENU 0 ; ( Lasso selector 
: KEY_M  0  3  0 MENU 0 ; ( record Macro on/off 
: KEY_N  1  9  4 MENU 0 ; ( boolean and Not with paint
: KEY_O  2 12  4 MENU 0 ; ( freeform Open/close 
: KEY_P  2 12  0 MENU 0 ; ( freeform reParametrize
: KEY_Q  0  7  1 MENU 0 ; ( Quit framebuffer          project/external screen/close
: KEY_R  2 12  7 MENU 0 ; ( freeform Remap            modify/freeform/remap
: KEY_S  2 12  3 MENU 0 ; ( freeform Swap directions
: KEY_T  2 12  5 MENU 0 ; ( Type of freeform 
: KEY_U  1  9  9 MENU 0 ; ( unthink all Wireframe 
: KEY_V  2 12  6 MENU 0 ; ( freeform inVert 
: KEY_W  1  9  9 MENU     ( unthink and rethink    
         1  9  7 MENU 0 ; ( Wireframe in all sublevels 
: KEY_X  2 12 13 MENU 0 ; ( Delete point/curve        modify/freeform/delete
: KEY_Y  2 12 14 MENU 0 ; ( Insert point/curve        modify/freeform/insert
: KEY_Z  2 12 15 MENU 0 ; ( Break point/curve         modify/freeform/break

: KEY_[ 4  3  2  MENU 0 ; ( go to beginning           animate/control/go_to_beginning
: KEY_] 4  3  3  MENU 0 ; ( go to end                 animate/control/go_to_end
: KEY_> 4  3  0  MENU 0 ; ( play forward              animate/control/play_forward
: KEY_< 4  3  1  MENU 0 ; ( play backwards            animate/control/play_backwards
: KEY_1 2  0  5  MENU 0 ; ( extend 1Dimensions        modify/linear/extend
: KEY_2 2  0  2  MENU 0 ; ( size2D 2Dimensions        modify/linear/size2D
: KEY_3 2  0  3  MENU 0 ; ( size3D 3Dimensions        modify/linear/size3D
: KEY_& 1  9  1  MENU 0 ; ( boolean and               create/boolean/and
: KEY_% 1  9  2  MENU 0 ; ( boolean and not           create/boolean/and_not
: KEY_. 3  2  2  MENU 0 ; ( display Position          view/camera/display_pos
: KEY_? 4  3  4  MENU 0 ; ( go to ?                   animate/control/go_to_?


: KEY_F0~ ( F1 = project window to front, if not open it )
    0 "View*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_VIEW "View" 0 0 502 512 WND_OPEN
    ENDIF
    0 ;
: KEY_F1~
    0 "Select*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_SELECT "Select" 502 10 138 107 WND_OPEN
    ENDIF
    0 ;
: KEY_F2~
    0 "Tool*" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        iWT_TOOL "Tool" 502 117 138 139 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 "Measure" iWM_ACTIVATE WND_SENDMSG
    NOT IF
        0  5  9 MENU
    ENDIF
    0 ;
: KEY_F9~ 0  5 14 MENU 0 ; ( F10 = close active window )


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

: KEY_F10~ ( SHIFT F1 = view view window close )
    0 "View*" 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*" iWM_DIE WND_SENDMSG DROP 0 ;
: KEY_F19~ 0 6 3 MENU 0 ; ( SHIFT F10 = close active screen )


( 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  2  6 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 2  7  0 MENU 0 ; ( CTRL J = Bend circular in 2D )
: KEY_^k 2  8  4 MENU 0 ; ( CTRL K = Twist )
: KEY_^l 1  3  1 MENU 0 ; ( CTRL L = Create Lightline )
: KEY_^m 3  4  2 MENU 0 ; ( CTRL M = Modify grid )
: KEY_^n 0  5 15 MENU 0 ; ( CTRL N = No gadgets )
: KEY_^o 3  1  3 MENU 0 ; ( CTRL O = Object space to view )
: KEY_^p 3  1  8 MENU 0 ; ( CTRL P = Reset Hot-Point )
: KEY_^q 6  1  0 MENU 0 ; ( CTRL Q = General Settings )
: KEY_^r 3  4  3 MENU 0 ; ( CTRL R = Reposition grid )
: KEY_^s 3  4  0 MENU 0 ; ( CTRL S = Select grid )
: KEY_^t 2  12 5 MENU 0 ; ( CTRL T = change objtype )
: KEY_^u  6 10  2 MENU 0 ; ( CTRL U = clear Undobuffer )
: 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  2 11 MENU 0 ; ( CTRL X = define X axis )
: KEY_^y  3  2 12 MENU 0 ; ( CTRL Y = define Y axis )
: KEY_^z  3  2 10 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_N ; unused, can`t be used! )
: 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 )


( END OF FILE )
