slim 1 extensions ptakun {
extensions ptakun alpha {	
template color ShaveRibVariable {
    label ShaveRibVariable    
	parameter string dataname {
    label "Variable"
    	
    subtype selector
    description { 
        Choose a coordinate system from these
        fixed options.
        }
    range {
		Color Cs
		Opacity Os
        TipColor tipcolor
		RootColor rootcolor    
        }
    default Cs
    }
    parameter float Multiplier {
        description {
            A multiplier for the underlying vertex variable.
        }
        default 1
        detail varying
    }
    parameter color result {
        detail varying
        access output
        display hidden
    }
    RSLSource DynamicFunction {
     	
     	proc primvars {} {
            set nm [getval dataname]
            if {$nm != ""} {
                declare output varying color $nm 0
            }
     	}
     	
     	proc function {} {
            generateBody {
             	set varnm [getval dataname]
             	if {$varnm == {}} {
                    output "/* no name entered for primitive variable */"
                    output "result = Multiplier;"
             	} else {
                   
                    output "extern color $varnm;"
                    output "result = Multiplier*$varnm;"
             	}
            }
     	}
    }
}
}}