$cr->set_source_rgba ($red, $green, $blue, $alpha)
           $red: double
           $green: double
           $blue: double
           $alpha: double