Überarbeitungsverlauf[Zurück]
Klicke auf Einblenden/Ausblenden von Überarbeitungen 2

31 Jul '15, 21:23

Herbert's gravatar image

Herbert
5.1k34

Meinst du so etwas? etwas? (mit `xelatex` oder `latex->dvips->ps2pdf` laufen lassen.) \documentclass[margin=2mm,pstricks]{standalone} \usepackage{pst-solides3d} \begin{document} \begin{pspicture}[solidmemory](-3,-3)(1,5) \psset{viewpoint=20 150 40 rtp2xyz,Decran=15,lightsrc=-10 15 10,action=none} \defFunction[algebraic]{funcA}(x,y) {(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*x-(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*y} {x} {y} \psSolid[object=surfaceparametree,linecolor={[cmyk]{1,0,1,0.5}}, base=-1 pi pi neg 5 pi mul 3 div, fillcolor=yellow!50,incolor=green!30, function=funcA,linewidth=0.1\pslinewidth,ngrid=30,name=A]% \defFunction[algebraic]{funcB}(x,y) {x} {(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*x-(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*y} {y} \psSolid[object=surfaceparametree,linecolor={[cmyk]{1,0,1,0.5}}, base=-1 pi pi neg 5 pi mul 3 div, fillcolor=cyan!50,incolor=magenta!30, function=funcB,linewidth=0.1\pslinewidth,ngrid=30,name=B]% \psSolid[object=fusion,base=A B,action=draw**] \end{pspicture} \end{document} ![alt text][1] [1]: http://texwelt.de/wissen/upfiles/Bildschirmfoto_vom_2015-07-31_21:18:07.png
Klicke auf Einblenden/Ausblenden von Überarbeitungen 1

31 Jul '15, 21:21

Herbert's gravatar image

Herbert
5.1k34

Meinst du so etwas? \documentclass[margin=2mm,pstricks]{standalone} \usepackage{pst-solides3d} \begin{document} \begin{pspicture}[solidmemory](-3,-3)(1,5) \psset{viewpoint=20 150 40 rtp2xyz,Decran=15,lightsrc=-10 15 10,action=none} \defFunction[algebraic]{funcA}(x,y) {(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*x-(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*y} {x} {y} \psSolid[object=surfaceparametree,linecolor={[cmyk]{1,0,1,0.5}}, base=-1 pi pi neg 5 pi mul 3 div, fillcolor=yellow!50,incolor=green!30, function=funcA,linewidth=0.1\pslinewidth,ngrid=30,name=A]% \defFunction[algebraic]{funcB}(x,y) {x} {(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*x-(tan(.05*pi)/(sqrt(2)-tan(.05*pi)))*y} {y} \psSolid[object=surfaceparametree,linecolor={[cmyk]{1,0,1,0.5}}, base=-1 pi pi neg 5 pi mul 3 div, fillcolor=cyan!50,incolor=magenta!30, function=funcB,linewidth=0.1\pslinewidth,ngrid=30,name=B]% \psSolid[object=fusion,base=A B,action=draw**] \end{pspicture} \end{document} ![alt text][1] [1]: http://texwelt.de/wissen/upfiles/Bildschirmfoto_vom_2015-07-31_21:18:07.png