Сообщение от ABTOMAT
Там же рядом с ней написано, как ею пользоваться:
|
Написано понятно как это работает. Жалко что я не понимаю пока как это сделать.
1) что за (Layer) ?
2) куда грузить черно белую картинку ? в Img = LoadImage(MapFile) вместо MapFile указать путь?
3) какой командой выводить все это на экран ? BG_Update(camera) ?
Function BG_SetGrassMap(Layer, MapFile$)
em.BG_GrassLayer = Object.BG_GrassLayer(Layer)
Img = LoadImage(MapFile)
Width = ImageWidth(Img)-1
Height = ImageHeight(Img)-1
Buff = ImageBuffer(Img)
LockBuffer Buff
For x = 0 To 255
For y = 0 To 255
rgb = ReadPixelFast(255*x/Width, Height-(255*y/Height), Buff)
density = (rgb Shr
And $FF
BG_sysArraySet(em\GrassMap, x, y, density)
Next
Next