corrade-nucleus-nucleons – Rev 20

Subversion Repositories:
Rev:
#NoEnv
SetBatchLines -1

CoordMode Mouse, Screen
OnExit GuiClose

zoom := 9

computeSize(){
        global as_x
        as_x := Round(ws_x/zoom/2 - 0.5)
        if (zoom>1) {
                pix := Round(zoom)
        } ele {
                pix := 1
        }
    ToolTip Message %as_x% %zoom% %ws_x% %hws_x% 
}

hdc_frame := DllCall("GetDC", UInt, MagnifierID)

; comment
DrawCross(byRef x="", rX,rY,z, dc){
        ;specify the style, thickness and color of the cross lines
    h_pen := DllCall( "gdi32.dll\CreatePen", Int, 0, Int, 1, UInt, 0x0000FF)
}

;Ctrl ^; Shift +; Win #; Alt !
^NumPadAdd::
^WheelUp::   
^;::   ;comment
    If(zoom < ws_x and ( A_ThisHotKey = "^WheelUp" or A_ThisHotKey ="^NumPadAdd") )
                zoom *= 1.189207115         ; sqrt(sqrt(2))
        Gosub,setZoom
return