PureBasic

Forums PureBasic
Nous sommes le Mar 25/Sep/2018 18:02

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 
Auteur Message
 Sujet du message: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Sam 07/Juil/2018 0:33 
Hors ligne

Inscription: Ven 29/Juin/2007 17:50
Messages: 3174
Code:
;***************************************************************************************************************************
InitSprite()
InitKeyboard()
InitMouse()
ExamineDesktops()
dw = DesktopWidth(0)
dh = DesktopHeight(0)
dd = DesktopDepth(0)
dxmax = dw - 1
dymax = dh - 1
OpenScreen(dw, dh, dd, "")
#zw = 13
#zh = 8
#za = #zw * #zh
#zmax = #za - 1
r.D
b.D
t.D = 20.0
z = 0
lw = 2.0 * #PI * t
lh = lw
Global Dim x(#zw - 1, #zh - 1, 3, 1)
Global Dim y(#zw - 1, #zh - 1, 3, 1)
Global Dim aa.D(#zw - 1, #zh - 1)
Global Dim a.D(#zw - 1, #zh - 1)
Global Dim r.D(#zw - 1, #zh - 1)
diag12.D = Sqr(lw * lw + lh * lh) / 2.0
For h = 1 To #zh
        For w = 1 To #zw
                aa(w - 1, h - 1) = (Random(628) - 314) / 10000.0
                a(w - 1, h - 1) = (Random(628) - 314) / 100.0
                r(w - 1, h - 1) = 16 + Random(31)
                x(w - 1, h - 1, 0, 0) = (w - 1) * lw
                y(w - 1, h - 1, 0, 0) = (h - 1) * lh
                x(w - 1, h - 1, 1, 0) = (w - 1) * lw + (lw - 0)
                y(w - 1, h - 1, 1, 0) = (h - 1) * lh
                x(w - 1, h - 1, 2, 0) = (w - 1) * lw + (lw - 0)
                y(w - 1, h - 1, 2, 0) = (h - 1) * lh + (lh - 0)
                x(w - 1, h - 1, 3, 0) = (w - 1) * lw
                y(w - 1, h - 1, 3, 0) = (h - 1) * lh + (lh - 0)
        Next
Next
CreateSprite(z, lw, lh, #PB_Sprite_AlphaBlending)
If StartDrawing(SpriteOutput(z) )
        For y = 0 To lh - 1
                For x = 0 To lw - 1
                        r = diag12 * Sqr(Pow(x - (lw / 2.0), 2.0) + Pow(y - (lh / 2.0), 2.0) ) / 63.0
                        b = 127 + Cos(x / t) * Cos(y / t) * 127
                        If r > b
                                r = b
                        EndIf
                        c = RGB(r, 0, b)
                        Plot(x, y, c)
                Next
        Next       
        StopDrawing()       
EndIf

diag2.D = Sqr(dw * dw + dh * dh)
diag.D = diag2 / 2.0
a2.D = ATan2(dw, dh)
a1.D = 0.0 - a2
a3.D = #PI - a2
a4.D = #PI - a1
aa.D
aaa.D
vt.D = 0.5
cx = 0 - lw / 2
cy = 0 - lh / 2
Repeat
        Delay(1)
        ExamineKeyboard()
        ExamineMouse()
        an.D + 0.01
        For h = 1 To #zh - 1
                For w = 1 To #zw - 1
                        aa(w, h) + ((Random(628) - 314) / 100000)
                        a(w, h) + Sin(aa(w, h) ) * vt
                Next
        Next
        For h = 0 To #zh - 1
                For w = 0 To #zw - 1
                        x(w, h, 0, 1) = Cos(a(w, h) ) * r(w, h)
                        y(w, h, 0, 1) = Sin(a(w, h) ) * r(w, h)
                        If w < #zw - 1
                                x(w, h, 1, 1) = Cos(a(w + 1, h) ) * r(w + 1, h)
                                y(w, h, 1, 1) = Sin(a(w + 1, h) ) * r(w + 1, h)
                        EndIf
                        If h < #zh - 1
                                If w < #zw - 1
                                        x(w, h, 2, 1) = Cos(a(w + 1, h + 1) ) * r(w + 1, h + 1)
                                        y(w, h, 2, 1) = Sin(a(w + 1, h + 1) ) * r(w + 1, h + 1)
                                EndIf
                                x(w, h, 3, 1) = Cos(a(w, h + 1) ) * r(w, h + 1)
                                y(w, h, 3, 1) = Sin(a(w, h + 1) ) * r(w, h + 1)
                        EndIf
                Next
        Next
       
        For h = 0 To #zh - 1
                For w = 0 To #zw - 1
                        ;                        DisplaySprite(0, x(w, h, 0), y(w, h, 0) )
                        DisplaySprite(0, 0, 0)
                        TransformSprite(0, x(w, h, 0, 0) + x(w, h, 0, 1) + cx,
                                        y(w, h, 0, 0) + y(w, h, 0, 1) + cy,
                                        x(w, h, 1, 0) + x(w, h, 1, 1) + cx,
                                        y(w, h, 1, 0) + y(w, h, 1, 1) + cy,
                                        x(w, h, 2, 0) + x(w, h, 2, 1) + cx,
                                        y(w, h, 2, 0) + y(w, h, 2, 1) + cy,
                                        x(w, h, 3, 0) + x(w, h, 3, 1) + cx,
                                        y(w, h, 3, 0) + y(w, h, 3, 1) + cy)
                Next
        Next
        FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Sam 07/Juil/2018 6:46 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3842
J'aime bien 8)

_________________
http://xmas.free.fr/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.60 - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Sam 07/Juil/2018 9:47 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6545
Localisation: Isere
Ca nique les yeux mais c'est joli
Merci du partage 8)

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Sam 07/Juil/2018 9:59 
Hors ligne
Avatar de l’utilisateur

Inscription: Dim 09/Oct/2005 16:51
Messages: 8485
Petit effet plasma, j'aime :)

_________________
~~~~Règles du forum ~~~~
.: Ar-S :. Tour + portable W10 x64 PB 5.4x / 5.6x
LDV MULTIMEDIA : Dépannage informatique Aude (11) Isère (38)
RESIZER GOLD : Mon logiciel de redimensionnement par lot


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Dim 08/Juil/2018 0:58 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 08/Déc/2005 5:19
Messages: 924
Localisation: Guadeloupe
Hello,

On dirait des chenilles prisonnières sous une feuille de cellophane !

_________________
Elevé au MSX !


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Mar 10/Juil/2018 21:58 
Hors ligne

Inscription: Ven 29/Juin/2007 17:50
Messages: 3174
Salut les gars,

merci pour vos commentaires. Un petit coucou à Huitbit qu'on ne voit pas souvent mais qui doit être occupé à bloc.

En fait (Kcc), ça ne "nique" pas les yeux. C'est une illusion d'optique qui te fait croire que ça "nique" les yeux.

Cette illusion est dûe au cumul du flou, d'une image qui se répète et de la présence de cyan.

Le cerveau interprète la répétition par un soi-disant mauvais écart angulaire des yeux (le cerveau considère à tort que l'écart est fait pour la vision lointaine). Et le cerveau interprète le flou comme un mauvais état focal de la pupille : pareil le cerveau considère un focus en vision lointaine, parce qu'il considère le cyan comme le ciel, sans même que le mot "ciel" ne résonne dans la tête.

Alors qu'en réalité, rien n'est déréglé.

Résultat : le cerveau cherche constamment quelquechose entre l'écran et les yeux.


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Mer 11/Juil/2018 8:59 
Hors ligne
Avatar de l’utilisateur

Inscription: Sam 23/Sep/2006 18:32
Messages: 6545
Localisation: Isere
Et ben, même pas j'aurais cru que mon cerveau puisse penser tout ça..... en plus rien qu'en regardant une animation 8O
Il ferait mieux de savoir penser pour m'aider quand je le lui demande, plutôt que penser à des conneries, fausses de surcroit, alors même que je lui ai rien demandé :?
Merci de ton explication 8)

_________________
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Dim 12/Aoû/2018 19:20 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 14/Oct/2004 19:48
Messages: 1098
Je n'avais pas vu ce poste.
C'est vraiment très sympathique comme effet, proprement fait, Ollivier. 8)

_________________
Il y a deux méthodes pour écrire des programmes sans erreurs. Mais il n’y a que la troisième qui marche.
Version de PB : 5.45LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrillée
MessagePosté: Mar 14/Aoû/2018 1:32 
Hors ligne

Inscription: Ven 29/Juin/2007 17:50
Messages: 3174
Content que ça plaise. A la base, c'était sensé représenter le continuum espace-temps. Puis, comme ça m'a gonflé, et que je touche peu les ordis à mon grand regret, c'est resté prendre les toiles d'araignée.

J'en loope beaucoup aussi de tes dons. Il faudra que je me rattrape tôt ou tard à tester et commenter les codes ludiques et originaux !


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 4 invités


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye