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
» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Aujourd'hui à 13:46

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

» source vumetre avec delphi
par Klaus Mar 5 Déc 2017 - 23:22

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 coulleurs subjectives

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
RMont



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

MessageSujet: coulleurs subjectives   Jeu 30 Mar 2017 - 19: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 : 5613
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 - 21:27



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



Nombre de messages : 549
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: coulleurs subjectives   Jeu 30 Mar 2017 - 22: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 : 184
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: coulleurs subjectives   Ven 31 Mar 2017 - 18: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 : 1104
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: coulleurs subjectives   Ven 31 Mar 2017 - 20: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 : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 1 Avr 2017 - 3:09

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



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

MessageSujet: Re: coulleurs subjectives   Sam 1 Avr 2017 - 19: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
Voir le sujet précédent Voir le sujet suivant 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: