Mes polygons

[SPH]

Vous la reconnaissez (allez, le premier qui trouve !) ???
http://xmas.free.fr/pb/rendu.zip

[Cool Dji]

La copine de Cobra ?

[Cool Dji]

Armanoïde !!

[SPH]

Armanoïde !!

BRAVO !!

[djes]

Superbe

[flaith]

Tout ca avec des polygons ? Pas mal du tout

[case]

reste plus qu'a l'animer

[SPH]

reste plus qu'a l'animer

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)

[Ar-S]

reste plus qu'a l'animer

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)

En même temps another world c'était pas sur les machines d'aujourd'hui, tu doit pouvoir te permettre du plus "lourd"

[SPH]

Attention, fais a l'arrache mais ca rend bien :
http://xmas.free.fr/pb/anotherworld.zip

[case]

ca rend tellement bien que ca plante d'entrée

[SPH]

ca rend tellement bien que ca plante d'entrée

Excuse. Ca y est, j'ai tout reparé. ReDL le

[Backup]

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 !!

[SPH]

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

[djes]

Comment t'as fait? T'as repompé les originaux?