surface mytex param string fname "" param float xmin 1.0126 param float xmax 2.4649 param float zmin 0.9148 param float zmax 1.39328 param float Ka 1 param float Kd 1 param float Ks 0 param float roughness 0.25 param color specularcolor 1 1 1 local string $_str_0 "" local string $_str_1 "shader" local vector Nf 0 0 0 local vector NI 0 0 0 local color ctx 0 0 0 local point PP 0 0 0 initcode 9 return code pushv P pushs $_str_1 transforms popv PP pushv I pushv N normalize faceforward popv Nf pushs $_str_0 pushs fname seq ifz 0 pushif 1 cset ctx jump 1 label 0 pushf zmin subF zmax pushf zmin pushv PP zcomp subff divff pushf xmin subF xmax pushf xmin pushv PP xcomp subff divff pushif -1 pushs fname pushif 2 pushif 2 ctexture popc ctx label 1 return_area pushc ctx pushv Nf diffuse mulFv Kd ambient mulFv Ka addcc mulcc popc Ci pushif 0 pushf Ks fnef ifz 2 pushv I negv normalize popv NI pushf roughness pushv NI pushv Nf specular pushc specularcolor mulFv Ks mulcc addC Ci popc Ci label 2 label 3 cpCC Os Oi pushc Oi mulC Ci popc Ci return