surface stippled param float Ks 0.3 param float Kd 0.8 param float Ka 0.1 param float roughness 0.3 param float grainsize 0.01 param float stippling 0.2 param color specularcolor 1 1 1 local string $_str_0 "shader" local point V 0 0 0 local point Nf 0 0 0 local point Nfake 0 0 0 local point Ndiddle 0 0 0 local point PP 0 0 0 local float disp 0 local float pixelsize 0 local float Kflat 0 local color Cstippled 0 0 0 local color Cflat 0 0 0 initcode 6 return code pushv I pushv N normalize faceforward popv Nf pushv I normalize negv popv V pushv P pushs $_str_0 transforms popv PP pushif 0.5 pushf grainsize pushv PP divvf pointnoisev subvf mulFv stippling popv Ndiddle pushv Ndiddle addV Nf normalize popv Nfake pushf roughness pushv V pushv Nfake specular pushf Ks pushc specularcolor mulcf mulcc pushv Nfake diffuse mulFv Kd ambient mulFv Ka addcc mulC Cs addcc mulC Os popc Cstippled pushv PP area sqrt popf pixelsize return_area cpCC Os Oi pushf pixelsize pushf grainsize ge ifz 0 cpCC Cstippled Ci jump 1 label 0 pushf roughness pushv V pushv Nf specular pushf Ks pushc specularcolor mulcf mulcc pushv Nf diffuse mulFv Kd ambient mulFv Ka addcc mulC Cs addcc mulC Os popc Cflat pushf pixelsize divF grainsize pushif 1 pushif 0 smoothstep pushc Cstippled pushc Cflat cmix popc Ci label 1 return