FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Découpe dans une image
par JL35 Hier à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Hier à 21:51

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Hier à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 coulleurs subjectives

Aller en bas 
AuteurMessage
RMont



Nombre de messages : 191
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: coulleurs subjectives   Jeu 30 Mar 2017 - 18:58


bonjour a tous.
j'ai mis ce code dans la rubrique a l'aide car je ne sais comment faire.
ce code s'appelle " couleurs subjectives " .
j'ai tiré ce dessin d'un livre sur les effets d'optique et illusions visuelles.
pour voir apparaitre une ou des couleurs ,il est dit : faire tourner cette figure sur son axe (a quelle vitesse ????????????.)
pour faire les arcs de cercle ,je me suis servi du cours de trigonometrie de papydal.j'ai peiné mais j'y suis arrivé .merci papydal

Code:

' couleur subjectives par rmont le 29/03/17
' il est dit : faites-moi tourner,des couleurs apparaîtront
Init()
Tracer_Cercle_Trigo()

end
' ============================================================================
SUB Init()
 left 0,200 : width 0,1000 : height 0,860
END_SUB
rem ============================================================================

SUB Tracer_Cercle_Trigo()
  dim_local xo,yo,r,i,pi,p,s,c,t,a
  pi = acos(-1) : p = pi/180 : a = pi/4 : s = sin(a) : c = cos(a) : t = tan(a)
  xo = 508 : yo = 430 : ' Coordonnées du centre du cercle
  r = 275  : ' Rayon du cercle
  2d_pen_width 3 : 2d_circle xo,yo,r : 2d_circle xo,yo,r-260  :' grand et petit cercle

  ' Tracé de l'axe horizontal pour faire mes courbes
  ' 2d_line 50,yo,2*xo-50,yo

  ' Tracé de l'axe vertical
  2d_line xo,154, xo,417   :' ligne juste le 28/03/17
  2d_line xo,445,xo,705                 :' ligne juste le 29/03
  2d_flood xo+20,yo+200,0,0,0
 
  ' Tracé des  Demi-droites pour faire mes courbes
  ' 2d_line xo,yo,xo +3 * r*c,yo -3*r*s     :' quart haut droit
  ' 2d_line xo,yo,xo -3 * r*c,yo +3*r*s     :' quart bas a gauche
  ' 2d_line xo,yo,xo -3 * r*c,yo -3*r*s     :' quart haut a gauche
  ' 2d_line xo,yo,xo +3 * r*c,yo +3*r*c     :' quart bas a droite

   ' tracé des courbes du 1er 1/2 quart haut gauche
  2d_poly_from xo,yo-35
  for i = 0 to a step p : 2d_poly_to xo-35*sin(i),yo-35*cos(i) : next i
  2d_poly_from xo,yo-55
  for i = 0 to a step p : 2d_poly_to xo-55*sin(i),yo-55*cos(i) : next i
  2d_poly_from xo,yo-75
  for i = 0 to a step p : 2d_poly_to xo-75*sin(i),yo-75*cos(i) : next i
  
 ' tracé des courbes du 2eme 1/2 quart haut gauche
  2d_poly_from xo-95,yo
  for i = 0 to a step p : 2d_poly_to xo-95*cos(i),yo-95*sin(i) : next i
  2d_poly_from xo-115,yo
  for i = 0 to a step p : 2d_poly_to xo-115*cos(i),yo-115*sin(i) : next i
  2d_poly_from xo-135,yo
  for i = 0 to a step p : 2d_poly_to xo-135*cos(i),yo-135*sin(i) : next i
    
 ' trace des courbes du 3em 1/2 quart bas gauche
  2d_poly_from xo-155,yo
  for i = 0 to a step p : 2d_poly_to xo-155*cos(i),yo+155*sin(i) : next i
  2d_poly_from xo-175,yo
  for i = 0 to a step p : 2d_poly_to xo-175*cos(i),yo+175*sin(i) : next i
  2d_poly_from xo-195,yo
  for i = 0 to a step p : 2d_poly_to xo-195*cos(i),yo+195*sin(i) : next i

  ' trace des courbes du 4em 1/2 quart bas gauche
  2d_poly_from xo,yo+215
  for i = 0 to a step p : 2d_poly_to xo-215*sin(i),yo+215*cos(i) : next i
  2d_poly_from xo,yo+235
  for i = 0 to a step p : 2d_poly_to xo-235*sin(i),yo+235*cos(i) : next i
  2d_poly_from xo,yo+255
  for i = 0 to a step p : 2d_poly_to xo-255*sin(i),yo+255*cos(i) : next i
    
 end_sub

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5744
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: coulleurs subjectives   Jeu 30 Mar 2017 - 20:27



Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Marc



Nombre de messages : 632
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: coulleurs subjectives   Jeu 30 Mar 2017 - 21:58

Merci pour ton partage Rmont.

Bien souvent je décortique les sources postés : on y apprend une foule de trucs et astuces.

Dans le tien, j'ai remarqué que tu devais utiliser une ancienne version de Panoramic :

Lignes 15 et 16, tu déclares la variable PI et tu lui affectes sa valeur :
Citation :
 dim_local xo,yo,r,i,pi,p,s,c,t,a
 pi = acos(-1) : p = pi/180 : a = pi/4 : s = sin(a) : c = cos(a) : t = tan(a)

C'est devenu inutile avec les nouvelles versions de Panoramic.
PI est devenu une constante interne à Panoramic avec la valeur de 3.14159265358979.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 191
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: coulleurs subjectives   Ven 31 Mar 2017 - 17:55


bonjour a tous et bienvenue aux nouveaux panoramiciens.
@ marc37
merci pour ton intervention . j'ai fait 2 versions de mon code et j'ai envoyé celle non modifiée.mais comme dit plus haut je me suis servi du code trigonométrie de papydal.

