mirror of
https://github.com/FellippeHeitor/InForm.git
synced 2025-01-15 11:59:34 +00:00
14 lines
343 B
QBasic
14 lines
343 B
QBasic
|
'Baize Background for Mahjong
|
||
|
|
|
||
|
|
SUB MakeBaize (Baize&)
|
||
|
|
Baize& = _NEWIMAGE(ScreenX%, ScreenY%, 32)
|
||
|
|
_DEST Baize&
|
||
|
|
FOR N% = 0 TO ScreenX% - 1
|
||
|
|
FOR M% = 0 TO ScreenY% - 1
|
||
|
|
PSET (N%, M%), _RGB(0, 35 * RND, 150 + (50 * (1 - RND)))
|
||
|
|
NEXT M%
|
||
|
|
NEXT N%
|
||
|
|
CALL QB64Logo(0, 502)
|
||
|
|
CALL QB64Logo(500, 502)
|
||
|
|
END SUB
|