Mrthfx

When to use the term transposed instead of modulation?

Short story about an infectious indestructible metal bar?

How do we objectively assess if a dialogue sounds unnatural or cringy?

Dukha vs legitimate need

Too soon for a plot twist?

Gemara word for QED

Called into a meeting and told we are being made redundant (laid off) and "not to share outside". Can I tell my partner?

Ultrafilters as a double dual

How to write a chaotic neutral protagonist and prevent my readers from thinking they are evil?

Why doesn't "adolescent" take any articles in "listen to adolescent agonising"?

Can a space-faring robot still function over a billion years?

The need of reserving one's ability in job interviews

Why is the electrolytic capacitor not polarity sensitive?

Is divide-by-zero a security vulnerability?

Professor forcing me to attend a conference

Sundering Titan and basic normal lands and snow lands

In the world of The Matrix, what is "popping"?

I've given my players a lot of magic items. Is it reasonable for me to give them harder encounters?

Using the imperfect indicative vs. subjunctive with si

I can't die. Who am I?

Quitting employee has privileged access to critical information

Why is there an extra space when I type "ls" on the Desktop?

Is there such a thing in math the inverse of a sequence?

Naming Characters after Friends/Family

Cylinder with non circle bottom, TikZ

TikZ: a cylinder of infinite heightLaTeX equivalent of ConTeXt buffersRotate a node but not its content: the case of the ellipse decorationHow to define the default vertical distance between nodes?Numerical conditional within tikz keys?TikZ: Drawing an arc from an intersection to an intersectionCylinder , circle and planeHow to prevent rounded and duplicated tick labels in pgfplots with fixed precision?TikZ: Drawing a cylinder with a hole the bottomLine up nested tikz enviroments or how to get rid of themCreating horizontal cylinder with bottom node shape in TikZ/PGF

6

3

Hi i try to plot a cylindrical domain, where the bottom of the cylinder is not a circle or ellipse.

My knowledge is very poor and all my previous attempts failed.

Failed attempt:

documentclass{article}

usepackage{tikz}

usepackage[active,tightpage]{preview}

PreviewEnvironment{tikzpicture}

begin{document}

begin{tikzpicture}



draw plot [smooth cycle] coordinates{(0,0) (1,-.5) (1.2,1.5) (0,1) (-.5,.5) (-.7,.2)};



draw plot [smooth cycle] coordinates{(3,2) (4,1.5) (4.2,3.5) (3,3) (2.5,2.5) (2.3,2.2)};





draw (1,-.5)--(4,1.5);



draw (1.2,1.5)--(4.2,3.5);



end{tikzpicture}

end{document}

tikz-pgf asymptote

share|improve this question

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  can you include your failed attempt too? It will help us to get the idea what you mean
  
  – percusse
  Oct 25 '13 at 9:14
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Here it is, very poor
  
  – Noobtron
  Oct 25 '13 at 9:33
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Can you also include a mock-up of what you are trying to achieve? It can be done with drawing software.
  
  – Alenanno
  Oct 25 '13 at 11:10
  
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Are you trying to do something like asked in this question?
  
  – Habi
  Oct 25 '13 at 14:22
  
  
  

  
  
  
  

add a comment | 

6

3

Hi i try to plot a cylindrical domain, where the bottom of the cylinder is not a circle or ellipse.

My knowledge is very poor and all my previous attempts failed.

Failed attempt:

documentclass{article}

usepackage{tikz}

usepackage[active,tightpage]{preview}

PreviewEnvironment{tikzpicture}

begin{document}

begin{tikzpicture}



draw plot [smooth cycle] coordinates{(0,0) (1,-.5) (1.2,1.5) (0,1) (-.5,.5) (-.7,.2)};



draw plot [smooth cycle] coordinates{(3,2) (4,1.5) (4.2,3.5) (3,3) (2.5,2.5) (2.3,2.2)};





draw (1,-.5)--(4,1.5);



draw (1.2,1.5)--(4.2,3.5);



end{tikzpicture}

end{document}

tikz-pgf asymptote

share|improve this question

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

