Pure Punch

Backup · Message par **Backup** » dim. 24/août/2008 22:42

djes a écrit :Très sympa le sinusscroll

c'est une procedure a OLIV
mais je me la suis adapter en console

djes · Message par **djes** » mer. 27/août/2008 9:50

Des punchs sympas sur le forum anglais : http://www.purebasic.fr/english/viewtopic.php?t=33883

venom · Message par **venom** » mer. 27/août/2008 17:07

c'est bluffant les choses que vous faites en si peut de ligne

.
c'est sa le but du "punch" ?

@++

Backup · Message par **Backup** » mer. 27/août/2008 17:24

venom a écrit :c'est bluffant les choses que vous faites en si peut de ligne .
c'est sa le but du "punch" ?

@++

oui !! un maximum, dans le minimum !!

venom · Message par **venom** » mer. 27/août/2008 18:05

oui !! un maximum, dans le minimum !!

c'est un exercice intéressant mais bon je ne sais pas si j'oserai m'y pencher

@++

djes · Message par **djes** » mer. 27/août/2008 18:32

venom a écrit :
oui !! un maximum, dans le minimum !!
c'est un exercice intéressant mais bon je ne sais pas si j'oserai m'y pencher
@++

Pourquoi pas? Le but n'est pas forcément d'épater la galerie, tu peux faire quelque chose d'utile, ou d'étonnant, ou simplement réussir à condenser quelque chose en très peu d'espace! Il n'y a que l'embarras du choix

gildev · Message par **gildev** » mer. 27/août/2008 22:54

Vous me donnez envie. Ca me rappelle mon époque démo sur Amiga. Limite j'ai une larme.

De rage j'en fais un demain soir.

gildev · Message par **gildev** » jeu. 28/août/2008 16:47

Hé hé hé! Je me lance:

Code : Tout sélectionner

InitSprite():InitKeyboard():OpenScreen(640,480,32,"PB"):For i=0 To 7:CreateSprite(i,1,1):StartDrawing(SpriteOutput(i)):Plot(0,0,RGB((i+1)*24+31,(i+1)*24+31,(i+1)*24+31)):StopDrawing():Next i:CreateSprite(8,16,16):StartDrawing(SpriteOutput(8))
Box(0,0,16,16,RGB(127,127,63)):LineXY(0,0,14,0,RGB(200,200,100)):LineXY(0,1,13,1,RGB(200,200,100)):LineXY(0,0,0,14,RGB(200,200,100)):LineXY(1,0,1,13,RGB(200,200,100)):LineXY(1,15,15,15,RGB(63,63,31)):LineXY(2,14,14,14,RGB(63,63,31))
LineXY(15,1,15,15,RGB(63,63,31)):LineXY(14,2,14,15,RGB(63,63,31)):StopDrawing():Dim x.w(400):Dim y.w(400):Dim z.w(400):For i=1 To 400:x(i)=Random(639):y(i)=Random(479):z(i)=Random(7)+1:Next i:c.f=0.0174532925:Repeat:ClearScreen(0)
ExamineKeyboard():StartDrawing(ScreenOutput()):For i=0 To 97:Box(0,i*5,640,5,i*65536):Next i:StopDrawing():For i=1 To 400:DisplaySprite(z(i)-1,x(i),y(i)):If x(i)<640:x(i)=x(i)+z(i):Else:x(i)=0:y(i)=Random(479):EndIf:Next i:b=b+2:If b>=180:b=0
EndIf:Restore D:For k=0 To 3:For j=0 To 4:For i=0 To 3:Read a:If a=1:DisplaySprite(8,160+(i+5*k)*16,300+j*16+100*Sin((b+180+i)*c.f)):EndIf:Next i:Next j:Next k:FlipBuffers():Until KeyboardPushed(#PB_Key_Escape):End
DataSection:D:Data.l 1,1,1,0,1,0,0,1,1,1,1,0,1,0,0,0,1,0,0,0,1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,0,1,1,0,1,1,1,0,1,0,0,1,1,1,1,0,1,0,0,1,1,0,0,1,1,1,1,1,1,0,0,0,1,1,1,0,1,0,0,0,1,1,1,1:EndDataSection

C'est vrai que sur le forum anglais ils assurent, il faut leur montrer qu'on peut aussi assurer.

EDIT: J'ai réduit le code à 6 lignes.

Ar-S · Message par **Ar-S** » jeu. 28/août/2008 17:43

Excellentissime Gildev

Backup · Message par **Backup** » jeu. 28/août/2008 18:13

oui !! superbe !!

djes · Message par **djes** » jeu. 28/août/2008 20:00

Dobro a écrit :oui !! superbe !!

+1

venom · Message par **venom** » jeu. 28/août/2008 20:26

clairement que sa assure en 15 lignes

vous inquiétez pas je guette les façons de faire

@++

gildev · Message par **gildev** » jeu. 28/août/2008 21:32

Merci pour les compliments, c'est grâce à vous, vous m'avez donné envie.

Je cherche à en faire un autre.

Frenchy Pilou · Message par **Frenchy Pilou** » jeu. 28/août/2008 21:32

Démo maker dans l'âme!

gildev · Message par **gildev** » jeu. 28/août/2008 21:38

Ben c'est pas faux, j'ai été un PETIT démomaker il y a 15 ans.

On s'éclatait sur nos Amiga 500.