Texte et CanvasGadget

[Kwai chang caine]

Remplace :

Box((x-1)*w, (y-1)*h, w,h,IBM_SCREEN(x,y))

par :

PosX.f = (x-1)*w
PosY.f = (y-1)*h
Box(PosX, PosY, w,h,IBM_SCREEN(x,y))

Baaaah c'est fait

Code : Tout sélectionner

Procedure RenderVirtualScreen(Output, OutputWidth, OutputHeight)
  w.f = OutputWidth  / 80
  h.f = OutputHeight / 24
 
  StartDrawing(Output)
    For y = 1 To 24
     For x = 1 To 80
        PosX.f = (x-1)*w
        PosY.f = (y-1)*h
        Box(PosX, PosY, w,h,IBM_SCREEN(x,y))
      Next
    Next
  StopDrawing()
EndProcedure

[Kwai chang caine]

@DOBRO
Ah oui cette fois c'est cool pour la vitesse, j'avais pensé à des boucles qui étaient un peu trop envahissante, mais pas aux delais

tien essaye ça : tu change la taille ligne 54

Trop cool t'as pensé à la taille
J'ai fait les essais, ça marche bien jusqu’à la taille 16
A partir de 17 ..ça commence à merdoyer...mais c’est déjà un super début pour moi
Merci beaucoup