Sample Code

' coded by Mike Lobko-Lobanovsky

#Uses "@|WIN32"

Fbsl_SetFormColor(ME, Rgb(255, 255, 255))

Const WM_DRAW = WM_USER + 0x100

Fbsl_SetText(ME, "SideshowBob's Special")

Resize(ME, 0, 0, 250, 200)

Center(ME)

Show(ME)

Draw()

Begin Events

Select Case CBMSG

Case WM_DRAW

Draw()

Case WM_PAINT, WM_NCPAINT

PostMessage(ME, WM_DRAW, 0, 0)

Case WM_CLOSE

ExitProgram(0)

End Select

End Events

Sub Draw()

Dim hDC = GetDC(ME)

'=======

' Hair

'=======

Arc(hDC, 25, 41, 8, 56, 0, 3)

Arc(hDC, 20, 27, 8, 56, 0, 3)

Arc(hDC, 20, 28, 0, 38, 0, 3)

Arc(hDC, 24, 13, 0, 38, 0, 3)

Arc(hDC, 24, 13, 9, 8, 0, 0.2)

Arc(hDC, 42, 9, 7, 9, 0, 2)

Arc(hDC, 64, 2, 41, 9, 0, 2.2)

Arc(hDC, 64, 4, 53, 13, 0, 2)

Arc(hDC, 79, 22, 53, 14, 0, 0.7)

Arc(hDC, 79, 22, 62, 21, 0, 0.3)

Arc(hDC, 76, 46, 62, 21, 0, 0.5)

Arc(hDC, 76, 46, 62, 32, 0, 0.5)

Arc(hDC, 66, 62, 62, 31, 0, 0.4)

Arc(hDC, 66, 62, 59, 51, 0, 0.5)

Arc(hDC, 48, 67, 61, 41, 0, 3)

Arc(hDC, 48, 67, 44, 42, 0, 0.2)

Arc(hDC, 40, 49, 46, 35, 0, 10)

Arc(hDC, 40, 49, 34, 35, 0, 0.05)

Arc(hDC, 26, 46, 34, 35, 0, 50)

Arc(hDC, 26, 46, 20, 35, 0, 0.05)

Fill(hDC, 30, 30, Rgb(196, 0, 52))

'=======

' Face

'=======

Arc(hDC, 46, 49, 41, 60, 0, 7)

Arc(hDC, 40, 65, 38, 61, 0, 3)

Arc(hDC, 40, 66, 38, 84, 0, 7)

Arc(hDC, 24, 41, 22, 56, 0, 3)

Arc(hDC, 27, 49, 20, 63, 0, 5)

Arc(hDC, 20, 63, 26, 62, 0, 3)

Arc(hDC, 21, 65, 26, 62, 0, 1.4)

Arc(hDC, 21, 66, 16, 69, 0, 2)

Arc(hDC, 16, 69, 35, 68, 0, 4)

Arc(hDC, 22, 70, 29, 85, 0, 0.1)

Arc(hDC, 29, 83, 28, 95, 0, 7)

Arc(hDC, 38, 84, 28, 93, 0, 3)

'=======

' Eyes

'=======

Arc(hDC, 30, 48, 40, 48, 0, 1.4)

Arc(hDC, 29, 50, 40, 50, 0, 0.1)

Arc(hDC, 30, 56, 36, 57, 0, 0.3)

Arc(hDC, 21, 50, 26, 50, 0, 0.1)

PSet(hDC, 23, 51)

PSet(hDC, 35, 51)

PSet(hDC, 41, 62)

Fill(hDC, 30, 45, Rgb(250, 215, 0))

'=======

' Shirt

'=======

Arc(hDC, 15, 89, 50, 90, 0, 0.7)

Arc(hDC, 27, 85, 13, 90, 0, 5)

Arc(hDC, 50, 90, 38, 84, 0, 0.2)

Arc(hDC, 28, 86, 23, 92, 0, 4)

Arc(hDC, 44, 86, 38, 94, 0, 3)

Arc(hDC, 38, 94, 33, 88, 0, 0.4)

Fill(hDC, 30, 95, Rgb(55, 115, 44))

ReleaseDC(ME, hDC)

End Sub