Taille de la fenêtre

N'oubliez pas de consulter les sujets avant de poser votre question, merci.

Taille de la fenêtre

Messagepar hades58 » 18 Sep 2013 14:29

Bonjour,

je suis nouveau sur le forum et découvre TeXgraph.
Je ne suis pas un expert du code mais j'essaie malgré tout d'en comprendre l'essentiel. Je m'intéresse aux pavages apériodiques : le quartic pinwheel n°57.
Ce que j'essaie de réaliser me semble assez simple mais je bloque malgré tout sur la question de la taille de la fenêtre. En l'état, la taille de la fenêtre est de 16 cm de large sur 8 cm de haut. J'aimerais simplement augmenter cette taille et multiplier le motif sur cette nouvelle taille : par exemple obtenir ce motif sur une taille de 40 cm sur 60 cm.
J'ai beau me balader sur le code ainsi que sur la commande "paramètres > fenêtre", je ne parviens pas à mes fins et m'emmêle les pinceaux.
Merci par avance pour votre aide…
hades58
 
Messages: 2
Inscription: 18 Sep 2013 14:07

Re: Taille de la fenêtre

Messagepar P.Fradin » 18 Sep 2013 16:18

Bonjour et bienvenu sur ce forum,

Quand j'ai écrit la page sur les pavages apériodiques, j'ai utilisé quelque chose qui ressemble à ça (il faut charger le modèle Cristallo.mod):
Code: Tout sélectionner
[
        view(-0.5,0.5,0,0.5),size(30,1),
        TilesColor:=HexaColor("2F4F4F"),
   TilesFillColor1:=HexaColor("800080"),
   TilesFillColor2:=HexaColor("FFFFFF"),
   TilesFillColor3:=HexaColor("ADD8E6"),
   TilesFillColor4:=HexaColor("DC143C"),
   number:=57, xdeb:=-1, xfin:=0.5-i, niv:=14, tuile:=4,
        $P:=PavAperiodiqueTiles(number,xdeb,xfin, tuile),
   {Génération du pavage}
        $Pav:=PavAperiodique(number, P, niv),
   {Dessin du pavage}
   DrawTiles(Pav),
   {Affichage du nom du pavage}
   PavAperiodiqueNames(number, "pfnpv", 0),
   LineStyle:=noline, FillStyle:=full, FillOpacity:=0.7,
   LabelStyle:=bottom+left+framed, LabelSize:=large,
   LabelDot(Xmin+i*Ymin, ["\slshape ", @pfnpv], "NE", 0, 0.1)
]


La taille est imposée par l'instruction size(30,1) qui crée un graphique orthonormé dans un carré de 30x30cm, qui en réalité sera de 30x15 pour ce pavage, si on veut une taille de 30x30 entièrement remplie, il ne faut pas imposer un graphique orthonormé, on écrit alors size(30+30*i,0).
L'instruction niv:=14 indique le nombre d'itérations (attention au temps de calcul si on augmente) ce qui joue sur la taille des carreaux.

En espérant que cela aide. Mais peut être qu'Alphonse (qui est l'auteur de ce modèle) pourra en dire plus.
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Taille de la fenêtre

Messagepar hades58 » 18 Sep 2013 16:38

Merci beaucoup pour votre aide.
Je ne parviens toujours pas à modifier la taille de rendu.
S'agit-il bien du fichier Cristallo.mod à modifier ? Car je ne trouve pas de code dans ce fichier s'approchant de votre code cité.
Voici le code que contient le fichier Cristallo.mod :

Code: Tout sélectionner
200#
{
============== Calendrier.mac ===================

Auteur : Alphonse Capriani

Version : 10.10
Dernière mise à jour : 3 octobre 2010

Description :
Modèle permettant le chargement du fichier
Cristallo.mac et donnant plusieurs exemples
d'utilisation des macros du fichier.
   
Remarques :
Cristallo.mac ne fonctionne pas correctement avec
la version actuelle (1.94) de TeXgraph.
(Uniquement avec les pavages apériodiques)
Il est préférable d'utiliser le fichier avec la
dernière version test 1.95.

==================================================
}

Var
   { Version du fichier }
   CristalloVersion = 10.10;
    CristalloLoad = InputMac("Cristallo.mac");

Cmd
   Fenetre(-5-5*i, 5+5*i, 1+i);
   Marges(0.5,0.5,0.5,0.5);
   IsVisible:=0;

