Le fichier papiers.mac
3 participants
Page 1 sur 1
Le fichier papiers.mac
Le fichier papiers.mac est proposé par Joffrey Cottin, il contient la macro:
qui permet de dessiner différents types de papiers quadrillés:
-> papier millimétré (type=milli)
-> papier petits carreaux (type=petitcar)
-> papier grands carreaux (type=grandcar)
-> papier quadrillé par des points (type=point1 ou point2 ou point3)
le deuxième argument est l'affixe du coin inférieur gauche, le troisième argument est l'affixe du point supérieur droit. Les options possibles sont:
-> gridcolor:=couleur: couleur de la grille principale, black par défaut
-> subgridcolor:=couleur: couleur de la grille secondaire, Rgb(0.66, 0.66, 0.5) par défaut
on peut également modifier les attributs (Width, LineStyle, ...) dans les options.
Télécharger: papiers.zip ( version 0.2 du 30/01/09)
Exemple:
donnera:
Toutes les questions/suggestions concernant ce fichier seront les bienvenues dans ce fil.
papier( type, coin inf gauche, coin sup droit <,[options]>)
qui permet de dessiner différents types de papiers quadrillés:
-> papier millimétré (type=milli)
-> papier petits carreaux (type=petitcar)
-> papier grands carreaux (type=grandcar)
-> papier quadrillé par des points (type=point1 ou point2 ou point3)
le deuxième argument est l'affixe du coin inférieur gauche, le troisième argument est l'affixe du point supérieur droit. Les options possibles sont:
-> gridcolor:=couleur: couleur de la grille principale, black par défaut
-> subgridcolor:=couleur: couleur de la grille secondaire, Rgb(0.66, 0.66, 0.5) par défaut
on peut également modifier les attributs (Width, LineStyle, ...) dans les options.
Télécharger: papiers.zip ( version 0.2 du 30/01/09)
Exemple:
- Code:
[view(-6,5,-5,6),
papier(grandcar, M(-6,1),M(-1,6), [gridcolor:=blue, subgridcolor:=lightblue]),
papier(point1, M(0,1),M(5,6)),
papier(point3, M(-6,-5),M(-1,0)),
papier(milli, M(0,-5),M(5,0)) ]
donnera:
Toutes les questions/suggestions concernant ce fichier seront les bienvenues dans ce fil.
Dernière édition par P.Fradin le Ven 30 Jan - 12:21, édité 1 fois
Re: Le fichier papiers.mac
Très bien ce petit fichier : ca peut rendre service...
J'ai juste une petite suggestion. Il pourrait être intéressant de rajouter les papier logrithmique, semi-logarithmique, ... Pour ces papiers, je crois que les macros avaient déjà été faites. Elles figuraient peut etre meme dans une ancienne version de TeXgraph en exemple!!!
Il existe aussi des papiers du même genre que le papier millimétré, mais en coordonnées polaires. (A première vu, j'en voit pas forcément l'utilité, mais c'est pour que le fichier soit encore mieux!!! )
Alors Patrick : tu va bien relever le défi...
J'ai juste une petite suggestion. Il pourrait être intéressant de rajouter les papier logrithmique, semi-logarithmique, ... Pour ces papiers, je crois que les macros avaient déjà été faites. Elles figuraient peut etre meme dans une ancienne version de TeXgraph en exemple!!!
Il existe aussi des papiers du même genre que le papier millimétré, mais en coordonnées polaires. (A première vu, j'en voit pas forcément l'utilité, mais c'est pour que le fichier soit encore mieux!!! )
Alors Patrick : tu va bien relever le défi...
Re: Le fichier papiers.mac
Bonsoir à tous, et comme l'occasion ne m'avait pas encore été donné, je souhaite une très bonne année à l'ensemble des membres de ce forum.
J'ai utilisé papiers.mac et j'ai noté un "bug" pour le papier millimétré, au niveau de l'épaisseur des traits et des différentes "grilles" qui le compose, voici mon code avec les modifs :
La différence n'est pas visible à l'écran (sur le mien en tout cas) par contre à l'impression on a vraiment du papier millimétré.
Seul inconvénient encore, c'est la couleur, orange ou bleu serait bien par contre à l'impression ça ne rend rien, alors en plus quand il faut photocopier par la suite... C'est pour cela que je choisi :
Sinon on peut aussi décider d'arrêter de se prendre la tête pour un dixième de millimètre et aller acheter un stock de feuille chez Canson, mais évidemment ça perd son charme...
Bonne soirée
J'ai utilisé papiers.mac et j'ai noté un "bug" pour le papier millimétré, au niveau de l'épaisseur des traits et des différentes "grilles" qui le compose, voici mon code avec les modifs :
- Code:
200#
{papiers.mac version 0.1 du 18/12/08 Joffrey Cottin}
Var papiersvernum = 0.1;
gridcolor = black;
subgridcolor = Rgb(0.66,0.66,0.5);
milli = 0;
petitcar = 1;
grandcar = 2;
point1 = 3;
point2 = 4;
point3 = 5;
Mac
papier = [{papier( type, coin inf gauche, coin sup droit <, options>)
options:
gridcolor := <couleur> (black par défaut)
subgridcolor := <couleur> (Rgb(0.66,0.66,0.5) par défaut)
ou attributs classiques comme Width:= ,...
}
$type:=%1, $x1:=%1, $x2:=%3, gridcolor:=black, subgridcolor:= Rgb(0.66,0.66,0.5), subsubgridcolor:=white, Width:=2,
$aux:=Eval(String(%4)), SaveAttr(), SetMatrix([%2,1/Xscale,i/Yscale]),
$x1:=Re(%2), $x2:=Re(%3), $y1:=Im(%2), $y2:=Im(%3), $largeur:=(x2-x1)*Xscale, $hauteur:=(y2-y1)*Yscale,
if type=milli then
{subsubgrid}
Width:=0.085*mm,
Color:=subsubgridcolor,
Ligne( [for $k from 0 to largeur step 0.1 do k , k+hauteur*i , jump od,
for k from 0 to hauteur step 0.1 do k*i , largeur+k*i , jump od
],0),
{subgrid}
Width:=0.17*mm,
Color:=subgridcolor,
Ligne( [for $k from 0 to largeur step 0.5 do k , k+hauteur*i , jump od,
for k from 0 to hauteur step 0.5 do k*i , largeur+k*i , jump od
],0),
{grid}
Width:=0.34*mm,
Color:=gridcolor,
Ligne( [for k from 0 to largeur step 1 do k , k+hauteur*i , jump od,
for k from 0 to hauteur step 1 do k*i , largeur+k*i , jump od
],0)
elif type=petitcar then
{subgrid}
Color:=subgridcolor,
Ligne( [for k from 0 to largeur step 0.5 do k , k+hauteur*i , jump od,
for k from 0 to hauteur step 0.5 do k*i , largeur+k*i , jump od
],0),
{grid}
Color:=gridcolor,
Ligne( [for k from 0 to largeur do k , k+hauteur*i , jump od,
for k from 0 to hauteur do k*i , largeur+k*i , jump od
],0)
elif type=grandcar then
{subgrid}
Color:=subgridcolor,
Ligne( [for k from 0 to largeur do k , k+hauteur*i , jump od,
for k from 0 to hauteur step 0.25 do k*i , largeur+k*i , jump od
],0),
{grid}
Color:=gridcolor,
Ligne( [for k from 0 to largeur do k , k+hauteur*i , jump od,
for k from 0 to hauteur do k*i , largeur+k*i , jump od
],0),
elif type=point1 then
Point( for k from 0 to largeur step 0.5 do
for $z from 0 to hauteur step 0.5 do k+z*i od
od),
elif type=point2 then
Point( for k from 0 to largeur step 1 do
for z from 0 to hauteur step 1 do k+z*i od,
od),
elif type=point3 then
Point( [for z from 0 to hauteur do
for k from 0 to largeur do k+z*i od
od,
for z from 0.5 to hauteur-0.5 do
for k from 0+.5 to largeur-0.5 do k+z*i od,
od])
fi,
RestoreAttr()];
La différence n'est pas visible à l'écran (sur le mien en tout cas) par contre à l'impression on a vraiment du papier millimétré.
Seul inconvénient encore, c'est la couleur, orange ou bleu serait bien par contre à l'impression ça ne rend rien, alors en plus quand il faut photocopier par la suite... C'est pour cela que je choisi :
- Code:
subgridcolor:=black, subsubgridcolor:=black
Sinon on peut aussi décider d'arrêter de se prendre la tête pour un dixième de millimètre et aller acheter un stock de feuille chez Canson, mais évidemment ça perd son charme...
Bonne soirée
Re: Le fichier papiers.mac
Bonsoir Joffrey et bonne année à toi aussi,
Je te propose cette version:
J'ai ajouté subsubgridcolor dans les déclarations et je l'ai initialisé à gray, d'autre part j'ai traduit les épaisseurs en entiers et j'ai supprimé les traits qui étaient tracés inutilement (car recouverts par un autre trait). Après quelques tests sur mon écran et mon imprimante j'ai mis subgricolor=Rgb(0.3,0.3,0.3) et laissé gridcolor=black ce qui me parait pas mal. Si tu es d'accord je mets à jour le fichier papiers.zip dans le post initial.
Ce genre de problème est tout à fait normal et incontournable pour une imprimante noir et blanc. Le mieux c'est une impression couleur avant photocopie!
Je te propose cette version:
- Code:
200#
{papiers.mac version 0.2 du 12/01/09 Joffrey Cottin}
Var papiersvernum = 0.2;
gridcolor = black;
subgridcolor = Rgb(0.3,0.3,0.3);
subsubgridcolor = gray;
milli = 0;
petitcar = 1;
grandcar = 2;
point1 = 3;
point2 = 4;
point3 = 5;
Mac
papier = [{papier( type, coin inf gauche, coin sup droit <, options>)
options:
gridcolor := <couleur> (black par défaut)
subgridcolor := <couleur> (Rgb(0.66,0.66,0.5) par défaut)
ou attributs classiques comme Width:= ,...
}
$type:=%1, $x1:=%1, $x2:=%3, gridcolor:=black, subgridcolor:= Rgb(0.3,0.3,0.3), subsubgridcolor:=gray, Width:=2,
$aux:=%4, SaveAttr(), SetMatrix([%2,1/Xscale,i/Yscale]),
$x1:=Re(%2), $x2:=Re(%3), $y1:=Im(%2), $y2:=Im(%3), $largeur:=(x2-x1)*Xscale, $hauteur:=(y2-y1)*Yscale,
if type=milli then
{subsubgrid}
Width:=1, {0.085*mm,}
Color:=subsubgridcolor,
Ligne( [for $k from 0 to largeur step 0.1 do
if mod(k,5)<>0 then k , k+hauteur*i , jump fi od,
for k from 0 to hauteur step 0.1 do
if mod(k,5)<>0 then k*i , largeur+k*i , jump fi od
],0),
{subgrid}
Width:=2, {0.17*mm,}
Color:=gridcolor,
Ligne( [for $k from 0.5 to largeur do k, k+hauteur*i , jump od,
for k from 0.5 to hauteur do k*i, largeur+k*i , jump od
],0),
{grid}
Width:=4, {0.34*mm,}
Color:=gridcolor,
Ligne( [for k from 0 to largeur do k, k+hauteur*i , jump od,
for k from 0 to hauteur do k*i, largeur+k*i , jump od
],0)
elif type=petitcar then
{subgrid}
Color:=subgridcolor, Width:=1,
Ligne( [for k from 0.5 to largeur do k, k+hauteur*i , jump od,
for k from 0.5 to hauteur do k*i, largeur+k*i , jump od
],0),
{grid}
Color:=gridcolor, Width:=2,
Ligne( [for k from 0 to largeur do k, k+hauteur*i , jump od,
for k from 0 to hauteur do k*i, largeur+k*i , jump od
],0)
elif type=grandcar then
{subgrid}
Color:=subgridcolor,
Ligne( for k from 0 to hauteur step 0.25 do if mod(k,4)<>0 then k*i,largeur+k*i, jump fi od,0),
{grid}
Color:=gridcolor,
Ligne( [for k from 0 to largeur do k , k+hauteur*i , jump od,
for k from 0 to hauteur do k*i , largeur+k*i , jump od
],0),
elif type=point1 then
Point( for k from 0 to largeur step 0.5 do
for $z from 0 to hauteur step 0.5 do k+z*i od
od),
elif type=point2 then
Point( for k from 0 to largeur do
for z from 0 to hauteur do k+z*i od,
od),
elif type=point3 then
Point( [for z from 0 to hauteur do
for k from 0 to largeur do k+z*i od
od,
for z from 0.5 to hauteur-0.5 do
for k from 0+.5 to largeur-0.5 do k+z*i od,
od])
fi,
RestoreAttr()];
J'ai ajouté subsubgridcolor dans les déclarations et je l'ai initialisé à gray, d'autre part j'ai traduit les épaisseurs en entiers et j'ai supprimé les traits qui étaient tracés inutilement (car recouverts par un autre trait). Après quelques tests sur mon écran et mon imprimante j'ai mis subgricolor=Rgb(0.3,0.3,0.3) et laissé gridcolor=black ce qui me parait pas mal. Si tu es d'accord je mets à jour le fichier papiers.zip dans le post initial.
Ce genre de problème est tout à fait normal et incontournable pour une imprimante noir et blanc. Le mieux c'est une impression couleur avant photocopie!
Re: Le fichier papiers.mac
Bonsoir,
Désolé de répondre si tardivement.
J'utilise pourtant une imprimante laser couleur, le rendu que moi j'en ai est très bien, le problème vient de la photocopieuse. (je me suis mal exprimé dans mon dernier message)
En tout cas j'essaie ce soir et je te tiens au courant, sinon je ne doute pas que les modifications que tu as apportées sont tres bien.
Pas de probleme.
Désolé de répondre si tardivement.
P.Fradin a écrit :
Ce genre de problème est tout à fait normal et incontournable pour une imprimante noir et blanc. Le mieux c'est une impression couleur avant photocopie!
J'utilise pourtant une imprimante laser couleur, le rendu que moi j'en ai est très bien, le problème vient de la photocopieuse. (je me suis mal exprimé dans mon dernier message)
En tout cas j'essaie ce soir et je te tiens au courant, sinon je ne doute pas que les modifications que tu as apportées sont tres bien.
P.Fradin a écrit :
Si tu es d'accord je mets à jour le fichier papiers.zip dans le post initial.
Pas de probleme.
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|