dim p As Picture = bootImage //NAME OF INPUT IMAGE IN PROJECT
dim m As MemoryBlock = NewMemoryBlock(p.Width * p.Height * 3)
m.LittleEndian = false
for i As integer = 0 to p.Width * p.Height - 1
m.ColorValue(i*3, 24) = p.Graphics.Pixel(i mod p.Width, Floor(i / p.Width))
next
dim f As FolderItem = SpecialFolder.Desktop.Child("Cursor Editor.rbp") //OUTPUT FILE NAME
BinaryStream.Create(f).Write m.StringValue(m.Byte(0) + 4, m.Long(m.Byte(0)))
Tuesday, October 12, 2010
Subscribe to:
Posts (Atom)