[pstricks] object=courbe in fusion

[Zbigniew Nitecki]

The code and picture below show the graph of a function, a plane parallel to the yz-plane cutting it at (1,1/2,1/8) (object=grille),
and the curve of intersection, created as object=courbe (I found that trying to use intersectiontype=0, etc---see commented stuff---
doesn't work here).  

object=courbe involves two width parameters:  linewidth appears to have no effect, whereas r= (r is the radius
of the object drawn as a "tube" around the purported curve) does.  I needed to put the curve slightly to the left of the plane to avoid
interaction with it, but would like to get a somewhat thinner "linewidth" without it breaking up due to the grille.

Furthermore, even though linecolor=blue, the curve comes out black.  

Any fix for either problem?
###########################################################
> % !TEX TS-program = latex
> \listfiles
> %\documentclass[11pt]{article}
> %\usepackage{pst-solides3d, pst-3dplot, pst-math,pstricks-add}
> %\usepackage{pst-3d}
> %\usepackage{graphicsmacros}
> \listfiles
> \documentclass[11pt]{article}
> \usepackage{pst-solides3d}
> \begin{document}
> \begin{pspicture}(-1.5,-2)(1.5,3)
> \psset{solidmemory}
> \psset{unit=0.5}
> \psset{lightsrc=50 80 10, viewpoint=15 60 20 rtp2xyz,Decran=50}
> % first surface
> \defFunction[algebraic]{Func}(x,y){}{}{ (x^2-3*y^2)/2 }{}{}
> \psSolid[
>  object=surface,
>  fillcolor=lightgray,
>  incolor=green!30,
>  function=Func,
>  base=-0.5 1.5 -1 1.0,
>  ngrid=0.1 0.1,
> %	intersectiontype=0,
> %	intersectionplan={[1 0 0 -1]},
> %	intersectionlinewidth=1.5,
> %	intersectioncolor=bleu,
> % 
>  action=none,
>  name=graphsurfA](0,0,0)
> %slicing plane in y direction
> \psSolid[object=grille,
> 	base=-1.0 1.5 -2.0 1.0,
> 	RotY=90,
> 	ngrid=15 15,
> 	action=none,
> 	name=planey
> 		](1,0.5,0.25)
> 		
> % intersection curve
> \defFunction[algebraic]{curvey}(t){1}{t}{0.5-1.5*t^2}
> \psSolid[%
> object=courbe,
> r=0.05,
> range=-1.0 1.0,
> resolution=720,
> linecolor=blue,
> linewidth=1.5pt,
> function=curvey,
> action=none,
> name=curvey,
> ](0.05,0,0)%
> 
> % combine both surfaces
> \psSolid[
>  object=fusion,
>  action=draw**,
>  base=graphsurfA planey curvey,
>  	]
> %
> \composeSolid
> \end{pspicture}
> 
> \end{document}
##############################################################


Zbigniew Nitecki
Department of Mathematics
Tufts University
Medford, MA 02155

telephones:
Office    (617)627-3843
Dept.    (617)627-3234
Dept. fax    (617)627-3966
http://www.tufts.edu/~znitecki/

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20100729/c11b6ede/attachment-0002.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pst3d test 1.3.5.pdf
Type: application/pdf
Size: 44059 bytes
Desc: not available
URL: <http://tug.org/pipermail/pstricks/attachments/20100729/c11b6ede/attachment-0001.pdf>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://tug.org/pipermail/pstricks/attachments/20100729/c11b6ede/attachment-0003.html>