XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
OGL-Demo: Intro zum XProfan-Manager
lauffähig ab XProfan 10 und Windows XP
DEF @___GSM(1) !USER32,GetSystemMetrics
DEF @CaptionX(1) @Add(@%(1),@Mul(@___GSM(7),2))
DEF @CaptionY(1) @Add(@%(1),@Add(@CaptionX(0),@___GSM(4)))
DEF @CenterX(1) @Sub(@Div(%MaxX,2),@Div(@CaptionX(@%(1)),2))
DEF @CenterY(1) @Sub(@Div(%MaxY,2),@Div(@CaptionY(@%(1)),2))

PROC INTRO

    declare apptitle$,ix%,iy%,dmp$,o&,o!,i%
    o& = 1000
    o! = 1
    ix% = 557
    iy% = 459
    apptitle$ = qXProfan-Managerq
    ShowCursor 0
    windowtitle apptitle$
    WindowStyle 1040
    Window CenterX(ix%),Centery(iy%) - CaptionX(ix%),CaptionY(iy%)
    mcls 600,400
    startpaint -1
    cls rgb(255,255,164)
    dmp$ = GetDir$(@) + XPM_LG1.BMP

    if Fileexists(dmp$)

        LoadBMP dmp$,150,10;-1

    endif

    dmp$ = GetDir$(@) + XPM_LG2.BMP

    if Fileexists(dmp$)

        LoadBMP dmp$,10,10;-1
        LoadBMP dmp$,505,10;-1

    endif

    usefont Times New Roman,75,0,1,0,0
    textcolor rgb(0,64,128),-1
    drawtext 3,98,apptitle$
    textcolor rgb(0,0,255),-1
    drawtext 5,100,apptitle$
    usefont Times New Roman,45,0,1,0,0
    textcolor rgb(0,64,128),-1
    drawtext 13,188,© 2006 MMJ Hoyerswerda e.V.
    textcolor rgb(0,128,0),-1
    drawtext 15,190,© 2006 MMJ Hoyerswerda e.V.
    usefont Times New Roman,20,0,1,0,0
    textcolor rgb(0,64,128),-1
    drawtext 199,234,http://mmj.mxii.com
    textcolor rgb(0,128,0),-1
    drawtext 200,235,http://mmj.mxii.com
    usefont Times New Roman,35,0,1,0,0
    textcolor rgb(128,0,64),-1
    drawtext 73,263,Timo Schnitzer und Dietmar Horn
    textcolor rgb(255,0,128),-1
    drawtext 75,265,Timo Schnitzer und Dietmar Horn
    textcolor rgb(0,0,0),-1
    drawtext 69,309,sowie weitere MMJ-Kursteilnehmer
    textcolor rgb(0,255,64),-1
    drawtext 70,310,sowie weitere MMJ-Kursteilnehmer
    textcolor rgb(0,0,0),-1
    drawtext 159,354,und Vereinsmitglieder
    textcolor rgb(0,255,64),-1
    drawtext 160,355,und Vereinsmitglieder
    savebmp $tmp,0,0 - 600,400
    ogl(init,%hwnd,1.0,1.0,1.0,0)
    ogl(posmode,1)
    var bmp&=ogl(loadtexturebmp,$tmp,3)
    var fh&=assign($tmp)
    erase fh&
    assign fh&,

    while 1

        ogl(clear)
        o& = o& * 0.95
        ogl(move,0,0,-8.5)
        ogl(rotate,0,o&,0)
        ogl(texture,bmp&,1)
        ogl(quad,8,6)
        ogl(show)
        inc i%

        if i% > 150

            Sleep 1000
            break

        endif

        sleep 25

    wend

    while 1

        ogl(clear)
        o! = o! * 1.1
        ogl(move,0,0,-8.5)
        ogl(rotate,o!,0,0)
        ogl(texture,bmp&,1)
        ogl(quad,8,6)
        ogl(show)

        if o! > 1000

            Sleep 4000
            break

        endif

        sleep 35

    wend

    ShowCursor 1
    ogl(done)
    end

endproc

###############################################################################
INTRO
end