deux codes qui ne servent à rien.......... mais ...........

salut
w pour quitter

Code:: width 0,2000
color 0,0,0,255
full_space 0
  height 0,1000
dim x,y, a,z ,p
a=1/54
print a
  for p= 1 to 100
for z= 1 to 620
for a=1/52 to 6.50 step 0.1
x=tan(a)*z/2 +700
y=cos(a)*z +500
2d_circle x,y,3
' 2d_line x,y,x+15,y
' 2d_point x,y
if scancode = 87 then terminate
  next a
  next z
  2d_pen_color rnd(255),0,0
  color 0,rnd(255),0,0
  2d_fill_color rnd(255),rnd(255),rnd(255)

  next p

le second code

Code:: dim x%,y% ,res% ,x,y ,p
   top 0,0
   left 0,0
   full_space 0
   p= 32

   repeat

   2d_fill_color rnd(255),rnd(255),rnd(255)
font_color 0,255,0,0

   2d_pen_width 1

x% =mouse_x_position(0) :y%= mouse_y_position(0)
   x%=int(x%/p)*p
   y%=int(y%/p)*p

  for y=1 to p step 16
   for x =1 to p step 16
   2d_circle x%+x,y% +y ,8

   next x
   next Y

   until scancode =87

   print "refin "
   wait 100
   terminate

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

Très joli en tout cas... et ça peut donner des idées, l'exécution est très rapide.

Très joli. Du coup, je fais ma petite colorisation ...

Pour le programme 1

Code:: dim x,y, a,z ,p

width 0,2000 : full_space 0 : height 0,1000

a=1/54 : print a
for p= 1 to 100
color 0,rnd(125),0,0
for z= 1 to 620
' 2d_pen_color rnd(50)+int(z/4),int(z/3),int(z/3)
for a=6.5 to 1/52 step -0.2
2d_pen_color rnd(50)+int(z/4),int(z/5)-40*abs(a-3.25)+130,int(z/3)
x=tan(a)*z/2 + 700 : y=cos(a)*z +500
2d_line x,y,x+15,y
' 2d_point x,y
if scancode = 87 then terminate
next a
next z
next p

et pour le programme 2

Code:: dim x%,y% ,res% ,x,y ,p

full_space 0
p= 16

font_color 0,255,0,0 : 2d_pen_width 1

repeat

x% =mouse_x_position(0) :y%= mouse_y_position(0)
2d_fill_color int(x%/7),int(y%/5),int(x%/14)+int(y%/10)+rnd(50)
x%=int(x%/p)*p : y%=int(y%/p)*p

for y=1 to p step p/2
for x =1 to p step p/2
2d_circle x%+x,y% +y ,p/4
next x
next y

until scancode =87

wait 500 : terminate

pour la colorisation je préfère le premier !
le second est moins évident;Il est tire d'une des versions de mon programme de détourage
qu'il faudra que je publie un jour !

Je suis d'accord, pour le 2ème, je n'avais pas trop d'idée. Par contre, sur cette version pour changer la taille des cercles, il suffit de modifier la valeur de p, le reste se fait tout seul et je trouve ça plus beau avec un diamètre plus grand comme initialement 32 ou même 64.

Très beau !
Surtout le 1er avec le compilateur !

Remarque : je vois bien que Sergeauze est un gaucher ( le w pour sortir en dit long !) Laughing

"je vois bien que Sergeauze est un gaucher ( le w pour sortir en dit long !)"
Gaucher ou droitier j'ai jamais su ,je dirais plutôt ambidextre
Je tiens le marteau autant de la main droite que de la main gauche pour enfoncer un clou
Quand on me dit de tourner a gauche ou a droite :grosse confusion de ma part ! Embarassed

Si on me dit route ou caniveau là je réagis mieux Laughing

"Quand on me dit de tourner a gauche ou a droite :grosse confusion de ma part !" Embarassed

On dirait que tu parles en mon nom Laughing

J'éprouve la même confusion, l'espace d'une seconde, avant de réaliser de quel sens il s'agit.

Un test pour le compilateur

Code:: width 0,1800
height 0,900
dim x,y, a ,d ,f
a=1/54
print a
for a=1/52 to 100 step 0.001
f=f+0.0000001
d=d+f
x=sin(a)*d +800
if scancode= 87 then terminate
y=cos(a)*d +450
' 2d_circle x,y,3
2d_point x,y
  next a
a=0
d=0
  for a= -100 to -1/52 step 0.001
d=d+0.001
x=cos(a)*d +800
if scancode= 87 then terminate
y=sin(a)*d +550
' 2d_circle x,y,3
2d_point x,y
  next a

ça tourne à gauche puis à droite Rolling Eyes

Tiens ton code m'inspire une petite variation avec la colorisation.
En modifiant un peu les paramètres, on obtient d'autres effets assez sympa.
Entre autre si l'on veut faire des textures calculées. J'aime bien les dégradés.

Code:: dim x, y, a

width 0,1800 : height 0,900

for a=1 to 360 step 0.006
  x=sin(a)*a +800 : y=cos(a)*a +360
  2d_pen_color int(abs(x-800)/2),int(y/5),int((x+y)/11)
  2d_fill_color int(abs(x-800)/2),int(y/5),int((x+y)/11)
  if scancode= 87 then wait 500 : terminate
  2d_circle x,y,4
next a

Exemple:

Code:: dim x, y, a

width 0,1800 : height 0,900

for a=1 to 250 step 0.006
x=sin(a)*a +800 : y=cos(a)*a +360
2d_pen_color 250- int(a*0.7),int(y/5),int((x+y)/11)
2d_fill_color 250 - int(a*0.7),int(y/5),int((x+y)/11)
if scancode= 87 then wait 500 : terminate
2d_circle x,y,4
next a

mais on peut en faire pléthore...

Bon une dernière courbe par ce que j'aime bien

Code:: dim x, y, a,b

width 0,1800 : height 0,900

a=-1
for b=1 to 20 step 0.001
x=(cos(a*a+b*b)/(1+a*a+b*b) )* 1500 + 700
y=(sin(a*a+b*b)/(1+a*a+b*b) )* 1200 + 300
2d_pen_color 250 - a, y/4, abs(a-10*b)
2d_fill_color 250 - a, y/4, abs(a-10*b)
if scancode= 87 then wait 500 : terminate
2d_circle x,y,4
next b

wait 1000 : terminate

Parce qu'il y a quelqu'un (se reconnaitrait-il ?) qui aime bien, je mets mon grain de sel.
Qui sait ? ça pourrait rehausser la discussion !

Code:: dim x, y, a,b
full_space 0
a = -1
for b = 1 to 20 step 0.001
  x = (cos(a*a+b*b)/(1+a*a+b*b) )* 1500 + 700
  y = (sin(a*a+b*b)/(1+a*a+b*b) )* 1200 + 300
  2d_pen_color 150 - a, y/4, abs(a-10*b)
  2d_fill_color 250 - a, y/4, abs(a-10*b)
  2d_circle x,y,4 : 2d_circle 1000-x,y,4
next b
caption 0," !!! That's All folks !!!!"

salut
Bien vu !
Sin et cos ont des ressources insoupçonnées et inépuisables

C'est clair et comme ça fait du bien (enfin à moi en tout cas), je reprend la courbe de Papydall et je la mets dedans avec d'autres. Le nombre de possibilités sont énormes. Je n'ais pas remis la courbe du papillon etc que l'on a déjà publié, mais je n'ai pas résisté à réactualiser les cœurs dans ce post.

Code:: dim x, y, a,b,c, zoom

width 0,1800 : height 0,900 : zoom = 250

for c= 1 to 5
2d_clear
for a= 0 to 6.28 step 0.0005

if c=1 then b=sin(a) : x = 500 - b*b*b*zoom : b=cos(a) : y = 250 - (b - power(b,4))*(zoom*0.75)
if c=2 then x = cos(a): y = 400 - (sin(a)+sqr(abs(x)))*(zoom*0.75) : x = 500 - x*zoom
if c=3 or c=4 then x=a/5 : b=x*x : y =((1-b)*(1-b))*zoom*0.75 / 2 : x=x*zoom
if c=5 then b=-1 : x = (cos(a*a*5+b*b)/(1+a*a*5+b*b) )* 1500 + 700 : y = (sin(a*a*5+b*b)/(1+a*a*5+b*b) )* 1200 + 300

2d_pen_color 250 - a, y/4, abs(a-3.14)*80
2d_fill_color 250 - a, y/4, abs(a-3.14)*80
if scancode= 87 then wait 500 : terminate
2d_circle x,y,4

if c=3 then 2d_circle 628 - x,y,4 : 2d_circle x,85-y,4 : 2d_circle 628 - x,85 -y,4
if c=4
2d_circle 628 - x,y,4 : 2d_circle x,190-y,4 : 2d_circle a*50,95,4
2d_circle 628 - x,190 -y,4 : 2d_circle 628 - a*50,95,4
end_if
if c=5 then 2d_circle 1000-x,y,4
next a
next c

caption 0," !!! That's All folks !!!!"
wait 3000 : terminate

sergeauze a écrit:: Sin et cos ont des ressources insoupçonnées et inépuisables

Je crois que si on n’eut pas inventé le sinus, j’aurais inventé, moi-même, le cosinus pour pouvoir prendre la tangente ! Laughing

mdr

Pourtant tu n'es pas du genre à fuir, non ?

Sinon, j'ai modifié un peu mon programme précédent pour que l'affichage des courbes soit automatique et que l'on puisse rajouter les siennes facilement (enfin celles basées sur ce principe)

Heu !
Je voulais prendre la tangente comme repère et non comme point de fuite. Rolling Eyes

Une fois de plus, tu glisses sur les mots...

Comme c'est trop calme, je je rajoute quelques courbes en plus. J'en rajouterais jusqu'à ce que vous vous réveillez !! (En attendant bonne nuit à tous)

Code:: dim x, y, a,b,c, zoom

width 0,1800 : height 0,900 : zoom = 250

for c= 7 to 8
2d_clear
for a= 0 to 6.28 step 0.0005

if c=1 then b=sin(a) : x = 500 - b*b*b*zoom : b=cos(a) : y = 250 - (b - power(b,4))*(zoom*0.75)
if c=2 then x = cos(a): y = 400 - (sin(a)+sqr(abs(x)))*(zoom*0.75) : x = 500 - x*zoom
if c=3 or c=4 then x=a/5 : b=x*x : y =((1-b)*(1-b))*zoom*0.75 / 2 : x=x*zoom
if c=5 then b=-1 : x = (cos(a*a*5+b*b)/(1+a*a*5+b*b) )* 1500 + 700 : y = (sin(a*a*5+b*b)/(1+a*a*5+b*b) )* 1200 + 300
if c=6 then x = zoom*power(cos(a),3) + 500 : y = zoom*power(sin(a),3)+ 250
if c = 7
' b = 1 / sin((a-3.14116)*SQR(2))
b = 1 / tan((a-3.14116)*SQR(2))

x = b * cos(a*500) + 500 : y = b * sin(a*500)/ 2 + 300
if y > 1020
y= 1020
else
if y < 0 then y = 0
end_if
end_if
if c=8
x= sin(5*a)*zoom/3 + 500 : y = -3 * sin(SQR(2)*a*5)*zoom/3 + 350
end_if
2d_pen_color 250 - a, y/4, abs(a-3.14)*80
2d_fill_color 250 - a, y/4, abs(a-3.14)*80
if scancode= 87 then wait 500 : terminate
2d_circle x,y,4

if c=3 then 2d_circle 628 - x,y,4 : 2d_circle x,85-y,4 : 2d_circle 628 - x,85 -y,4
if c=4
2d_circle 628 - x,y,4 : 2d_circle x,190-y,4 : 2d_circle a*50,95,4
2d_circle 628 - x,190 -y,4 : 2d_circle 628 - a*50,95,4
end_if
if c=5 then 2d_circle 1000-x,y,4
if c=7 then 2d_circle x,600 - y,4 : 2d_circle 1000 - x,600 - y,4 : 2d_circle 1000 - x,y,4
next a
next c

caption 0," !!! That's All folks !!!!"
wait 3000 : terminate

il eut fallu que le forum fût calme pour que tu ajoutasses quelques courbes en plus !
Tu fis ce qu’il eût fallu faire ! king

Bravo!

A tester avec le compilateur.
cela ne veut pas dire que l'interpréteur ne fait pas le boulot!

Code:: dim x,y,r,t,pi,p,a
pi = acos(-1) : p = pi/6080 :' modifier le pas p = pi/720 par exemple
a = 2 : ' Essayer d'autres valeurs de a : a = 2/3 : a = 7/3 : a = 29/11 : a = 29/17
width 0,1000 : height 0,800 : color 0,0,0,0
for t = 0 to 2*pi step p
   r = power(exp(1), cos(t)) - a*cos(4*t) + sin(t/power(12,5))
   x = 250+100*r*cos(t) : y = 400+100*r*sin(t)
   2d_pen_color rnd(255),rnd(255),0 : 2d_fill_color rnd(255),rnd(255),rnd(255)
   2d_circle x,y,25 : 2d_circle 900-x,y,25 : ' Modifier le rayon entre 5 et 50 par exemple
next t

Jolie

Salut
A travers tous les exemples qui ont été postés on voit bien l’efficacité
du COMPILATEUR ;c'est comme si nos codes prenaient le TGV !
Ça vaut la peine d'attendre que jack le mette au point !

C'est certain.

Oui, comme si on volait à Mach 1 !

» Rien d’intéressant mais ça tourne !
» RIEN A VOIR AVEC PANORAMIC MAIS Ils arrivent !
» Une astuce qui ne sert à rien !
» Un arbre, un chapeau et rien d'autre.
» Si ceci n’est pas un bug, alors je ne comprends plus rien !