surface cmarble param float Ks 0.4 param float Kd 0.6 param float Ka 0.1 param float roughness 0.1 param float veining 1 param color specularcolor 1 1 1 local string $_str_0 "shader" local string $_str_1 "Rb" local string $_str_2 "Rg" local string $_str_3 "Gb" local string $_str_4 "Gr" local string $_str_5 "Br" local string $_str_6 "Bg" local point PP 0 0 0 local float cmi 0 local point V 0 0 0 local point Nf 0 0 0 local color diffusecolor 0 0 0 local float pixelsize 0 local float twice 0 local float scale 0 local float weight 0 local float turbulence 0 local string spoke "" local float x 0 local float hue 0 local float sat 0 local float val 0 local float red 0 local float grn 0 local float blu 0 initcode 5 return code pushv I pushv N normalize faceforward popv Nf pushv I normalize negv popv V pushf veining pushv P pushs $_str_0 transforms mulvf popv PP pushif 2 pushv PP divvf popv PP pushv PP area sqrt popf pixelsize return_area pushf pixelsize pushif 2 mulff popf twice pushif 0 popf turbulence pushif 1 popf scale label 0 pushf twice pushf scale gt ifz 2 pushif 0.5 pushf scale pushv PP divvf noisev subff abs mulF scale addF turbulence popf turbulence label 1 pushif 2 divF scale popf scale jump 0 label 2 pushf pixelsize pushf scale gt ifz 3 pushif 1 pushf pixelsize divF scale subff popf weight pushif 1 pushif 0 pushf weight fclamp popf weight pushif 0.5 pushf scale pushv PP divvf noisev subff abs pushf scale mulF weight mulff addF turbulence popf turbulence label 3 label 4 pushif 1 pushif 0 pushf turbulence fclamp popf cmi pushif 0 pushc Cs comp popf red pushif 1 pushc Cs comp popf grn pushif 2 pushc Cs comp popf blu pushf blu pushf red ge pushf grn pushf red ge and ifz 5 cpFF red val pushf blu pushf grn gt ifz 7 cpFF blu x pushs $_str_1 pops spoke jump 8 label 7 cpFF grn x pushs $_str_2 pops spoke label 8 jump 6 label 5 pushf blu pushf grn ge pushf red pushf grn ge and ifz 9 cpFF grn val pushf blu pushf red gt ifz 11 cpFF blu x pushs $_str_3 pops spoke jump 12 label 11 cpFF red x pushs $_str_4 pops spoke label 12 jump 10 label 9 cpFF blu val pushf red pushf grn gt ifz 13 cpFF red x pushs $_str_5 pops spoke jump 14 label 13 cpFF grn x pushs $_str_6 pops spoke label 14 label 10 label 6 pushif 0 popf hue pushif 0 popf sat pushif 0 pushf val gt ifz 15 pushf val pushf x subF val divff popf sat pushif 0 pushf sat gt ifz 17 pushs $_str_1 pushs spoke seq ifz 19 pushf x subF val pushf grn subF val divff pushif 1 subff popf hue jump 20 label 19 pushs $_str_2 pushs spoke seq ifz 21 pushf x subF val pushf blu subF val divff pushif 5 addff popf hue jump 22 label 21 pushs $_str_4 pushs spoke seq ifz 23 pushf x subF val pushf blu subF val divff pushif 3 subff popf hue jump 24 label 23 pushs $_str_3 pushs spoke seq ifz 25 pushf x subF val pushf red subF val divff pushif 1 addff popf hue jump 26 label 25 pushs $_str_5 pushs spoke seq ifz 27 pushf x subF val pushf grn subF val divff pushif 3 addff popf hue jump 28 label 27 pushs $_str_6 pushs spoke seq ifz 29 pushf x subF val pushf red subF val divff pushif 5 subff popf hue label 29 label 30 label 28 label 26 label 24 label 22 label 20 pushif 0.166667 mulF hue popf hue label 17 label 18 label 15 label 16 pushif 0 pushif 0.01 pushif 0.01 pushif 0.02 pushif 0.03 pushif 0.06 pushif 0.2 pushif 0.999 pushif 0.999 pushf turbulence pushif 9 spline mulF sat popf sat pushif 0.999 pushif 0.999 pushif 0.999 pushif 0.999 pushif 0.8 pushif 0.8 pushif 0.8 pushif 0.8 pushif 0 pushif 0 pushif 0 pushf turbulence pushif 11 spline pushif 0 pushif 0 pushif 0 pushif 0 pushif 0 pushif 0 pushif 0 pushif 0 pushif 0.4 pushif 0.999 pushif 0.999 pushf turbulence pushif 11 spline mulF val addff popf val pushf val pushf sat pushf hue hsv_to_rgb popc diffusecolor cpCC Os Oi pushv Nf diffuse mulFv Kd ambient mulFv Ka addcc mulC diffusecolor popc Ci pushf roughness pushv V pushv Nf specular pushf Ks pushc specularcolor mulcf mulcc addC Ci mulC Os popc Ci return