Creare file SVG con le risorse del Componente gb.cairo

Da Gambas-it.org - Wikipedia.

Il Componente di Gambas gb.cairo consente, fra l'altro, di creare file SVG disegnandovi figure, testo, immagini ed in generale ogni altro elemento di disegno.

E' necessario impostare innanzitutto una superficie grafica già fornita dal Componente gb.cairo, ad esempio quella per generare file SVG (CairoSvgSurface), sulla quale disegnare. Se si intende creare un file di tipo SVG si imposterà come primo parametro anche il percorso ove il nuovo file SVG verrà salvato. Si potrà quindi iniziare il disegno con la Classe Cairo.

Mostriamo di seguito un semplice esempio per disegnare e generare un file SVG.
Al termine verrà posto il Metodo ".Finish()" della Classe CairoSvgSurface, per generare il file immagine SVG.

Public Sub Button1_Click()

 Dim svg As CairoSvgSurface
 Dim x, y As Integer
 Dim im, im2 As Image

' Specifica la superficie grafica da creare per disegnarvi sopra.
' Per la creazione di un file immagine di formato SVG, va passato al 1° argomento il percorso ove il file immagine sarà salvato.
' (il 2° e il 3° argomento sono espressi in millimetri).
 svg = New CairoSvgSurface("/percorso/del/file/SVG/da/creare", 210, 297)

 With Cairo
' Inizia il disegno sulla superficie impostata:
   .Begin(svg)
' Disegna un arco:
   .LineWidth = 10.0
   .Arc(300, 300, 100.0, 45.0 * (Pi / 180.0), 180.0 * (Pi / 180.0))
   .Source = .ColorPattern(Color.Blue)    ' Imposta il colore dell'elemento del disegno
   .Stroke
' Disegna un arco colorato pieno:
   .LineWidth = 10.0
   .ArcNegative(400, 300, 100.0, 45.0 * (Pi / 180.0), 180.0 * (Pi / 180.0))
   .Source = .ColorPattern(Color.Orange)
   .Fill   
' Scrive il testo:
   .Font.Size = 20
   .Font.Name = "URW Palladio L"
   .Source = .ColorPattern(Color.Red)
   .MoveTo(100, 200)
   .DrawText("Drawtext")
   .Fill
   .Source = .ColorPattern(Color.Green)
   .MoveTo(400, 300)
   .Text("Text")
   .Fill
' Disegna 10x10 quadrati pieni:
   For x = 0 To 9
     For y = 0 To 9
       .Rectangle(200 + x * 10.0, 500 + y * 10.0, 5, 5)
     Next
   Next
   .Source = .ColorPattern(Color.Violet)
   .Fill
' Vengono inserite due immagini caricate da due file SVG:
   im = Image.Load("/usr/share/icons/breeze-dark/devices/64/battery.svg")
   im2 = Image.Load("/usr/share/icons/breeze-dark/devices/64/media-optical-video.svg")
   .Source = .ImagePattern(im, 350, 600)
   .Paint           ' Imposta l'immagine sulla superficie SVG
   .Source = .ImagePattern(im2, 400, 200)
   .Paint
' Termina il disegno:
   .End
 End With

' Per generare il file di formato SVG, va utilizzato il Metodo ".Finish()":
 svg.Finish
 
End