• 
  
  
  

  
  3
  

  
  
  
  
  
  

  
  
  can you include your failed attempt too? It will help us to get the idea what you mean
  
  – percusse
  Oct 25 '13 at 9:14
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Here it is, very poor
  
  – Noobtron
  Oct 25 '13 at 9:33
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Can you also include a mock-up of what you are trying to achieve? It can be done with drawing software.
  
  – Alenanno
  Oct 25 '13 at 11:10
  
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Are you trying to do something like asked in this question?
  
  – Habi
  Oct 25 '13 at 14:22
  
  
  

  
  
  
  

add a comment | 

Hi i try to plot a cylindrical domain, where the bottom of the cylinder is not a circle or ellipse.

My knowledge is very poor and all my previous attempts failed.

Failed attempt:

documentclass{article}

usepackage{tikz}

usepackage[active,tightpage]{preview}

PreviewEnvironment{tikzpicture}

begin{document}

begin{tikzpicture}



draw plot [smooth cycle] coordinates{(0,0) (1,-.5) (1.2,1.5) (0,1) (-.5,.5) (-.7,.2)};



draw plot [smooth cycle] coordinates{(3,2) (4,1.5) (4.2,3.5) (3,3) (2.5,2.5) (2.3,2.2)};





draw (1,-.5)--(4,1.5);



draw (1.2,1.5)--(4.2,3.5);



end{tikzpicture}

end{document}

tikz-pgf asymptote

share|improve this question

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

documentclass{article}

usepackage{tikz}

usepackage[active,tightpage]{preview}

PreviewEnvironment{tikzpicture}

begin{document}

begin{tikzpicture}



draw plot [smooth cycle] coordinates{(0,0) (1,-.5) (1.2,1.5) (0,1) (-.5,.5) (-.7,.2)};



draw plot [smooth cycle] coordinates{(3,2) (4,1.5) (4.2,3.5) (3,3) (2.5,2.5) (2.3,2.2)};





draw (1,-.5)--(4,1.5);



draw (1.2,1.5)--(4.2,3.5);



end{tikzpicture}

end{document}

share|improve this question

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

share|improve this question

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

edited 14 mins ago

g.kov

17.4k13976

edited 14 mins ago

g.kov

17.4k13976

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

asked Oct 25 '13 at 9:02

NoobtronNoobtron

312

3 Answers
3

active

oldest

votes

9

There are many ways to visualize such a cylinder in TeX world, here is one made by means of
extrude feature of the Asymptote using raster output.

% cyl.tex :

%

documentclass{article}

usepackage[inline]{asymptote}

usepackage{lmodern}

begin{document}

begin{figure}

begin{asy}

settings.outformat="png";

settings.tex="pdflatex";

settings.render=8;

size(5cm);

import graph3;

import fontsize;

defaultpen(fontsize(9pt));



currentprojection=orthographic(camera=(3,3,6),up=Z,target=O,zoom=1);



currentlight=light(gray(0.8),ambient=rgb(0.1,0.099,0.101),specular=gray(0.7),

                     specularfactor=3,viewport=true,dir(42,48));



pair[] ppair={(0,0),(1,-.5),(1.2,1.5),(0,1),(-.5,.5),(-.7,.2)};

real height=3;



guide gbase=graph(ppair, Spline)..cycle;



pen bpen=rgb(0.1, 0.1, 0.8)+opacity(0.5);

material m=material(diffusepen=0.7bpen

,ambientpen=bpen,emissivepen=0.3*bpen,specularpen=0.999white,shininess=1.0);



draw(rotate(-90,Y)*rotate(180,Z)*extrude(gbase,height*Z),m,render(merge=true));



xaxis3("$x$",-3.2,1.2,red  ,Arrow3);

yaxis3("$y$",  -2,2,green,Arrow3);

zaxis3("$z$",  -3,3,blue ,Arrow3);



end{asy}

end{figure}

end{document}

%

% Process:

%

% pdflatex cyl.tex    

% asy cyl-*.asy    

% pdflatex cyl.tex

share|improve this answer

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

add a comment | 

7

It looks like you could use pgfplots for this, e.g.:

Code

documentclass[tikz,border=2mm]{standalone}

usepackage{pgfplots}

pgfplotsset{compat=1.8}



begin{document}



