surface wood param float Ka 1 param float Kd 0.6 param float Ks 0.4 param float roughness 0.2 param float grain 5 param float swirl 0.25 param float swirlfreq 1 param point c0 0 0 0 local string $_str_1 "current" param point c1 0 0 0 param color specularcolor 1 1 1 param color darkcolor -1 -1 -1 local string $_str_0 "shader" local point cP 0 0 0 local point C1 0 0 0 local point C0 0 0 0 local point PP 0 0 0 local point Nf 0 0 0 local point V 0 0 0 local point newP 0 0 0 local float dd 0 local float pd 0 local float alpha 0 local float nn 0 local float defaultweight 0 local color Cwood 0 0 0 local color mixcolor 0 0 0 initcode 7 pushiv 0 0 0 pushs $_str_1 pushs $_str_0 transform2s popv c0 initcode 8 pushiv 0 0 1 pushs $_str_1 pushs $_str_0 transform2s popv c1 initcode 10 return code return_area pushif 0.3 popf defaultweight pushv I pushv N normalize faceforward popv Nf pushv I normalize negv popv V pushv c1 pushs $_str_0 transforms popv C1 pushv c0 pushs $_str_0 transforms popv C0 pushv C0 subV C1 normalize popv cP pushv P pushs $_str_0 transforms popv newP pushv C0 subV newP popv PP pushv cP pushv PP vdot popf pd pushf pd mulF pd pushv PP pushv PP vdot subff abs sqrt popf dd pushv newP mulFv swirlfreq noisev mulF swirl popf nn pushv newP pushf swirlfreq pushif 2 mulff mulfv noisev pushf swirl pushif 0.5 mulff mulff addF nn popf nn pushv newP pushf swirlfreq pushif 4 mulff mulfv noisev pushf swirl pushif 0.25 mulff mulff addF nn popf nn pushv newP pushf swirlfreq pushif 8 mulff mulfv noisev pushf swirl pushif 0.125 mulff mulff addF nn popf nn pushv newP pushf swirlfreq pushif 16 mulff mulfv noisev pushf swirl pushif 0.0625 mulff mulff addF nn popf nn pushv newP pushf swirlfreq pushif 32 mulff mulfv noisev pushf swirl pushif 0.03125 mulff mulff addF nn popf nn pushf nn addF dd popf dd pushif 1 pushf dd mulF grain mod popf alpha pushf alpha mulF alpha popf alpha pushf dd pushf grain pushif 10 mulff mulff noisef pushif 0.3 mulff pushif 0.8 pushif 5 pushf alpha pushif 1 subff divff addff subff popf alpha pushif 0.5 pushif 0.5 subF alpha divff popf alpha pushif 0 pushif 0 pushc darkcolor comp lt ifz 0 pushc Cs mulFv defaultweight popc mixcolor jump 1 label 0 cpCC darkcolor mixcolor label 1 pushf alpha pushc Cs pushc mixcolor cmix popc Cwood cpCC Os Oi pushf roughness pushv V pushv Nf specular pushc specularcolor pushf Ks pushif 0.75 pushf alpha pushif 1 subff addff mulff mulfc mulcc pushv Nf diffuse mulFv Kd ambient mulFv Ka addcc mulC Cwood addcc mulC Os popc Ci return