! QGLE/AutoCAD Keyboard layout ! CONFIGURATION: keys$ = "QGLE" ! AutoCAD or QGLE tbh = 2 ! The height of the text box in centimetres boxsize = 1.9 ! The width of a single function key boxheight = 2 ! The height of a single function key lb = 1 ! The left border rb = 0.5 ! The right border bb = 0.5 ! The bottom border tb = 0 ! The top border mb = 1.025 ! The border between f4 & f5 ! Everything else is automatic, so nothing ! needs to be changed from here on (unless you want ! to define keys for a different program. ! Set up the QGLE keys f1$ = "ABOUT" f2$ = "" f3$ = "OSNAP" f4$ = "" f5$ = "" f6$ = "COORD" f7$ = "GRID" f8$ = "ORTHO" f9$ = "SNAP" f10$ = "POLAR" f11$ = "" f12$ = "" ! If we're doing an AutoCAD layout, then ! change the keys that differ if keys$ = "AutoCAD" then f1$ = "HELP" f2$ = "TEXTSCR" f4$ = "TABLET" f5$ = "ISOPLANE" f11$ = "OTRACK" end if ! Page size (4.5 by 26.35): size bb+boxheight+tbh+tb lb+3*4*boxsize+2*mb+rb ! Create a box for the key text sub fblock f$ box boxsize tbh rmove boxsize/2 boxheight/2 write f$ rmove boxsize/2 -boxheight/2 end sub ! Rotate the page so that it fits ! on a portrait A4 sheet amove pagewidth()/2 pagewidth()/2 begin rotate 90 ! Draw the outside box amove 0 0 rline pageheight() 0 rline 0 pagewidth() rline -pageheight() 0 rline 0 -pagewidth() ! Now back at 0 0 set just cc ! Draw the F1-F4 boxes amove lb bb box boxsize*4 boxheight rmove 0 boxheight fblock f1$ fblock f2$ fblock f3$ fblock f4$ ! Draw the F5-F8 boxes rmove mb -boxheight box boxsize*4 boxheight rmove 0 boxheight fblock f5$ fblock f6$ fblock f7$ fblock f8$ ! Draw the F9-F12 boxes rmove mb -boxheight box boxsize*4 boxheight rmove 0 boxheight fblock f9$ fblock f10$ fblock f11$ fblock f12$ end rotate