PureBasic

garzul · Message par **garzul** » lun. 30/août/2004 0:45

Je sais lol ^^ c'est un truc proguer vite fait pour voir des effet et tt sa . C'est du oldschool ^^

Backup · Message par **Backup** » lun. 30/août/2004 10:08

tiens psycode ; j'ai repris ton code et je me suis ammusé avec
je trouve qu'avec des cercles ça va plus vite encore et c'est cool !
merci pour cette base c'est tres fort en fait !

Code : Tout sélectionner

 #scrw = 1024
#scrh = 768
#scrd = 32
;-------- Init all needed Stuff --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
    MessageBox_ (0,"Can't open DirectX 7 or later", "0", #MB_ICONINFORMATION|#MB_OK)
    End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"0") = 0
    MessageBox_ (0,"Could not open  screen", "0", #MB_ICONINFORMATION|#MB_OK)
    End                                                                                     
EndIf
CreateSprite(0,#scrw,#scrh)
Repeat
    DisplaySprite(0,0,0)
    x = Random (400) : y = Random (300)
    x + Random (300) : y + Random (200)
    x = x + 50 : y = y + 50
    pos=1
    StartDrawing(SpriteOutput(0))
   ;Rouge_Final = (Rouge_Couleur1 * Degradé + Rouge_Couleur2 * (100 - Degradé)) / 100
    ;zz=Random(255>>2)
    DrawingMode(4)
    zz=(10 * 10+ 255*2*(100 - 1)) / 100 
    For u= -10 To 400 Step 10
        For i=-10 To 300 Step 10
            z=Point (x + i,y + u)
            If z>=0 
                ;Plot (x + i, y + u, z + zz)
                Circle(x+i,y+u,10,z+zz)
            EndIf
        Next
    Next
    StopDrawing()
    FlipBuffers()
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

avec des box ça fait limite plasma !!

Code : Tout sélectionner

 #scrw = 1024
#scrh = 768
#scrd = 32
;-------- Init all needed Stuff --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
    MessageBox_ (0,"Can't open DirectX 7 or later", "0", #MB_ICONINFORMATION|#MB_OK)
    End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"0") = 0
    MessageBox_ (0,"Could not open  screen", "0", #MB_ICONINFORMATION|#MB_OK)
    End                                                                                     
EndIf
CreateSprite(0,#scrw,#scrh)
Repeat
    DisplaySprite(0,0,0)
    x = Random (400) : y = Random (300)
    x + Random (300) : y + Random (200)
    x = x + 50 : y = y + 50
    pos=1
    StartDrawing(SpriteOutput(0))
    ;Rouge_Final = (Rouge_Couleur1 * Degradé + Rouge_Couleur2 * (100 - Degradé)) / 100
    ;zz=Random(255>>2)
    DrawingMode(1)
    zz=(10 * 10+ 255*2*(100 - 1)) / 100 
    For u= -10 To 400 Step 10
        For i=-10 To 300 Step 10
            z=Point (x + i,y + u)
            If z>=0 
                ;Plot (x + i, y + u, z + zz)
                ;Circle(x+i,y+u,10,z+zz)
                Box(x+i,y+u,10,10,z+zz)
            EndIf
        Next
    Next
    StopDrawing()
    FlipBuffers()
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

et combiner les forme c'est sympath aussi !!

Code : Tout sélectionner

 #scrw = 1024
#scrh = 768
#scrd = 32
;-------- Init all needed Stuff --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
    MessageBox_ (0,"Can't open DirectX 7 or later", "0", #MB_ICONINFORMATION|#MB_OK)
    End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"0") = 0
    MessageBox_ (0,"Could not open  screen", "0", #MB_ICONINFORMATION|#MB_OK)
    End                                                                                     
EndIf
CreateSprite(0,#scrw,#scrh)
Repeat
    DisplaySprite(0,0,0)
    x = Random (400) : y = Random (300)
    x + Random (300) : y + Random (200)
    x = x + 50 : y = y + 50
    pos=1
    StartDrawing(SpriteOutput(0))
    ;Rouge_Final = (Rouge_Couleur1 * Degradé + Rouge_Couleur2 * (100 - Degradé)) / 100
    ;zz=Random(255>>2)
   
    zz=(10 * 10+ 255*2*(100 - 1)) / 100 
    For u= -10 To 400 Step 10
        For i=-10 To 300 Step 10
            z=Point (x + i,y + u)
            If z>=0 
                ;Plot (x + i, y + u, z + zz)
                 DrawingMode(0)
                Circle(x+i,y+u,5,z+zz)
                 DrawingMode(4)
                Box(x+i,y+u,5,5,z+zz)
            EndIf
        Next
    Next
    StopDrawing()
    FlipBuffers()
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

Psycode · Message par **Psycode** » lun. 30/août/2004 10:15

Backup · Message par **Backup** » lun. 30/août/2004 10:28

tien regarde j'ai tressé un drapeau pour ton podium !!

Code : Tout sélectionner

 #scrw = 1024
#scrh = 768
#scrd = 32


Global Angle,amplitude
amplitude=10
Texte.s="PSYCODE THE BEST"
;-------- Init all needed Stuff --------
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
    MessageBox_ (0,"Can't open DirectX 7 or later", "0", #MB_ICONINFORMATION|#MB_OK)
    End
EndIf
If OpenScreen(#scrw,#scrh,#scrd,"0") = 0
    MessageBox_ (0,"Could not open  screen", "0", #MB_ICONINFORMATION|#MB_OK)
    End                                                                                     
EndIf
CreateImage(100, 1024, 100)
StartDrawing( ImageOutput())
FrontColor($0,$FF,$FF)
BackColor(0, 0, 0)


DrawingMode(1)
Locate(0, 0)
DrawText(Texte.s)
StopDrawing()

For t=0 To 100
    GrabImage(100, t, 0, t, 1024,1)
Next t





CreateSprite(0,#scrw,#scrh)
Repeat
    DisplaySprite(0,0,0)
    x = Random (400) : y = Random (300)
    x + Random (300) : y + Random (200)
    x = x + 50 : y = y + 50
    pos=1
    StartDrawing(SpriteOutput(0))
    ;Rouge_Final = (Rouge_Couleur1 * Degradé + Rouge_Couleur2 * (100 - Degradé)) / 100
    ;zz=Random(255>>2)
    
    zz=(10 * 10+ 255*2*(100 - 1)) / 100
    For u= -10 To 400 Step 10
        For i=-10 To 300 Step 10
            z=Point (x + i,y + u)
            If z>=0
                ;Plot (x + i, y + u, z + zz)
                DrawingMode(0)
                Circle(x+i,y+u,5,z+zz)
                DrawingMode(4)
                Box(x+i,y+u,5,5,z+zz)
            EndIf
        Next
    Next
     StopDrawing()
    
    For y= 0 To 100
        StartDrawing(ScreenOutput())  
        
        Angle+1 :If Angle=360*10: Angle=0 :EndIf
        x=1+(Sin(Angle*2*3.1415926/50)* amplitude)
        DrawImage( UseImage(y), x+40, y+20*x/25+50,1024,1)
        StopDrawing()
        dep+1 :If dep>1024 :dep=-100:EndIf
        
    Next y
   
    FlipBuffers()
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)

Psycode · Message par **Psycode** » lun. 30/août/2004 11:10

Backup · Message par **Backup** » lun. 30/août/2004 11:36

j'ai reediter le listing , c'est bon maintenant !!

c'est de la faute a japbe car lorsque tu compille sous cette editeur
en tappant F5 il fera marcher ton listing mem si il est bouréé de faute et d'oublis !!!

F6 permet de lancer en mode debugger et la il detecte toute les erreurs !!
j'ai tendance a utiliser plus le F5 que le F6 !!

pour te repondre , c'est DRI qui ta souhaité bonne chance sur les triangles !!

Psycode · Message par **Psycode** » lun. 30/août/2004 12:38

Oliv · Message par **Oliv** » mar. 31/août/2004 10:20

c'est bien amusant tout ça

...