@papydal.
merci pour ta réponse .j'ai vu les animations mais cela ne résous pas mon problème qui est comment faire .que faut-il que je consulte ? .

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1122
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: coulleurs subjectives   Ven 31 Mar 2017 - 19:59

Bonsoir à tous! Smile
J'espère que cela répond à ta question Rmont!
Code:

' couleur subjectives par rmont le 29/03/17
' il est dit : faites-moi tourner,des couleurs apparaîtront
Init()
Tracer_Cercle_Trigo()
image 10 : 2d_image_copy 10,150,150,width_client(0)-110,height_client(0)-110: ' créer un objet image et faire une copie du dessi dedans
cls:file_save 10,"c:\temp\disque.bmp" : ' effacer le dessi et sauver l'objet image dans un fichier
scene3d 99:full_space 99 : ' créer une scene 3d
3d_plane 1:3d_u_tile 1,1:3d_v_tile 1,1:' créer un objet 3d_plane et faire 1 tuile en largeur et en longueur
3d_load_texture 1,"c:\temp\disque.bmp": ' texturer le 3d_plane avec l'image
3d_scale 1,1.25,1,1: ' rectifier les dimensions de l'image en largeur dans le 3d_plane
' boucle pour faire tourner le 3d_plane sur lui même comme un disque
while scancode<>27 : ' touche ESC ou echap pour sortir de la boucle
   3d_z_rotate 1,o3d_z_rotate(1)-10: ' changer la valeur: -10, -20, -30, etc... (entre 30 et 40 ça change de couleur)
end_while
file_delete "c:\temp\disque.bmp"
end
' ============================================================================
SUB Init()
 left 0,200 : width 0,1000 : height 0,860
END_SUB
rem ============================================================================

SUB Tracer_Cercle_Trigo()
  dim_local xo,yo,r,i,p,s,c,t,a
  p = pi/180 : a = pi/4 : s = sin(a) : c = cos(a) : t = tan(a)
  xo = 508 : yo = 430 : ' Coordonnées du centre du cercle
  r = 275  : ' Rayon du cercle
  2d_pen_width 3 : 2d_circle xo,yo,r : 2d_circle xo,yo,r-260  :' grand et petit cercle

  ' Tracé de l'axe horizontal pour faire mes courbes
  ' 2d_line 50,yo,2*xo-50,yo

  ' Tracé de l'axe vertical
  2d_line xo,154, xo,417   :' ligne juste le 28/03/17
  2d_line xo,445,xo,705                 :' ligne juste le 29/03
  2d_flood xo+20,yo+200,0,0,0

  ' Tracé des  Demi-droites pour faire mes courbes
  ' 2d_line xo,yo,xo +3 * r*c,yo -3*r*s     :' quart haut droit
  ' 2d_line xo,yo,xo -3 * r*c,yo +3*r*s     :' quart bas a gauche
  ' 2d_line xo,yo,xo -3 * r*c,yo -3*r*s     :' quart haut a gauche
  ' 2d_line xo,yo,xo +3 * r*c,yo +3*r*c     :' quart bas a droite

   ' tracé des courbes du 1er 1/2 quart haut gauche
  2d_poly_from xo,yo-35
  for i = 0 to a step p : 2d_poly_to xo-35*sin(i),yo-35*cos(i) : next i
  2d_poly_from xo,yo-55
  for i = 0 to a step p : 2d_poly_to xo-55*sin(i),yo-55*cos(i) : next i
  2d_poly_from xo,yo-75
  for i = 0 to a step p : 2d_poly_to xo-75*sin(i),yo-75*cos(i) : next i

 ' tracé des courbes du 2eme 1/2 quart haut gauche
  2d_poly_from xo-95,yo
  for i = 0 to a step p : 2d_poly_to xo-95*cos(i),yo-95*sin(i) : next i
  2d_poly_from xo-115,yo
  for i = 0 to a step p : 2d_poly_to xo-115*cos(i),yo-115*sin(i) : next i
  2d_poly_from xo-135,yo
  for i = 0 to a step p : 2d_poly_to xo-135*cos(i),yo-135*sin(i) : next i

 ' trace des courbes du 3em 1/2 quart bas gauche
  2d_poly_from xo-155,yo
  for i = 0 to a step p : 2d_poly_to xo-155*cos(i),yo+155*sin(i) : next i
  2d_poly_from xo-175,yo
  for i = 0 to a step p : 2d_poly_to xo-175*cos(i),yo+175*sin(i) : next i
  2d_poly_from xo-195,yo
  for i = 0 to a step p : 2d_poly_to xo-195*cos(i),yo+195*sin(i) : next i

  ' trace des courbes du 4em 1/2 quart bas gauche
  2d_poly_from xo,yo+215
  for i = 0 to a step p : 2d_poly_to xo-215*sin(i),yo+215*cos(i) : next i
  2d_poly_from xo,yo+235
  for i = 0 to a step p : 2d_poly_to xo-235*sin(i),yo+235*cos(i) : next i
  2d_poly_from xo,yo+255
  for i = 0 to a step p : 2d_poly_to xo-255*sin(i),yo+255*cos(i) : next i

 end_sub

A+ Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8015
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 1 Avr 2017 - 2:09

cheers Bravo Bignono !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 191
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: coulleurs subjectives   Sam 1 Avr 2017 - 18:27


bonjour a tous.
un grand merci bignono. je n'avais aucune idée du comment faire.maintenant il ne me reste plus qu'a étudier et comprendre ta portion de code . encore merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: coulleurs subjectives   

Revenir en haut Aller en bas
 
coulleurs subjectives
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: