Mes polygons
Publié : lun. 15/nov./2010 11:25
Vous la reconnaissez (allez, le premier qui trouve !) ???
http://xmas.free.fr/pb/rendu.zip
http://xmas.free.fr/pb/rendu.zip
Page 1 sur 4
Re: Mes polygons
Publié : lun. 15/nov./2010 12:10
La copine de Cobra ?
Re: Mes polygons
Publié : lun. 15/nov./2010 12:13
Armanoïde !!
Re: Mes polygons
Publié : lun. 15/nov./2010 12:27
BRAVO !!Cool Dji a écrit :Armanoïde !!
Re: Mes polygons
Publié : lun. 15/nov./2010 12:39
Superbe 
Re: Mes polygons
Publié : lun. 15/nov./2010 14:02
Tout ca avec des polygons ? Pas mal du tout 
Re: Mes polygons
Publié : lun. 15/nov./2010 20:15
reste plus qu'a l'animer
Re: Mes polygons
Publié : mar. 16/nov./2010 8:26
J'ai regardé les videos de another world. Animer sera facile MAIS mon probleme est que je dois simplifier les polygons. Dans another world, il n'y avait pratiquement que les contours. Donc, j'y travaille (mais apres avoir recu ma new CG)case a écrit :reste plus qu'a l'animer
Re: Mes polygons
Publié : mar. 16/nov./2010 12:03
En même temps another world c'était pas sur les machines d'aujourd'hui, tu doit pouvoir te permettre du plus "lourd"SPH a écrit :J'ai regardé les videos de another world. Animer sera facile MAIS mon probleme est que je dois simplifier les polygons. Dans another world, il n'y avait pratiquement que les contours. Donc, j'y travaille (mais apres avoir recu ma new CG)case a écrit :reste plus qu'a l'animer
Re: Mes polygons
Publié : jeu. 18/nov./2010 16:30
Re: Mes polygons
Publié : jeu. 18/nov./2010 17:12
ca rend tellement bien que ca plante d'entrée
Re: Mes polygons
Publié : jeu. 18/nov./2010 17:27
Excuse. Ca y est, j'ai tout reparé. ReDL lecase a écrit :ca rend tellement bien que ca plante d'entrée
Re: Mes polygons
Publié : jeu. 18/nov./2010 18:28
SPH a écrit :Excuse. Ca y est, j'ai tout reparé. ReDL le
hob bah oui ! quel beau prg
hum !
pour info lis ça :
Le NetBook représente plus de 10% des ventes de PC portables en France
ici :
http://www.cnetfrance.fr/news/le-netboo ... 382622.htm
La résolution de 1024X600 est un standard a tenir compte !!
Re: Mes polygons
Publié : jeu. 18/nov./2010 18:34
Code : Tout sélectionner
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Another earth - RENDU
; SPH(2010)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
InitSprite()
InitKeyboard()
InitMouse()
#dw=1024
#dh=768
#dc=32
If OpenScreen(#dw,#dh,#dc,"Another Earth")=0
MessageRequester("Erreur", "Screen Open ("+Str(#dw)+","+Str(#dh)+",32) : impossible à ouvrir", 0) : End
EndIf
chm$="1.poly" : del=2500 : spr=-1 : Gosub poly
chm$="2.poly" : del=70 : spr=1 : Gosub poly
chm$="3.poly" : del=70 : spr=1 : Gosub poly
chm$="4.poly" : del=70 : spr=1 : Gosub poly
chm$="5.poly" : del=70 : spr=1 : Gosub poly
chm$="6.poly" : del=70 : spr=1 : Gosub poly
chm$="7.poly" : del=70 : spr=1 : Gosub poly
chm$="8.poly" : del=70 : spr=1 : Gosub poly
chm$="9.poly" : del=70 : spr=1 : Gosub poly
chm$="10.poly" : del=70 : spr=1 : Gosub poly
chm$="11.poly" : del=70 : spr=1 : Gosub poly
chm$="12.poly" : del=70 : spr=1 : Gosub poly
chm$="13.poly" : del=70 : spr=1 : Gosub poly
chm$="14.poly" : del=70 : spr=1 : Gosub poly
chm$="15.poly" : del=70 : spr=1 : Gosub poly
chm$="16.poly" : del=70 : spr=1 : Gosub poly
chm$="17.poly" : del=1200 : spr=1: Gosub poly
chm$="18.poly" : del=70 : spr=1 : Gosub poly
Repeat
ExamineKeyboard()
Until KeyboardPushed(#PB_Key_Escape)
End
poly:
If spr=1
DisplaySprite(0,0,0)
EndIf
If OpenFile(0, chm$) ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
l=Lof(0)
If l<=0
Debug("Fichier vide")
End
EndIf
l/2
Dim bank.w(l)
For i=0 To l
bank(i)=ReadWord(0)
Next
CloseFile(0)
EndIf
temps = ElapsedMilliseconds()
; For i=0 To l
; Debug bank(i)
; Next
; For i=0 To ici_bank+4
; Debug bank(i)
; Next
; End
la=1
For i=1 To bank(0)
u=bank(la)
; Dim ps2.Point(nb-1) ; Array of 5 POINT structures
la+1
If bank(la)<>-1
Debug "bank<>-1":End
EndIf
la+1
rvb=RGB(bank(la),bank(la+1),bank(la+2))
la+3
Dim ps2.Point(u) ; Array of 5 POINT structures
For p=0 To u
ps2(p)\x=bank(la):la+1
ps2(p)\y=bank(la):la+1
Next p
hDC=StartDrawing(ScreenOutput())
Box(0,0,0,0,rvb) ; Would be nice to have a Cls() facility !!!
SetWindowOrgEx_(hDC,00,00,#Null) ; Move origin downwards
Polygon_(hDC,@ps2(0),u+1)
StopDrawing()
Next
If spr=-1
GrabSprite(0,0,0,#dw,#dh)
EndIf
;temps = ElapsedMilliseconds()-temps
FlipBuffers()
Delay(del)
Return
Re: Mes polygons
Publié : jeu. 18/nov./2010 19:17
Comment t'as fait? T'as repompé les originaux?