c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
69 lines
1.1 KiB
Text
69 lines
1.1 KiB
Text
' Gambas module file
|
|
|
|
PUBLIC SUB make_boards()
|
|
|
|
DIM i AS Byte
|
|
DIM j AS Byte
|
|
|
|
' Create the board design objects
|
|
|
|
Global.boarddesign.Resize(2)
|
|
|
|
FOR i = 0 TO Global.boarddesign.Count - 1
|
|
Global.boarddesign[i] = NEW CBoardDesign
|
|
FOR j = 1 TO 7
|
|
Global.boarddesign[i].Row.Add(0)
|
|
Global.boarddesign[i].Placed.Add(0)
|
|
NEXT
|
|
NEXT
|
|
|
|
END
|
|
|
|
PUBLIC SUB fill_boards()
|
|
|
|
' Fill the board design Array
|
|
|
|
WITH Global.boarddesign[0]
|
|
.Name = "Original"
|
|
|
|
.Row[0] = 28
|
|
.Row[1] = 28
|
|
.Row[2] = 127
|
|
.Row[3] = 127
|
|
.Row[4] = 127
|
|
.Row[5] = 28
|
|
.Row[6] = 28
|
|
|
|
.Placed[0] = 28
|
|
.Placed[1] = 28
|
|
.Placed[2] = 127
|
|
.Placed[3] = 119
|
|
.Placed[4] = 127
|
|
.Placed[5] = 28
|
|
.Placed[6] = 28
|
|
|
|
.Finish = 28
|
|
END WITH
|
|
|
|
WITH Global.boarddesign[1]
|
|
.Name = "Plus"
|
|
|
|
.Row[0] = 28
|
|
.Row[1] = 28
|
|
.Row[2] = 127
|
|
.Row[3] = 127
|
|
.Row[4] = 127
|
|
.Row[5] = 28
|
|
.Row[6] = 28
|
|
|
|
.Placed[0] = 0
|
|
.Placed[1] = 8
|
|
.Placed[2] = 8
|
|
.Placed[3] = 62
|
|
.Placed[4] = 8
|
|
.Placed[5] = 8
|
|
.Placed[6] = 0
|
|
|
|
.Finish = 28
|
|
END WITH
|
|
END
|