Hello,

Voyez se que l'on peut faire avec holly ;-)

Vos FPS?

http://jeannoel.roueste.free.fr/Amiga/outrun6800x0.exe
http://jeannoel.roueste.free.fr/Amiga/outrunAOS4.exe
http://jeannoel.roueste.free.fr/Amiga/outrunMorphos.exe
http://jeannoel.roueste.free.fr/Amiga/outrunWarpos.exe

Attention, la version 6800x0 nécessite OBLIGATOIREMENT une carte GFX.

Edit: J'avais oublié le code ;-)


@DISPLAY {width=640, height=480}

BeginDoubleBuffer

Dim ZMap[200]

;Initialize ZMap
For A = 1 To 200
ZMap[A] = 1/ (A - 240)
Next

; Normalize ZMap so the Line with the player on it is
;scale=1 (Or would be
; If we had a player sprite :))
Local b = 1 / ZMap[8]
Local b = b * 100 ;in percents because QBasic's MOD is lame

For Local A = 1 To 200
    ZMap[A] = ZMap[A] * b
Next

; Draw the road
TexOffset = 100
SegY = 200

CreateBrush(1,320,1,#GRAY)
SelectBrush(1)
Line(0,0,20,0,#WHITE)
Line(300,0,320,0,#WHITE)
EndSelect

CreateBrush(2,320,1,#GRAY)
SelectBrush(2)
Line(0,0,20,0,#RED)
Line(300,0,320,0,#RED)
Line(158,0,162,0,#WHITE)
EndSelect

SetFillStyle(#FILLGRADIENT, #LINEAR, $002266, $00AAFF)

CreateBrush(3,640,280,#BLACK)
SelectBrush(3)
Box(0,0,640,280)
EndSelect

Repeat
    StartTimer(1)
    If IsKeyDown("UP")
        scrollspeed=Min(scrollspeed+0.05,20)
    Else
        scrollspeed=Max(scrollspeed-0.2,0)
    EndIf


    ; Set up the frame
    Local X = 320
    Local HalfWidth = 220
    Local ScreenLine = 480
    Local MX=(MouseX()-512)/512
    
    For Local A = 0 To 200
        X = X + MX
        Local Calcule=(ZMap[A] + TexOffset) % 100 
        If Calcule> 50
            GrassColor = #GREEN
            RoadColor = #GRAY
            br=1
        Else
            GrassColor = #OLIVE
            RoadColor = #SILVER
            br=2
        EndIf

    Local sx=((X + HalfWidth)-(X - HalfWidth))/320

    DisplayBrush (br,X - HalfWidth, ScreenLine,{scalex=sx,smoothscale=False})

    Line (0, ScreenLine, X - HalfWidth, ScreenLine,GrassColor)
    Line (X + HalfWidth, ScreenLine, 639,ScreenLine, GrassColor)
    HalfWidth = HalfWidth - 1
    ScreenLine = ScreenLine - 1

    
    
    Next

    ; Wrap positions (fractional):

    TexOffset=Wrap(TexOffset + ScrollSpeed, 0, 100)

    DisplayBrush (3,0,0)
        
    ; On récupère le temps du chrono    
    Local Temps=GetTimer(1)
    ; On affiche la vitesse en FPS
    TextOut(0,0,Round((1/Temps)*1000))
    TextOut(30,0,"Images par seconde")
    TextOut(#CENTER,20,"APPUYER sur la touche Fleche HAUT pour accélérer")
    TextOut(#CENTER,50,"--------------------------------------")
    TextOut(#CENTER,60,"- Programme original de Lazar Zoltan -")
    TextOut(#CENTER,70,"-   Code source original en QBasic   -")
    TextOut(#CENTER,80,"-  Modifié & optimiser par Artblink  -")
    TextOut(#CENTER,90,"--------------------------------------")

    ; On remet le chronomètre à zéro
    ResetTimer(1)

    Flip
    Cls
Forever 



Message édité par : artblink / 27-02-2011 17:06

Il faudrait que tu dises ce que fait le programme et ce qu'on doit faire pour te faire un retour !

En haut, à gauche, un nombre qui varie entre 12 et 14 :#

Faut appuyer sur la flèche HAUT de ton clavier, et sa avance ;-)

Par contre 13 FPS de moyenne... hum... bof bof, sur 440 à 800Mhz en plus.

22 FPS sur Sam460

22-23 sur mon A1XE

ouauuuuuuuu ça plante directe

@sinisrus: t'a koi comme config? sa affiche une erreur?

oups j'avai pas fini le download :-) 30 fps env μaone 800 mhz

34 à 37 fps sur ma machine.

Cool

Maintenant la version calcule pure...

http://jeannoel.roueste.free.fr/Amiga/roadA1AOS4.exe

Idem, une différence avec l'ancienne version? en FPS

Merci