XProfan

' Programme: lesson13
' pour XProfan 9
declare font&, \' la cousine 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!' récente 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' récente eingefügt
    ' Increase The 2nd Counter
    oGL("Locate", -5.95 - cnt3!, 0.32 * sin(cnt2!))' Position The Text On The Screen ************ récente eingefügt
    oGL("Print", font&, "Text dans OpenGL avec XProfan 9")' Imprimer GL Text To The Screen
    oGL("Show")

endproc

' Hauptprogramm
' -------------
declare ende%, 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 ende%

    WaitInput

    Si IsKey(27)

        Ende% = 1

    EndIf

    DrawGLScene()
    inc frames%

    si &GetTickCount - time& >= 1000' 1 seconde ist 'rum

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

    endif

Endwhile

killTimer
end

' Programme: lesson14
' pour XProfan 10
declare font&, rouge!, pos!
pos!=8
declare time&, frames%

proc DrawGLScene

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

endproc

' Hauptprogramm
' -------------
declare ende%, 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 ende%

    WaitInput

    Si IsKey(27)

        Ende% = 1

    EndIf

    Cas pos! < -18 : pos! = 7'Text wieder à droite
    DrawGLScene()
    inc frames%

    si &GetTickCount - time& >= 1000' 1 seconde ist 'rum

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

    endif

Endwhile

killTimer
end

'-Begin-----------------------------------------------------------------
Déclarer A$,B$
Cls
Titre de la fenêtre "Testprogramm MP3 / MPG"

Si %ParCount

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

D'autre

    imprimer "Keine mp3-Dossier transfert >>> Dossier auswählen"
    A$=LoadFile$("MP3/MPG-DATEI","*.MP*")

EndIf

Tandis que A$ <> »

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

Endwhile

'-Fin-------------------------------------------------------------------

/*
Diashow
*/
Fenêtre Style 64 + 16'la fenêtre sans cadre et
Fenêtre %MaxX, %MaxY'la fenêtre à Desktopauflösung anpassen
CLS 0'Bildschirm noir färben
Déclarer Ende%'Variable pour Abbruchbedingung
Déclarer hfont&, font&'Variablen pour Font1
Déclarer pos!, rouge!'Positions- et RotationsVariablen
Ende% = 0'Startbedingung 0 - alors ne...aucune Abbruch
pos!=12'Position des Textes außerhalb des rechten Bildschirmrandes
rot!=0'Rotation = 0
oGL("Init", %hWnd, 0, 0, 0, 0)'OpenGL Init
oGL("LoadXPGL", "Linie.xpgl")'Lädt Linienpunkte aus Dossier ligne number.xpgl
oGL("UseXPGL", 1)'Verwendet cet Linienpunkte
hfont& = create("Font", "Courier New", 64, 0, 0, 10, 0)'Lädt Font dans Variable hfont&
font& = oGL("OutlineFont", hfont&, 0.3)'Weist hfont& oGL trop
deleteobject hfont&'Zerstört objet hfont& wieder, weil es pour Zuweisung pas plus nécessaire wird
MIDI("Play", $PROGDIR + "irgendeinSound.mp3", 1)'Spielt mp3 aus dem Programmverzeichnis ab aus dem cet Programme gestartet wurde
SetTimer 5'max. 100 Frames /sek.

WhileNot ende%'si aucun Abbruchbedingung erkannt wurde, durchlauf des Timers

    WaitInput'wartet sur Abbruchbedingung

    Si IsKey(27)'ist Abbruchbedingung "Escape-Taste" erfüllt, ensuite

        Ende% = 1'setzte Variable Ende% sur 1

    EndIf'et finis cet Abfrage

    Cas pos! < -22 : pos! = 12'si Text derrière linkem Bildschirmrand verschwunden ensuite starte ihn wieder de Vorne
    Cas rouge! <= 90 : rouge!=0'si Rotationswinkel 90Grad erreicht, ensuite sur 0 mettons
    DrawLauftext()'Zeichne derweil OpenGL

Endwhile'Springe trop WhileNot

KillTimer'finis pour 5ms den Minuteur ou bien besser dit: Springe pour 5ms wieder zum SetTimer
Fin
'----------------------------------------------------------------------------

proc DrawLauftext

    pos! = pos! - 0.05
    rouge! = rouge! + 0.05
    oGL("Clear")
    oGL("Origin", 0, 0, -12)
    'oGL("Rotate", rouge!, rouge! * 0.1, rouge! * 0.09)
    oGL("Color", cos(rouge!), sin(rouge!), 1 - 0.5*cos(rouge!), 1)
    oGL("Move", pos!, 4.3, 0)
    oGL("Print", font&, "OpenGL avec XProfan 9")
    oGL("Origin", 0, 0, -12)
    oGL("Color", cos(rouge!), sin(rouge!), 1 - 0.5*cos(rouge!), 1)
    oGL("Move", pos!/0.7, -4.7, 0)
    oGL("Print", font&, "OpenGL avec XProfan 9")
    oGL("Origin", 0.0, 0.0, -9.0)'mets Position qui XPGL-Linien
    oGL("DrawXPGL", 0, 4)'Zeichnet ebend cet Linien
    oGL("Show")'Zeigt Lauftext et Linien

ENDPROC