Graph
   Frise = {Exemple de frise périodique}
      [
      Fenetre(-4-0.7*i, 4+1.4*i, 2+2*i),
      tMin:=0, tMax:=pi, NbPoints:=100,
      $L:=Get(Courbe(0.7*sin(3*t)*cos(t)+i*0.7*sin(3*t)*sin(t), t)),
      Motif:=simil(L, 0.5+0.5*i, 0.4, pi/8),
      
      DrawFrise("fm2",
         [
         {Pt de référence et vecteur de base}
            PtRef:=-0.5+0.3*i, Vecteur1:=2.5+0.25*i,
         {Bord et arrière-plan}
            BordWidth:=Thicklines, BordColor:=black,
            BackgroundFillColor:=crimson,
         {Motif de base}
            MotifFillStyle:=none, MotifWidth:=Thicklines, MotifColor:=gold,
         {Axes et centres}
            AfficherAxesSym:=1, AxesSymLineStyle:=solid, AxesSymWidth:=thicklines, AxesSymColor:=lightblue,
            AfficherAxesGliss:=1, AxesGlissLineStyle:=dashed, AxesGlissWidth:=thicklines, AxesGlissColor:=ghostwhite,
            AfficherCentres1:=1, CtrDotAngle1:=180*Arg(Vecteur1)/pi+90,
         {Autres éléments à afficher}
            AfficherPtRef:=1, PtRefDotStyle:=dotcircle, PtRefDotSize:=2.5+2*i,
            AfficherVecteur1:=1, VecteurWidth1:=Thicklines,
            EncadrerMotif:=1, CadreColor:=lightyellow
         ])
      ];

   Rosace = {Exemple de rosace}
      [
      Fenetre(-1.5*(1+i), 1.5*(1+i), 4+4*i),
      LineCap:=round, NbPoints:=200,
      AjusterFenetre:=1, FenetreEcart:=0,
      $L:=[0.52521010418422+0.14113363274373*i,0.70133064896799+0.75031993491575*i,
            0.13199483603239+0.06142165651544*i,0.43978655920364+0.60954159894026*i,
            0.48058554017916+0.16553819854743*i],
      
      {Pt de référence et direction de l'axe}
         PtRef:=0, Vecteur1:=1,
      
      {Motif de base}
         Motif:=Get(Spline(L)),
         MotifLineStyle:=solid, MotifWidth:=Thicklines, MotifColor:=gold,
      {Bord et arrière-plan}
         BordLineStyle:=solid, BordWidth:=mm, BordColor:=black,
         BackgroundFillStyle:=full, BackgroundFillColor:=darkslategray,
      {Axes de symétrie}
         AfficherAxesSym:=1, AxesSymEcart:=0.2,
         AxesSymLineStyle:=solid, AxesSymWidth:=thinlines, AxesSymColor:=gray,
      {Ordre d'affichage des éléments}
         RosaceOrdreAffichage:=[background, axessym, bord, motif],
      
      DrawRosace("rnm", 10)
      ];

   PavPeriodique = {Exemple de pavage périodique}
      [
      Fenetre(-5*(1+i), 5*(1+i), 1+i),
      LineCap:=round,
      
      {Pt de référence et vecteurs de base}
         PtRef:=-1.5-0.4*i,
         Vecteur1:=2*exp(-i*pi/6), Vecteur2:=2*exp(i*pi/4),
         AfficherPtRef:=1, AfficherVecteur1:=1, AfficherVecteur2:=1,
         VecteurColor1:=darkslateblue, VecteurColor2:=darkslateblue,
      {Motif de base}
         $L:=[0.67062370898202+0.35571859637275*i,0.91788840829394+0.49448074982501*i,
               0.37435138830915+0.20470197964459*i,0.43335385224781+0.40269087115302*i,
               0.30348043842241+0.94105794653296*i,0.74630511016584+0.6084428417962*i],
         Motif:=Get(Spline(L)),
         MotifLineStyle:=solid, MotifWidth:=Thicklines, MotifColor:=gold,
      {Arrière-plan}
         BackgroundFillStyle:=full, BackgroundFillColor:=darkred,
      {Réseau}
         AfficherReseau:=1,
         ReseauLineStyle:=solid, ReseauWidth:=thicklines, ReseauColor:=ghostwhite,
      {Axes de symétrie et de glissement}
         AfficherAxesSym:=1,
         AxesSymLineStyle:=solid, AxesSymWidth:=thinlines, AxesSymColor:=black,
         AfficherAxesGliss:=1,
         AxesGlissLineStyle:=solid, AxesGlissWidth:=thinlines, AxesGlissColor:=gray,
      
      DrawPavPeriodique("cmm")
      ];

   PavPolygone = {Exemple de pavage par des polygones réguliers}
      [
      Fenetre(-5*(1+i), 5*(1+i), 1+i),
      
      {Chiralité}
         Chiral:=1,
      {Pt de référence et vecteur de base}
         PtRef:=0, Vecteur1:=0.75,
      {Attributs des polygones}
         PolyLineStyle:=dotted, PolyWidth:=0.75*mm, PolyColor:=dimgray,
         PolyFillColor1:=papayawhip,
         PolyFillColor2:=darkorange,
         PolyFillColor3:=darkslateblue,
         PolyFillColor4:=darkred,
      
      DrawPavPolygone(8)
      ];

   PavAperiodique = {Exemple de pavage apériodique}
      [
      Fenetre(0+0.25*i, 0.5+0.75*i, 1+i), size(10),
      
      {Attributs des tuiles}
         TilesLineStyle:=noline, TilesColor:=white,
         TilesFillColor1:=darkslateblue,
         TilesFillColor2:=white,
         TilesFillColor3:=cornflowerblue,
         TilesFillColor4:=gold,
      {Tuile de base}
         $P:=PriebeFrankNonPVTiles(0, 0.75+0.25*i, 1),
      {Génération du pavage}
         $Pav:=PriebeFrankNonPV(P, 5),
      {Dessin du pavage}
         DrawTiles(Pav),
      {Affichage du nom du pavage}
         PavAperiodiqueNames("PriebeFrankNonPV", "pfnpv", 0),
         LineStyle:=noline, FillStyle:=full, FillOpacity:=0.7,
         LabelStyle:=bottom+left+framed, LabelSize:=large,
         LabelDot(Xmin+i*Ymin, ["\slshape ", @pfnpv], "NE", 0, 0.1)
      ];
      
Cmd
   IsVisible:=1;

Graph
   PavTruchet = {Exemple de pavage de Truchet}
      [
      Fenetre(0, 1+i, 10*(1+i)),
      
      {Tuile de base du pavage}
         $P:=TruchetTiles(0, 1, 1),
      {Génération du pavage}
         $Pav:=Truchet(P, 25),
      {Attributs des tuiles}
         LineCap:=round,
         TilesLineStyle:=solid, TilesWidth:=thicklines, TilesColor:=ghostwhite,
         TilesFillColor1:=indigo,
         TilesFillColor2:=lightpink,
      {Dessin du pavage}
         DrawTruchetTiles(Pav, [4, 2, 4, 2])
      ];


J'ai tenté de modifier les données de "Fenêtre" sous la ligne "Cmd" ainsi que sous "PavAperiodique", mais il n'y a pas de changement notoire à l'ouverture du fichier. Ce dernier mesure toujours 16 cm x 8 cm.
hades58
 
Messages: 2
Inscription: 18 Sep 2013 14:07

Re: Taille de la fenêtre

Messagepar P.Fradin » 18 Sep 2013 17:01

Il ne faut surtout pas modifier le fichier Cristallo.mod !

Dans le programme TeXgraph il faut charger le modèle Cristallo.mod (touche F3), puis créer un élément graphique utilisateur (Ctrl+U) , une fenêtre s'ouvre et vous y collez le code de mon précédent message et vous valider. C'est tout.
P.Fradin
Avatar de l’utilisateur
P.Fradin
Administrateur du site
 
Messages: 1887
Inscription: 29 Oct 2008 15:04

Re: Taille de la fenêtre

Messagepar Alphonse Capriani » 20 Sep 2013 12:04

Hé hé : un utilisateur de Cristallo.mac!!! Je commençais à désepérer :-D

Sinon, il y a une doc à jour de disponible. Dans mes souvenir elle est complète avec des exemples d'utilisation (ya un moment que j'ai pas mis le nez dedans, mais je me souviens avoir passer pas mal de temps dessus) Hésite pas a y jeter un oeil, tu devrait y trouver la solution de ta question...
Ya Ba Da Ba Dooo!!!
Avatar de l’utilisateur
Alphonse Capriani
 
Messages: 576
Inscription: 18 Juil 2009 19:10
Localisation: East Harlem - NY

Re: Taille de la fenêtre

Messagepar Joffrey » 20 Sep 2013 21:44

Aphonse est revenu !!!
Comment va le New-Yorkais ?
L'homme en noir fuyait à travers le désert, et le Pistoléro le suivait ...
Joffrey
 
Messages: 287
Inscription: 16 Juil 2009 17:05
Localisation: Vichy

Re: Taille de la fenêtre

Messagepar Alphonse Capriani » 21 Sep 2013 12:49

Et oui, enfin de retour après quelques années d'incarcération...

Ca va pas trop mal : je vais essayer d'être plus présent à partir de maintenant.
Mais je suis quand même pas mal pris donc forcément, il ne faut pas s'attendre à ce que je sois aussi présent qu'avant...

Ca me tarde quand même de me relancer dans de nouveaux projets... ;-)
Ya Ba Da Ba Dooo!!!
Avatar de l’utilisateur
Alphonse Capriani
 
Messages: 576
Inscription: 18 Juil 2009 19:10
Localisation: East Harlem - NY

Re: Taille de la fenêtre

Messagepar Alphonse Capriani » 04 Oct 2013 00:51

hades58 a écrit:par exemple obtenir ce motif sur une taille de 40 cm sur 60 cm.


Punaise : j'avais même pas fait attention aux dimensions... :shock:

Tu serais pas en train d'utiliser Cristallo.mac pour retapisser ton salon? :lol:
Ya Ba Da Ba Dooo!!!
Avatar de l’utilisateur
Alphonse Capriani
 
Messages: 576
Inscription: 18 Juil 2009 19:10
Localisation: East Harlem - NY


Revenir vers Questions - Réponses

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 10 invités

cron