Public Sub Example10()
  
  Dim D As Integer
  
  Paint.Brush = Paint.LinearGradient(0, 0, 0, 256, [Color.Black, Color.White], [1.0, 0.0])
  Paint.LineWidth = 16

  For D = 8 To 128 Step 24
    Paint.Rectangle(D, D, 256 - D * 2, 256 - D * 2)
    Paint.Stroke
  Next

  Paint.Brush = Paint.RadialGradient(102.4, 102.4, 128.0, 115.2, 102.4, [Color.Black, Color.White], [1.0, 0.1])
  Paint.Arc(128, 128, 76.8)
  Paint.Fill
  
End
