Does Asymptote define a command which is equivalent with fillcolor and incolor of pst-solides3d?

Question

http://pstricks.blogspot.com/2015/02/tore-evide-avec-pst-solides3d.html

Asymptote code,

settings.render=10;
import graph3;
// import palette;

currentprojection=orthographic(1,1,.5);

size(7cm);
defaultrender.merge=true;

triple f(pair z) {
real u=z.x,v=z.y;
return ((3+ 1.5*cos(u))*cos(v),1.5*sin(u),(3+ 1.5*cos(u))*sin(v));
}

surface s=surface(f,(pi/4,0),(1.75*pi,2pi),24,48,Spline);

draw(s,cyan,black+0.6bp);

draw(Label("$y$",1),(0,-6,0)--(0,6,0),red,Arrow3);
draw(Label("$x$",1),(-6,0,0)--(6,0,0),red,Arrow3);
draw(Label("$z$",1),(0,0,-5)--(0,0,6),red,Arrow3);

Question:

How can I fill inside and outside like this torus in Asymptote?

Answer 1

This is almost exactly copied from this answer except that I use your surface, changed the colors to black and white, and adjusted n.

\documentclass[margin=10pt, convert]{standalone}
\usepackage{asypictureB}
\begin{document}
\begin{asypicture}{name=plane}
settings.render=10;
import graph3;
// import palette;

currentprojection=orthographic(1,1,.5);

size(7cm);
defaultrender.merge=true;

int n = 48;

triple f(pair z) {
real u=z.x,v=z.y;
return ((3+ 1.5*cos(u))*cos(v),1.5*sin(u),(3+ 1.5*cos(u))*sin(v));
}

surface s=surface(f,(pi/4,0),(1.75*pi,2pi),24,48,Spline);

material[] surfacepen = new material[] {black,white};
surfacepen.cyclic = true;
if (n % 2 == 0) {
    surfacepen = sequence(new material(int i) {
            if (i >= n) ++i;
            return surfacepen[i];
            }, 
        2n);
    write(surfacepen.length);
    surfacepen.cyclic=true;
}


draw(s, surfacepen=surfacepen);

draw(Label("$y$",1),(0,-6,0)--(0,6,0),red,Arrow3);
draw(Label("$x$",1),(-6,0,0)--(6,0,0),red,Arrow3);
draw(Label("$z$",1),(0,0,-5)--(0,0,6),red,Arrow3);
\end{asypicture}
\end{document}

If you want to color the inner and outer parts of the surface differently, then you need to clarify what is meant by that. In general this requires an orientable surface, e.g. a Moebius strip does not have inner and outer parts. Of course, like in PSTricks, you can do it "by hand".

\documentclass[margin=10pt, convert]{standalone}
\usepackage{asypictureB}
\begin{document}
\begin{asypicture}{name=plane}
settings.render=10;
import graph3;
// import palette;

currentprojection=orthographic(1,1,.5);

size(7cm);
defaultrender.merge=true;

int n = 48;

triple fi(pair z) {
real u=z.x,v=z.y;
return ((3+ 1.5*cos(u))*cos(v),1.5*sin(u),(3+ 1.5*cos(u))*sin(v));
}

surface si=surface(fi,(pi/4,0),(1.75*pi,2pi),24,48,Spline);

material[] surfacepeni = new material[] {red,white};
surfacepeni.cyclic = true;
if (n % 2 == 0) {
    surfacepeni = sequence(new material(int i) {
            if (i >= n) ++i;
            return surfacepeni[i];
            }, 
        2n);
    write(surfacepeni.length);
    surfacepeni.cyclic=true;
}


draw(si, surfacepen=surfacepeni);

triple fo(pair z) {
real u=z.x,v=z.y;
return ((3+ 1.501*cos(u))*cos(v),1.501*sin(u),(3+ 1.501*cos(u))*sin(v));
}

surface so=surface(fo,(pi/4,0),(1.75*pi,2pi),24,48,Spline);

material[] surfacepeno = new material[] {black,white};
surfacepeno.cyclic = true;
if (n % 2 == 0) {
    surfacepeno = sequence(new material(int i) {
            if (i >= n) ++i;
            return surfacepeno[i];
            }, 
        2n);
    write(surfacepeno.length);
    surfacepeno.cyclic=true;
}


draw(so, surfacepen=surfacepeno);


draw(Label("$y$",1),(0,-6,0)--(0,6,0),red,Arrow3);
draw(Label("$x$",1),(-6,0,0)--(6,0,0),red,Arrow3);
draw(Label("$z$",1),(0,0,-5)--(0,0,6),red,Arrow3);
\end{asypicture}
\end{document}