#VRML V2.0 utf8

PROTO PhongAppearance [
 exposedField SFNode cd NULL
 exposedField SFFloat rd 0.
 exposedField SFNode cs NULL
 exposedField SFFloat rs 0.
 exposedField SFFloat sharpness 0.
] {
   PhBAppearance {
      surface PhBHomogeneousSurface {
	 bsdf [ PhBSDF {
	    intensity IS rd
	    spectrum IS cd
	    scatterer PhBDiffuseReflector {}
	 } , PhBSDF {
	    intensity IS rs
	    spectrum IS cs
	    scatterer PhBPhongReflector { sharpness IS sharpness }
	 } ]
      }
   }
}

Transform {
   children Shape {
      geometry Sphere {}
      appearance DEF bla PhongAppearance {
	 rd 0.6
	 rs 0.4 sharpness 3600
      }
   }
}
