Well i would have assumed the picture description is pretty self explanatory, with the added question of what the surface sampler is doing. But I digress. Heres a script snipet that builds it for you. Be sure to use mentalray, fine view dependnt displacement approximation with a 0.5 -1 length and sufficently accurate alpha.
proc string[] createShader(string $type){
string $shader = `shadingNode -asShader $type`;
string $set = `sets -renderable true -noSurfaceShader true
-empty -name ($shader + "SG")`;
connectAttr -f ($shader + ".outColor") ($set + ".surfaceShader");
return {$shader,$set};
}
{
string $shader[] = `createShader lambert`;
string $plane[] = `nurbsPlane -p 0 0 0
-ax 0 1 0 -w 1
-lr 1 -d 3 -u 1
-v 1 -ch 1`;
sets -e -forceElement $shader[1] $plane[0];
string $file = `shadingNode -asTexture file`;
string $disp = `shadingNode -asShader displacementShader`;
connectAttr -f ($file + ".outAlpha") ($disp + ".displacement");
connectAttr -f ($disp + ".displacement") ($shader[1] + ".displacementShader");
string $info = `shadingNode -asUtility samplerInfo`;
string $cond = `shadingNode -asUtility condition`;
connectAttr -f ($cond + ".outColor") ($shader[0] + ".transparency");
connectAttr -f ($info + ".pointObjY") ($cond + ".firstTerm");
setAttr ($cond + ".operation") 2;
setAttr ($cond + ".secondTerm") 0.001;
}
PS you can project the carton substructure from the side