principal

' Gambas class file

' Patron Bridge...

Public Sub _new()

End

Public Sub Form_Open()

  Dim rectang As Rectangulo
  Dim dp As New DibujandoPuntueado
  Dim dn As New DibujandoNormal

  rectang = New Rectangulo(dp)
  rectang.Dibuja()

  rectang = New Rectangulo(dn)
  rectang.Dibuja()

  dibujandoCirculo()

End

Public Sub dibujandoCirculo()

  Dim circu As Circulo
  Dim dp As New DibujandoPuntueado
  Dim dn As New DibujandoNormal

  circu = New Circulo(dp)
  circu.Dibuja()

  circu = New Circulo(dn)
  circu.Dibuja()

End