1 \documentclass[12pt
]{article
}
2 \usepackage{pst-anamorphosis-add
}
3 \usepackage[a4paper]{geometry
}
6 %%%%%%%\psframeA ---------------------
7 \def\psframeA{\pst@object
{psframeA
}}
9 \@ifnextchar(
{\psframeA@ii(
#1)
}{\psframeA@ii(
0,
0)(
#1)
}}
10 \def\psframeA@ii(
#1)(
#2)
{%
12 \pst@getcoor
{#1}\pst@tempa
%
16 \tx@optionsanamorphosis
17 \tx@optionsanamorphosisAdd
24 X1 Y1 tx@anamorphosisPathDict begin Anamorphose end
26 0 0.005 1.0 { %(X1,Y1)->(X2,Y1)
28 K X2 mul
1 K sub X1 mul add
30 tx@anamorphosisPathDict begin Anamorphose end
33 0 0.005 1.0 { % (X2,Y1)->(X2,Y2)
36 K Y2 mul
1 K sub Y1 mul add
37 tx@anamorphosisPathDict begin Anamorphose end
40 0 0.005 1.0 { % (X2,Y2)->(X1,Y2)
42 K X1 mul
1 K sub X2 mul add
44 tx@anamorphosisPathDict begin Anamorphose end
47 0 0.005 1.0 { % (X1,Y2)->(X1,Y1)
50 K Y1 mul
1 K sub Y2 mul add
51 tx@anamorphosisPathDict begin Anamorphose end
60 \begin{pspicture
}(-
7,-
7)(
7,
7)
61 \psset{type=conical,Rmirror=
3}
62 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](-
0.25,-
0.25)(-
0.01,-
0.01)
63 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](-
0.25,
0.25)(-
0.01,
0.01)
64 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
0.01,
0.01)(
0.25,
0.25)
65 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
0.01,-
0.01)(
0.25,-
0.25)
66 \multido{\ry=-
2.75+
1,
\rY=-
2.25+
1}{6}{
67 \multido{\n=-
2.75+
1.00,
\N=-
2.25+
1.00}{7}{%
68 \psframeA[fillstyle=solid,fillcolor=red,linecolor=red
](
\n,
\ry)(
\N,
\rY)
}
70 \multido{\ry=-
3.25+
1,
\rY=-
2.75+
1}{3}{
71 \multido{\n=-
3.25+
1.00,
\N=-
2.75+
1.00}{7}{%
72 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
\n,
\ry)(
\N,
\rY)
}
74 \multido{\ry=
0.75+
1,
\rY=
1.25+
1}{3}{
75 \multido{\n=-
3.25+
1.00,
\N=-
2.75+
1.00}{7}{%
76 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
\n,
\ry)(
\N,
\rY)
}
78 \multido{\n=-
3.25+
1.00,
\N=-
2.75+
1.00}{3}{%
79 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
\n,-
0.25)(
\N,
0.25)
}
80 \multido{\n=
0.75+
1.00,
\N=
1.25+
1.00}{3}{%
81 \psframeA[fillstyle=solid,fillcolor=blue,linecolor=blue
](
\n,-
0.25)(
\N,
0.25)
}
82 \begin{psclip
}{\pscircle[fillstyle=solid,fillcolor=white,linestyle=none
]{3}}
83 \multido{\ry=-
2.75+
1,
\rY=-
2.25+
1}{6}{
84 \multido{\n=-
2.75+
1.00,
\N=-
2.25+
1.00}{6}{%
85 \psframe*
[linecolor=red
](
\n,
\ry)(
\N,
\rY)
}
87 \multido{\ry=-
3.25+
1,
\rY=-
2.75+
1}{7}{
88 \multido{\n=-
3.25+
1.00,
\N=-
2.75+
1.00}{7}{%
89 \psframe*
[linecolor=blue
](
\n,
\ry)(
\N,
\rY)
}
91 \pscircle[doubleline=true
]{3}