Graphics 300,300

ClsColor 255,255,255

Cls
Color 255,0,0
Oval 200,200,20,20

Color 250,0,0
Oval 205,205,10,10
Color 245,0,0
Oval 206,207,8,8
Color 240,0,0
Oval 207,207,6,6
Color 235,0,0
Oval 208,208,4,4

Color 230,0,0
Oval 209,209,2,2
Color 0,0,0
Text 205,205,"2"

SaveBuffer BackBuffer(), "Screen0.bmp"

WaitKey()

Graphics 640, 480, 0, 2
SetBuffer BackBuffer()

   ;Vorschlag 1
   px = 75
   py = 75
   For i = 20 To 1 Step -1
      Color 255 - i*10, 0, 0
      Oval px-i, py-i, i*2, i*2, 1
   Next
   Color 255, 200, 155
   Text px-5, py-4, "2"

   ;Vorschlag 2
   px = 150
   py = 75
   Color 255, 0, 0
   For i = 19 To 1 Step -1
      Color 255 - i*10, i, i
      Oval px-i, py+i*2-20, i*2, i, 1
   Next
   For i = 10 To 1 Step -1
      Color 255 - i*10, 0, 0
      Oval px-i, py-i-10, i*2, i*2, 1
   Next
   Color 255, 200, 155
   Text px-5, py+8, "4"

   Flip()
   WaitKey
   End

Graphics 800, 600, 0, 2
SetBuffer BackBuffer()

   For i = 1 To 10
      drawWuerfel Rand(700), Rand(500), Rand(100)+10, Rand(1, 6)
   Next
   Flip()
   WaitKey
   End

Function drawWuerfel(x, y, g, n)

   er# = g / 6.0 ;Eckradius
   pr# = g / 10.0 ;Punktradius
   
   Color 255, 255, 255
   ;Rect x, y, g, g, 0
   Oval x, y, 2 * er, 2 * er, 1
   Oval x + g - 2 * er, y, 2 * er, 2 * er, 1
   Oval x, y + g - 2 * er, 2 * er, 2 * er, 1
   Oval x + g - 2 * er, y + g - 2 * er, 2 * er, 2 * er, 1
   Rect x + er, y, g - 2 * er, g, 1
   Rect x, y + er, g, g - 2 * er, 1
   
   Color 0, 0, 0

   Rect x, y + er, 1, g - 2 * er, 1
   Rect x + g, y + er, 1, g - 2 * er, 1
   Rect x + er, y, g - 2 * er, 1, 1
   Rect x + er, y + g, g - 2 * er, 1, 1
   Circle x + er, y + er, er, 0, 90
   Circle x + g - er, y + er, er, 270, 360
   Circle x + er, y + g - er, er, 90, 180
   Circle x + g - er, y + g - er, er, 180, 270
   
   If n = 2 Or n = 4 Or n = 5 Or n = 6 Then Oval x + er, y + er, 2 * pr, 2 * pr, 1 ;Oben Links
   If n = 3 Or n = 4 Or n = 5 Or n = 6 Then Oval x + g - 2 * pr - er, y + er, 2 * pr, 2 * pr, 1 ;Oben Rechts
   If n = 3 Or n = 4 Or n = 5 Or n = 6 Then Oval x + er, y + g - 2 * pr - er, 2 * pr, 2 * pr, 1    ;Unten Links
   If n = 2 Or n = 4 Or n = 5 Or n = 6 Then Oval x + g - 2 * pr - er, y + g - 2 * pr - er, 2 * pr, 2 * pr, 1 ;Unten Rechts
   If n = 1 Or n = 3 Or n = 5 Then Oval x + g / 2 - pr, y + g / 2 - pr, 2 * pr, 2 * pr   ;Mitte
   If n = 6 Then Oval x + er, y + g / 2 - pr, 2 * pr, 2 * pr         ;Links Mitte
   If n = 6 Then Oval x + g - 2 * pr - er, y + g / 2 - pr, 2 * pr, 2 * pr      ;Links Mitte
   If n = 7 Then Text x + (g - StringWidth("?")) / 2, y + (g - StringHeight("?")) / 2, "?"
   If n <= 0 Then z$ = Str(-n): Text x + (g - StringWidth(z$)) / 2, y + (g - StringHeight(z$)) / 2, z$

   
End Function

Function Circle (x, y, r, sw = 0, ew = 360)

p = Sgn(ew - sw)
w = sw
   opx = x - Sin(w) * r
   opy = y - Cos(w) * r
   ;Oval x-1,y-1,2,2,1
While w <> ew
   w = w + p
   px = x - Sin(w) * r
   py = y - Cos(w) * r
   Line opx, opy, px, py
   opx = px
   opy = py
Wend

End Function