Scrivere testo

Puoi scrivere testo scegliendo: font, dimensione, grassetto e corsivo

GraphicsWindow.FontName="Courier New"

x =25
y0=25

GraphicsWindow.FontBold  ="false"
GraphicsWindow.FontItalic="false"
scrivi()
GraphicsWindow.FontBold  ="false"
GraphicsWindow.FontItalic="true"
scrivi()
GraphicsWindow.FontBold  ="true"
GraphicsWindow.FontItalic="false"
scrivi()
GraphicsWindow.FontBold  ="true"
GraphicsWindow.FontItalic="true"
scrivi()

Sub scrivi
  y=y0 
  For i=1 To 13
    GraphicsWindow.FontSize=8+i*2 
    GraphicsWindow.DrawText(x,y,"ValCon")
    y=y+30
  EndFor
  x=x+150
EndSub