Français
Source/ Codesnippets

un album Ogl

 
Minimalbeispiel pour einfachstes (so typisches) OGL-un album pour Stephan Lührsen GT. [...]  .

Herunterladen
KompilierenMarqueSéparation
randomize
CLS
SET("OGLW2H", 4/3)
OGL("init",%HWND,0,0,0,5)
OGL("posmode",1)
var TEXBMP&=CREATE("hNewPic",128,128,0)
STARTPAINT TEXBMP&

WHILELOOP 200

    USEPEN 0,5,RND($FFFFFF)
    LINE RND(128),RND(128) - RND(128),RND(128)

ENDWHILE

usepen 0,20,$223377
usebrush 0,0
rectangle 0,0 - 127,127
usepen 0,5,$FFFFFF
rectangle 10,10 - 118,118
copysizedbmp 0,0 - 128,128 > 0,0 - 128,65;0
copysizedbmp 0,0 - 128,64 > 0,128 - 127,-64;0
copybmp 0,0 - 128,64 > 0,64;3
ENDPAINT TEXBMP&
var TEX&=OGL("getTextureBMP",TEXBMP&,3)
var fx!=0
var qw!=0.3

WHILE 1

    OGL("clear")
    OGL("texture",TEX&,1)
    OGL("move",0,-0.25,-2.5)
    OGL("push")
    fx!=(%MOUSEX-200)/100
    OGL("move",fx!,0,0)

    WHILELOOP 18

        fx!=fx!-0.25

        if fx!

            OGL("move",-0.25,0,0)
            OGL("push")
            OGL("rotate",0,90,0)

        else

            OGL("move",-0.25,0,0)
            OGL("push")
            OGL("move",0,0,-abs(fx!*0.5)*3+1.5)
            OGL("rotate",0,180+90*-fx!,0)

        endif

        if fx!>-1

            OGL("quad",qw!,qw!*2)

        else

            OGL("quad",-qw!,qw!*2)

        endif

        OGL("pop")

    ENDWHILE

    OGL("pop")
    OGL("show")

ENDWHILE

OGL("done")


312 kB
Hochgeladen:14.12.2009
Downloadcounter239
Herunterladen
160 kB
Hochgeladen:14.12.2009
Downloadcounter247
Herunterladen
 
14.12.2009  
 



ici encore une autre OGL-un album-variante: Cooliris-Clone Gemeinschafftsprojekt [...] 
 
20.07.2011  
 



ici encore une autre xprofansche OGL-un album-variante: Cooliris-Clone Gemeinschafftsprojekt [...] 

 
20.07.2011  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

6.537 Views

Untitledvor 0 min.
Torsten Boo09.06.2022
Sven Bader01.08.2021
H.Brill15.07.2021
Normann Strübli31.07.2020
plus...

Themeninformationen

cet Thema hat 1 participant:

iF (3x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie