# PureBasic

Forums PureBasic
 Nous sommes le Lun 25/Mar/2019 8:54

 Heures au format UTC + 1 heure

 Page 1 sur 1 [ 9 messages ]
 Imprimer le sujet Sujet précédent | Sujet suivant
Auteur Message
 Sujet du message: Boîte beurrée de Lustucru à perforation quadrilléePosté: Sam 07/Juil/2018 0:33

Inscription: Ven 29/Juin/2007 17:50
Messages: 3299
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

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Sam 07/Juil/2018 6:46

Inscription: Mer 09/Nov/2005 9:53
Messages: 3872
J'aime bien

_________________
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.70LTS - 32 bits

Haut

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Sam 07/Juil/2018 9:47

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

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

PureBasic Forum Officiel - Site PureBasic

Haut

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Sam 07/Juil/2018 9:59

Inscription: Dim 09/Oct/2005 16:51
Messages: 8613
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 & mes Logiciels PB
RESIZER GOLD : Mon logiciel de redimensionnement par lot 100% PB

Haut

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Dim 08/Juil/2018 0:58

Inscription: Jeu 08/Déc/2005 5:19
Messages: 934
Hello,

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

_________________
Elevé au MSX !

Haut

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Mar 10/Juil/2018 21:58

Inscription: Ven 29/Juin/2007 17:50
Messages: 3299
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

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Mer 11/Juil/2018 8:59

Inscription: Sam 23/Sep/2006 18:32
Messages: 6605
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
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

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

PureBasic Forum Officiel - Site PureBasic

Haut

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Dim 12/Aoû/2018 19:20

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

_________________
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

 Sujet du message: Re: Boîte beurrée de Lustucru à perforation quadrilléePosté: Mar 14/Aoû/2018 1:32

Inscription: Ven 29/Juin/2007 17:50
Messages: 3299
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

 Afficher les messages postés depuis: Tous1 jour7 jours2 semaines1 mois3 mois6 mois1 an Trier par AuteurDateSujet CroissantDécroissant
 Page 1 sur 1 [ 9 messages ]

 Heures au format UTC + 1 heure

#### Qui est en ligne

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

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

Rechercher:
 Aller à:  Sélectionner un forum ------------------ PureBasic    Informations et tutoriaux    Débutants    Jeux    Applications    Discussion générale    Trucs et astuces    Suggestions et améliorations    Rapports de bugs    Rapports de bugs (Archive) OS    Linux    MacOS X    Windows Divers    Annonces    ASM    3D SpiderBasic    Tutoriaux    Annonces, codes et discussion générale    Créations (Web, Android, iOS)