Español
Fuente/ Codesnippets

Album Ogl

 
Minimalbeispiel para einfachstes (así typisches) OGL-Album para Stephan Lührsen ca. [...]  .

Descargar
KompilierenMarcaSeparación
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
Ladeanzahl239
Descargar
160 kB
Hochgeladen:14.12.2009
Ladeanzahl247
Descargar
 
14.12.2009  
 



Hier ni otro OGL-Album-Variante: Cooliris-Clone Gemeinschafftsprojekt [...] 
 
20.07.2011  
 



Hier ni otro xprofansche OGL-Album-Variante: Cooliris-Clone Gemeinschafftsprojekt [...] 

 
20.07.2011  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.511 Views

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

Themeninformationen

Dieses Thema ha 1 subscriber:

iF (3x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie