Morphing

Code:: rem ============================================================================
rem Morphing
rem ============================================================================
' Variables globales
dim tx(10,6), ty(10,6)
dim x(6), y(6), ux(6), uy(6), dx(6), dy(6)
dim n,k,i,j,pas
' ------------------------------------------------------------------------------
' LABEL
label go
' ------------------------------------------------------------------------------
' tx()
data 30,70,70,70,30,30,30
data 30,50,50,50,50,50,50
data 30,70,70,30,30,70,70
data 30,70,70,30,70,70,30
data 30,60,60,60,60,70,30
data 70,30,30,70,70,30,70
data 70,30,30,70,70,30,30
data 30,70,60,50,60,40,80
data 30,70,50,70,30,50,30
data 70,30,30,70,70,70,30
data 30,70,70,70,30,30,30
' ty()
data 80,80,50,20,20,50,80
data 50,80,50,20,20,50,80
data 80,80,50,50,20,20,20
data 80,80,50,50,50,20,20
data 40,80,40,20,40,40,40
data 80,80,50,50,20,20,20
data 80,80,50,50,20,20,50
data 80,80,50,20,50,50,50
data 80,80,50,20,20,50,80
data 50,50,80,80,50,20,20
data 80,80,50,20,20,50,80
' ------------------------------------------------------------------------------
' Initialisations
for n = 0 to 10
   for j = 0 to 6 : read tx(n,j) : next j
next n
' ------------------------------------------------------------------------------
for n = 0 to 10
   for j = 0 to 6 : read ty(n,j): next j
next n
' ------------------------------------------------------------------------------
n = 0 : k = 0 : pas = 20 : j = 0
picture 10 : top 10,100 : left 10,150 : width 10,200 : height 10,200
color 10,0,0,0 : 2d_target_is 10 : 2d_pen_width 10 : 2d_pen_color 255,0,0
Caption 0,"Morphing ..."
timer 20 : timer_interval 20,60 : ' <--- Adapter cette valeur
on_timer 20,go
end
rem ============================================================================
Go:
  Trace()
return
rem ============================================================================
SUB Trace()
   color 10,0,0,0
   if k = n
   for i = 0 to 6
   x(i) = tx(n,i) : y(i) = ty(n,i)
   ux(i) = tx(n,i) : uy(i) = ty(n,i)
   next i
   for i = 0 to 6
   dx(i) = (tx(n+1,i) - tx(n,i)) / pas
   dy(i) = (ty(n+1,i) - ty(n,i)) / pas
   next i
   k = k + 1 : j = 0
   end_if
   for i = 0 to 6
   ux(i) = x(i) + int(dx(i)*j)
   uy(i) = y(i) + int(dy(i)*j)
   next i
   for i = 0 to 5
   2d_line 2*ux(i),200-2*uy(i),2*ux(i+1),200-2*uy(i+1)
   next i
   j = j + 1
   if j = pas+1 then n = n+1
   if n = 10 then n = 0 : k = 0 : j = 0
END_SUB
rem ============================================================================

Bonjour à tous,

@Papydall,

On se demande, où tu vas chercher des idées comme celle-ci Very Happy

Bravo !
A+

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

J'opine ! bravo papydall !
ça donne l'idée d'une pendule numérique très originale !

Et en 82 lignes seulement, en plus.
cheers

Hello everybody !
Merci les amis pour vos réactions.
En toute sincérité je n’invente rien, mais je fais de l’adaptation.
J’ai vu ce truc ici.
J’ai analysé son code html et j’ai tenté de le panoramiquer.
Voyant le résultat (satisfaisant), j’ai posté mon code.
Voilà, c’est tout.
Maintenant si ça donne d’autres idées à certains, le bal est ouvert.
A vos claviers !

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

Je ne suis pas allé voir l'original, mais c'est une belle adaptation en tout cas !

Ça aurait été bien de paramétrer les dimensions, positions, etc. pour faire
des fantaisies, mais bon... Smile

Pas mal ! Ça peut donner des idées...

Merci pour le partage Papydall. Wink

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

Pardon papydall, ce qui suit est la copie fidèle de ton code, sauf que j'ai remplacé les constantes des DATAs par des variables.
Sachant que certaines variables doivent dépendre les unes des autres;
Avec l'arrière-pensée d'en modifier certaines pour faire varier par exemple les dimensions de l'image, etc.
Mais ce n'est pas évident du tout sans savoir a priori à quoi elles correspondent...

Code:: rem ============================================================================
rem Morphing
rem ============================================================================
' Variables globales
dim tx(10,6), ty(10,6)
dim x(6), y(6), ux(6), uy(6), dx(6), dy(6)
dim n,k,i,j,pas
DIM vx1,vx2,vx3,vx4,vx5,vx6,vy1,vy2,vy3,vy4
LABEL go
' tx()
vx1 = 30: vx2 = 50: vx3 = 60: vx4 = 70: vx5 = 40: vx6 = 80
data vx1,vx4,vx4,vx4,vx1,vx1,vx1
data vx1,vx2,vx2,vx2,vx2,vx2,vx2
data vx1,vx4,vx4,vx1,vx1,vx4,vx4
data vx1,vx4,vx4,vx1,vx4,vx4,vx1
data vx1,vx3,vx3,vx3,vx3,vx4,vx1
data vx4,vx1,vx1,vx4,vx4,vx1,vx4
data vx4,vx1,vx1,vx4,vx4,vx1,vx1
data vx1,vx4,vx3,vx2,vx3,vx5,vx6
data vx1,vx4,vx2,vx4,vx1,vx2,vx1
data vx4,vx1,vx1,vx4,vx4,vx4,vx1
data vx1,vx4,vx4,vx4,vx1,vx1,vx1
' ty()
vy1 = 20: vy2 = 40: vy3 = 50: vy4 = 80
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
data vy3,vy4,vy3,vy1,vy1,vy3,vy4
data vy4,vy4,vy3,vy3,vy1,vy1,vy1
data vy4,vy4,vy3,vy3,vy3,vy1,vy1
data vy2,vy4,vy2,vy1,vy2,vy2,vy2
data vy4,vy4,vy3,vy3,vy1,vy1,vy1
data vy4,vy4,vy3,vy3,vy1,vy1,vy3
data vy4,vy4,vy3,vy1,vy3,vy3,vy3
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
data vy3,vy3,vy4,vy4,vy3,vy1,vy1
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
' ------------------------------------------------------------------------------
' Initialisations
for n = 0 to 10
   for j = 0 to 6 : read tx(n,j) : next j
next n
' ------------------------------------------------------------------------------
for n = 0 to 10
   for j = 0 to 6 : read ty(n,j): next j
next n
' ------------------------------------------------------------------------------
n = 0 : k = 0 : pas = 20 : j = 0
picture 10 : top 10,100 : left 10,150 : width 10,200 : height 10,200
color 10,0,0,0 : 2d_target_is 10 : 2d_pen_width 10 : 2d_pen_color 255,0,0
Caption 0,"Morphing ..."
timer 20 : timer_interval 20,60 : ' <--- Adapter cette valeur
on_timer 20,go
end
rem ============================================================================
Go:
  Trace()
return
rem ============================================================================
SUB Trace()
   color 10,0,0,0
   if k = n
   for i = 0 to 6
   x(i) = tx(n,i) : y(i) = ty(n,i)
   ux(i) = tx(n,i) : uy(i) = ty(n,i)
   next i
   for i = 0 to 6
   dx(i) = (tx(n+1,i) - tx(n,i)) / pas
   dy(i) = (ty(n+1,i) - ty(n,i)) / pas
   next i
   k = k + 1 : j = 0
   end_if
   for i = 0 to 6
   ux(i) = x(i) + int(dx(i)*j)
   uy(i) = y(i) + int(dy(i)*j)
   next i
   for i = 0 to 5
   2d_line 2*ux(i),200-2*uy(i),2*ux(i+1),200-2*uy(i+1)
   next i
   j = j + 1
   if j = pas+1 then n = n+1
   if n = 10 then n = 0 : k = 0 : j = 0
END_SUB
rem ============================================================================

Ça serait bien pour faire un chronomètre, ou un compte à rebours, ou une pendule, ou plein de choses...