begin{tikzpicture}

    begin{axis}

    [ z buffer=sort,

    ]

        addplot3[domain=0:360,y domain=0:360,surf,shader=faceted,samples=40]

        ( {cos(y)+0.1*sin(7*y)},

            {x},

            {sin(y)+0.1*cos(3*y)}

        );

    end{axis}

end{tikzpicture}



end{document}

Output

share|improve this answer

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

add a comment | 

4

A function for the base is also possible.

documentclass[pstricks,border=12pt]{standalone}

usepackage{pst-solides3d}

begin{document}



psset{viewpoint=50 -20 40 rtp2xyz, Decran=50,linearc=0.2}

begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

linecolor=red,h=4,action=draw*]

end{pspicture}



begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

hollow,fillcolor=red!30,incolor=blue!30,

linecolor=red,h=4,action=draw**]%

end{pspicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Heart like base should be interesting.
  
  – kiss my armpit
  Oct 25 '13 at 18:40
  

  
  
  
  

add a comment | 

Your Answer

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "85"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f140576%2fcylinder-with-non-circle-bottom-tikz%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

9

There are many ways to visualize such a cylinder in TeX world, here is one made by means of
extrude feature of the Asymptote using raster output.

% cyl.tex :

%

documentclass{article}

usepackage[inline]{asymptote}

usepackage{lmodern}

begin{document}

begin{figure}

begin{asy}

settings.outformat="png";

settings.tex="pdflatex";

settings.render=8;

size(5cm);

import graph3;

import fontsize;

defaultpen(fontsize(9pt));



currentprojection=orthographic(camera=(3,3,6),up=Z,target=O,zoom=1);



currentlight=light(gray(0.8),ambient=rgb(0.1,0.099,0.101),specular=gray(0.7),

                     specularfactor=3,viewport=true,dir(42,48));



pair[] ppair={(0,0),(1,-.5),(1.2,1.5),(0,1),(-.5,.5),(-.7,.2)};

real height=3;



guide gbase=graph(ppair, Spline)..cycle;



pen bpen=rgb(0.1, 0.1, 0.8)+opacity(0.5);

material m=material(diffusepen=0.7bpen

,ambientpen=bpen,emissivepen=0.3*bpen,specularpen=0.999white,shininess=1.0);



draw(rotate(-90,Y)*rotate(180,Z)*extrude(gbase,height*Z),m,render(merge=true));



xaxis3("$x$",-3.2,1.2,red  ,Arrow3);

yaxis3("$y$",  -2,2,green,Arrow3);

zaxis3("$z$",  -3,3,blue ,Arrow3);



end{asy}

end{figure}

end{document}

%

% Process:

%

% pdflatex cyl.tex    

% asy cyl-*.asy    

% pdflatex cyl.tex

share|improve this answer

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

add a comment | 

9

There are many ways to visualize such a cylinder in TeX world, here is one made by means of
extrude feature of the Asymptote using raster output.

% cyl.tex :

%

documentclass{article}

usepackage[inline]{asymptote}

usepackage{lmodern}

begin{document}

begin{figure}

begin{asy}

settings.outformat="png";

settings.tex="pdflatex";

settings.render=8;

size(5cm);

import graph3;

import fontsize;

defaultpen(fontsize(9pt));



currentprojection=orthographic(camera=(3,3,6),up=Z,target=O,zoom=1);



currentlight=light(gray(0.8),ambient=rgb(0.1,0.099,0.101),specular=gray(0.7),

                     specularfactor=3,viewport=true,dir(42,48));



pair[] ppair={(0,0),(1,-.5),(1.2,1.5),(0,1),(-.5,.5),(-.7,.2)};

real height=3;



guide gbase=graph(ppair, Spline)..cycle;



pen bpen=rgb(0.1, 0.1, 0.8)+opacity(0.5);

material m=material(diffusepen=0.7bpen

,ambientpen=bpen,emissivepen=0.3*bpen,specularpen=0.999white,shininess=1.0);



draw(rotate(-90,Y)*rotate(180,Z)*extrude(gbase,height*Z),m,render(merge=true));



xaxis3("$x$",-3.2,1.2,red  ,Arrow3);

yaxis3("$y$",  -2,2,green,Arrow3);

zaxis3("$z$",  -3,3,blue ,Arrow3);



end{asy}

end{figure}

end{document}

%

% Process:

%

% pdflatex cyl.tex    

% asy cyl-*.asy    

% pdflatex cyl.tex

share|improve this answer

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

add a comment | 

There are many ways to visualize such a cylinder in TeX world, here is one made by means of
extrude feature of the Asymptote using raster output.

% cyl.tex :

%

documentclass{article}

usepackage[inline]{asymptote}

usepackage{lmodern}

begin{document}

begin{figure}

begin{asy}

settings.outformat="png";

settings.tex="pdflatex";

settings.render=8;

size(5cm);

import graph3;

import fontsize;

defaultpen(fontsize(9pt));



currentprojection=orthographic(camera=(3,3,6),up=Z,target=O,zoom=1);



currentlight=light(gray(0.8),ambient=rgb(0.1,0.099,0.101),specular=gray(0.7),

                     specularfactor=3,viewport=true,dir(42,48));



pair[] ppair={(0,0),(1,-.5),(1.2,1.5),(0,1),(-.5,.5),(-.7,.2)};

real height=3;



guide gbase=graph(ppair, Spline)..cycle;



pen bpen=rgb(0.1, 0.1, 0.8)+opacity(0.5);

material m=material(diffusepen=0.7bpen

,ambientpen=bpen,emissivepen=0.3*bpen,specularpen=0.999white,shininess=1.0);



draw(rotate(-90,Y)*rotate(180,Z)*extrude(gbase,height*Z),m,render(merge=true));



xaxis3("$x$",-3.2,1.2,red  ,Arrow3);

yaxis3("$y$",  -2,2,green,Arrow3);

zaxis3("$z$",  -3,3,blue ,Arrow3);



end{asy}

end{figure}

end{document}

%

% Process:

%

% pdflatex cyl.tex    

% asy cyl-*.asy    

% pdflatex cyl.tex

share|improve this answer

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

% cyl.tex :

%

documentclass{article}

usepackage[inline]{asymptote}

usepackage{lmodern}

begin{document}

begin{figure}

begin{asy}

settings.outformat="png";

settings.tex="pdflatex";

settings.render=8;

size(5cm);

import graph3;

import fontsize;

defaultpen(fontsize(9pt));



currentprojection=orthographic(camera=(3,3,6),up=Z,target=O,zoom=1);



currentlight=light(gray(0.8),ambient=rgb(0.1,0.099,0.101),specular=gray(0.7),

                     specularfactor=3,viewport=true,dir(42,48));



pair[] ppair={(0,0),(1,-.5),(1.2,1.5),(0,1),(-.5,.5),(-.7,.2)};

real height=3;



guide gbase=graph(ppair, Spline)..cycle;



pen bpen=rgb(0.1, 0.1, 0.8)+opacity(0.5);

material m=material(diffusepen=0.7bpen

,ambientpen=bpen,emissivepen=0.3*bpen,specularpen=0.999white,shininess=1.0);



draw(rotate(-90,Y)*rotate(180,Z)*extrude(gbase,height*Z),m,render(merge=true));



xaxis3("$x$",-3.2,1.2,red  ,Arrow3);

yaxis3("$y$",  -2,2,green,Arrow3);

zaxis3("$z$",  -3,3,blue ,Arrow3);



end{asy}

end{figure}

end{document}

%

% Process:

%

% pdflatex cyl.tex    

% asy cyl-*.asy    

% pdflatex cyl.tex

share|improve this answer

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

answered Oct 25 '13 at 16:07

g.kovg.kov

17.4k13976

7

It looks like you could use pgfplots for this, e.g.:

Code

documentclass[tikz,border=2mm]{standalone}

usepackage{pgfplots}

pgfplotsset{compat=1.8}



begin{document}



begin{tikzpicture}

    begin{axis}

    [ z buffer=sort,

    ]

        addplot3[domain=0:360,y domain=0:360,surf,shader=faceted,samples=40]

        ( {cos(y)+0.1*sin(7*y)},

            {x},

            {sin(y)+0.1*cos(3*y)}

        );

    end{axis}

end{tikzpicture}



end{document}

Output

share|improve this answer

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

add a comment | 

7

It looks like you could use pgfplots for this, e.g.:

Code

documentclass[tikz,border=2mm]{standalone}

usepackage{pgfplots}

pgfplotsset{compat=1.8}



begin{document}



begin{tikzpicture}

    begin{axis}

    [ z buffer=sort,

    ]

        addplot3[domain=0:360,y domain=0:360,surf,shader=faceted,samples=40]

        ( {cos(y)+0.1*sin(7*y)},

            {x},

            {sin(y)+0.1*cos(3*y)}

        );

    end{axis}

end{tikzpicture}



end{document}

Output

share|improve this answer

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

add a comment | 

It looks like you could use pgfplots for this, e.g.:

Code

documentclass[tikz,border=2mm]{standalone}

usepackage{pgfplots}

pgfplotsset{compat=1.8}



begin{document}



begin{tikzpicture}

    begin{axis}

    [ z buffer=sort,

    ]

        addplot3[domain=0:360,y domain=0:360,surf,shader=faceted,samples=40]

        ( {cos(y)+0.1*sin(7*y)},

            {x},

            {sin(y)+0.1*cos(3*y)}

        );

    end{axis}

end{tikzpicture}



end{document}

Output

share|improve this answer

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

documentclass[tikz,border=2mm]{standalone}

usepackage{pgfplots}

pgfplotsset{compat=1.8}



begin{document}



begin{tikzpicture}

    begin{axis}

    [ z buffer=sort,

    ]

        addplot3[domain=0:360,y domain=0:360,surf,shader=faceted,samples=40]

        ( {cos(y)+0.1*sin(7*y)},

            {x},

            {sin(y)+0.1*cos(3*y)}

        );

    end{axis}

end{tikzpicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

answered Oct 25 '13 at 15:41

Tom BombadilTom Bombadil

35.1k8114172

4

A function for the base is also possible.

documentclass[pstricks,border=12pt]{standalone}

usepackage{pst-solides3d}

begin{document}



psset{viewpoint=50 -20 40 rtp2xyz, Decran=50,linearc=0.2}

begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

linecolor=red,h=4,action=draw*]

end{pspicture}



begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

hollow,fillcolor=red!30,incolor=blue!30,

linecolor=red,h=4,action=draw**]%

