(
	::CB_NewNodeMtl
	::CB_graymaterial = Standard()

	fn CB_NewNodeMtl =
	(
		thenode = callbacks.notificationParam()
		if iskindof thenode geometryclass then
		(
			if thenode.material == undefined then
			(
				thenode.material = CB_graymaterial
				thenode.wirecolor = black
			)
		)
	)
	callbacks.removeScripts id:#createnodemtl
	callbacks.addScript #nodecreated "CB_NewNodeMtl()" id:#createnodemtl
)