Tu as bien fais JL35.
Je me suis donné une poignée de minutes pour comprendre le comment du pourquoi.
J’ai modifié le code pour pouvoir modifier la taille (voir la variable z en ligne 48)

Code:: rem ============================================================================
rem Morphing_2
rem ============================================================================
' Variables globales
dim tx(10,6), ty(10,6)
dim x(6), y(6), ux(6), uy(6), dx(6), dy(6)
dim n,k,i,j,pas
DIM vx1,vx2,vx3,vx4,vx5,vx6,vy1,vy2,vy3,vy4
dim z,w
LABEL go
' tx()
vx1 = 30: vx2 = 50: vx3 = 60: vx4 = 70: vx5 = 40: vx6 = 80
data vx1,vx4,vx4,vx4,vx1,vx1,vx1
data vx1,vx2,vx2,vx2,vx2,vx2,vx2
data vx1,vx4,vx4,vx1,vx1,vx4,vx4
data vx1,vx4,vx4,vx1,vx4,vx4,vx1
data vx1,vx3,vx3,vx3,vx3,vx4,vx1
data vx4,vx1,vx1,vx4,vx4,vx1,vx4
data vx4,vx1,vx1,vx4,vx4,vx1,vx1
data vx1,vx4,vx3,vx2,vx3,vx5,vx6
data vx1,vx4,vx2,vx4,vx1,vx2,vx1
data vx4,vx1,vx1,vx4,vx4,vx4,vx1
data vx1,vx4,vx4,vx4,vx1,vx1,vx1
' ty()
vy1 = 20: vy2 = 40: vy3 = 50: vy4 = 80
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
data vy3,vy4,vy3,vy1,vy1,vy3,vy4
data vy4,vy4,vy3,vy3,vy1,vy1,vy1
data vy4,vy4,vy3,vy3,vy3,vy1,vy1
data vy2,vy4,vy2,vy1,vy2,vy2,vy2
data vy4,vy4,vy3,vy3,vy1,vy1,vy1
data vy4,vy4,vy3,vy3,vy1,vy1,vy3
data vy4,vy4,vy3,vy1,vy3,vy3,vy3
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
data vy3,vy3,vy4,vy4,vy3,vy1,vy1
data vy4,vy4,vy3,vy1,vy1,vy3,vy4
' ------------------------------------------------------------------------------
' Initialisations
for n = 0 to 10
   for j = 0 to 6 : read tx(n,j) : next j
next n
' ------------------------------------------------------------------------------
for n = 0 to 10
   for j = 0 to 6 : read ty(n,j): next j
next n
' ------------------------------------------------------------------------------
n = 0 : k = 0 : pas = 20 : j = 0
z = 3.5 : ' <--- zoom à modifier
w = width_client(0) : height 0,w : ' form carré
picture 10 : full_space 10
color 10,0,0,0 : 2d_target_is 10 : 2d_pen_width 3*z : 2d_pen_color 255,0,0
Caption 0,"Morphing ..."
timer 20 : timer_interval 20,60 : ' <--- Adapter cette valeur
on_timer 20,go
end
rem ============================================================================
Go:
  Trace()
return
rem ============================================================================
SUB Trace()
   color 10,0,0,0
   if k = n
   for i = 0 to 6
   x(i) = tx(n,i) : y(i) = ty(n,i)
   ux(i) = tx(n,i) : uy(i) = ty(n,i)
   next i
   for i = 0 to 6
   dx(i) = (tx(n+1,i) - tx(n,i)) / pas
   dy(i) = (ty(n+1,i) - ty(n,i)) / pas
   next i
   k = k + 1 : j = 0
   end_if
   for i = 0 to 6
   ux(i) = x(i) + int(dx(i)*j) : ux(i) = 2*z*ux(i)
   uy(i) = y(i) + int(dy(i)*j) : uy(i) = 2*z*uy(i)
   next i
   for i = 0 to 5
   2d_line ux(i),w-uy(i),ux(i+1),w-uy(i+1)
   next i
   j = j + 1
   if j = pas+1 then n = n+1
   if n = 10 then n = 0 : k = 0 : j = 0
END_SUB
rem ============================================================================

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

Un grand merci mon papydall, là ça devient bien intéressant !

Il fallait quand même savoir où l'appliquer cette fameuse variation de taille !