end{pspicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Heart like base should be interesting.
  
  – kiss my armpit
  Oct 25 '13 at 18:40
  

  
  
  
  

add a comment | 

4

A function for the base is also possible.

documentclass[pstricks,border=12pt]{standalone}

usepackage{pst-solides3d}

begin{document}



psset{viewpoint=50 -20 40 rtp2xyz, Decran=50,linearc=0.2}

begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

linecolor=red,h=4,action=draw*]

end{pspicture}



begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

hollow,fillcolor=red!30,incolor=blue!30,

linecolor=red,h=4,action=draw**]%

end{pspicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Heart like base should be interesting.
  
  – kiss my armpit
  Oct 25 '13 at 18:40
  

  
  
  
  

add a comment | 

A function for the base is also possible.

documentclass[pstricks,border=12pt]{standalone}

usepackage{pst-solides3d}

begin{document}



psset{viewpoint=50 -20 40 rtp2xyz, Decran=50,linearc=0.2}

begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

linecolor=red,h=4,action=draw*]

end{pspicture}



begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

hollow,fillcolor=red!30,incolor=blue!30,

linecolor=red,h=4,action=draw**]%

end{pspicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

documentclass[pstricks,border=12pt]{standalone}

usepackage{pst-solides3d}

begin{document}



psset{viewpoint=50 -20 40 rtp2xyz, Decran=50,linearc=0.2}

begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

linecolor=red,h=4,action=draw*]

end{pspicture}



begin{pspicture}(-1,-1)(4,4)

psSolid[object=prisme,axe=0 0.5 1,

base= 0 0 1 -.5 1.2 1.5 0 1 -.5 .5 -.7 .2 ,

hollow,fillcolor=red!30,incolor=blue!30,

linecolor=red,h=4,action=draw**]%

end{pspicture}



end{document}

share|improve this answer

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731

answered Oct 25 '13 at 18:02

HerbertHerbert

275k25418731