dessine des rectangles

Un très vieux programme Basica ou de cette époque

Code:: ' un très vieux programme
dim x,boxx,boxy,colora,colorb,size, size2
label dobox

top 0,0
left 0,0
height 0,400
width 0,640

for x=0 to 500
boxx=rnd(640)
boxy=rnd(400)

size=rnd(150)
size2=rnd(150)
gosub dobox
next x

wait 2000
terminate
end

dobox:
2d_fill_color rnd(255),rnd(255),rnd(255)
2d_pen_color rnd(255),rnd(255),rnd(255)
2d_rectangle boxx,boxy,size,size2
return

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Ça va beaucoup trop vite ! tu devrais ajouter un petit wait (par exemple 50) avant le next x.

Invité

Moi j'ai mis un 'wait 1' après 2d_rectangle boxx,boxy,size,size2 à la ligne 31

C'est un très vieux programme basic ou basica . Transposer d'un langage à un autre me permet d'apprendre Panoramic.
Merci de votre attention.