That seems to do it. Thank you very much.
You may try with a replacement rule:
Show[g1 /. _Hue -> Red, g2 /. _Hue -> Green]
