XProfan

' Program: lesson13
' for XProfan 9
declare font&, \' Base display List For The Font Set
cnt1!, \' 1st Counter Used To Move Text & For Coloring
cnt2!, \' 2nd Counter Used To Move Text & For Coloring
cnt3!' New eingefügt
cnt3! = -7
declare time&, frames%

proc DrawGLScene

    oGL("Clear")
    oGL("Origin", 0, 0, -2)' Move Into The Screen
    oGL("Color", cos(cnt1!), sin(cnt2!), 1 - 0.5 * cos(cnt1! + cnt2!), 1)
    cnt1! = cnt1! + 0.051' Increase The First Counter
    cnt2! = cnt2! + 0.005
    cnt3! = cnt3! + 0.007' New eingefügt
    ' Increase The 2nd Counter
    oGL("Locate", -5.95 - cnt3!, 0.32 * sin(cnt2!))' position The Text On The Screen ************ New eingefügt
    oGL("Print", font&, "Text in OpenGL with XProfan 9")' Print GL Text To The Screen
    oGL("Show")

endproc

' Hauptprogramm
' -------------
declare end%, hfont&
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
hfont& = create("Font", "Arial", 32, 0, 0, 0, 0)
font& = oGL("BitmapFont", hfont&)
deleteobject hfont&
Ende% = 0
time&   = &GetTickCount
setTimer 10' max. 100 Frames /sek.

WhileNot end%

    WaitInput

    If IsKey(27)

        end% = 1

    EndIf

    DrawGLScene()
    inc frames%

    if &GetTickCount - time& >= 1000' 1 second is 'rum

        setText %hWnd, st$(frames%) + " Frames / sek"
        time&   = &GetTickCount
        frames% = 0

    endif

EndWhile

killTimer
end

' Program: lesson14
' for XProfan 10
declare font&, ruddy!, pos!
pos!=8
declare time&, frames%

proc DrawGLScene

    pos! = pos! - 0.05
    oGL("Clear")
    oGL("Origin", 0, 0, -12)
    '  oGL("Rotate", ruddy!, ruddy! * 0.1, ruddy! * 0.09)
    oGL("Color", cos(ruddy!/20), sin(ruddy!/25), 1 - 0.5*cos(ruddy!/17), 1)
    oGL("Move", pos!, 0, 0)
    oGL("Print", font&, "OpenGL with XProfan 9")
    ruddy! = ruddy! + 0.5
    oGL("Show")
    locate 0,0
    print st$(pos!)

endproc

' Hauptprogramm
' -------------
declare end%, hfont&
CLS 0
oGL("Init", %hWnd, 0, 0, 0, 1)
hfont& = create("Font", "Courier New", 48, 0, 1, 0, 1)
font& = oGL("OutlineFont", hfont&, 0.3)
deleteobject hfont&
Ende% = 0
time&   = &GetTickCount
setTimer 25' max. 100 Frames /sek.

WhileNot end%

    WaitInput

    If IsKey(27)

        end% = 1

    EndIf

    Case pos! < -18 : pos! = 7'Text again to right
    DrawGLScene()
    inc frames%

    if &GetTickCount - time& >= 1000' 1 second is 'rum

        setText %hWnd, st$(frames%) + " Frames / sek"
        time&   = &GetTickCount
        frames% = 0

    endif

EndWhile

killTimer
end

'-Begin-----------------------------------------------------------------
Declare A$,B$
Cls
Window Title "Testprogramm MP3 / MPG"

If %ParCount

    A$ = Par$(1)
    print "Abspielen: \n" + A$

Else

    print "Keine mp3-File transfer >>> File auswählen"
    A$=LoadFile $("MP3/MPG-DATEI","*.MP*")

EndIf

While A$ <> ""

    A$ = "\q" + A$ + "\q"
    A$="OPEN " + A$ + " TYPE MPEGVIDEO ALIAS MP"
    B$=$ MCISend(A $)
    Case %MCIError : Print "Error: ";B$
    B$=$ MCISend("PLAY MP")
    WaitMouse
    B$=$ MCISend("CLOSE MP")
    A$=LoadFile $("MP3/MPG-DATEI","*.MP*")

EndWhile

'-End-------------------------------------------------------------------

/*
Diashow
*/
Window Style 64 + 16'Window without welt and
Window %MaxX, %MaxY'Window on Desktopauflösung adjust
CLS 0'screen Black dye
Declare end%'Variable for Abbruchbedingung
Declare hfont&, font&'variables for Font1
Declare pos!, ruddy!'Positions- and RotationsVariablen
Ende% = 0'Startbedingung 0 - means no discontinue
pos!=12'position the Textes outside the rechten Bildschirmrandes
rot!=0'Rotation = 0
oGL("Init", %hWnd, 0, 0, 0, 0)'OpenGL Init
oGL("LoadXPGL", "Linie.xpgl")'loading Linienpunkte from File line.xpgl
oGL("UseXPGL", 1)'uses these Linienpunkte
hfont& = create("Font", "Courier New", 64, 0, 0, 10, 0)'loading Font in Variable hfont&
font& = oGL("OutlineFont", hfont&, 0.3)'points hfont& oGL To
deleteobject hfont&'destroy Objekt hfont& again, because it to Zuweisung not any more needed becomes
MIDI("Play", $PROGDIR + "irgendeinSound.mp3", 1)'game mp3 from the Programmverzeichnis ex from the this program launched watts
SetTimer 5'max. 100 Frames /sek.

WhileNot end%'If no Abbruchbedingung recognized watts, durchlauf the Timers

    WaitInput'wait on Abbruchbedingung

    If IsKey(27)'is Abbruchbedingung "Escape-Taste" erfüllt, then

        end% = 1'setting Variable end% on 1

    EndIf'and finish these request

    Case pos! < -22 : pos! = 12'If Text behind linkem Bildschirmrand disappeared then starte it again of in front
    Case ruddy! <= 90 : ruddy!=0'If Rotationswinkel 90strain access, then on 0 settle
    DrawLauftext()'draw derweil OpenGL

EndWhile'spring To WhileNot

KillTimer'finish to 5ms whom Timer or rather said: spring to 5ms again to that SetTimer
End
'----------------------------------------------------------------------------

proc DrawLauftext

    pos! = pos! - 0.05
    ruddy! = ruddy! + 0.05
    oGL("Clear")
    oGL("Origin", 0, 0, -12)
    'oGL("Rotate", ruddy!, ruddy! * 0.1, ruddy! * 0.09)
    oGL("Color", cos(ruddy!), sin(ruddy!), 1 - 0.5*cos(ruddy!), 1)
    oGL("Move", pos!, 4.3, 0)
    oGL("Print", font&, "OpenGL with XProfan 9")
    oGL("Origin", 0, 0, -12)
    oGL("Color", cos(ruddy!), sin(ruddy!), 1 - 0.5*cos(ruddy!), 1)
    oGL("Move", pos!/0.7, -4.7, 0)
    oGL("Print", font&, "OpenGL with XProfan 9")
    oGL("Origin", 0.0, 0.0, -9.0)'setting position the XPGL-lines
    oGL("DrawXPGL", 0, 4)'draw ebend these lines
    oGL("Show")'shows Lauftext and lines

ENDPROC