Subversion Repositories Kolibri OS

Rev

Rev 5309 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5309 Rev 5311
Line 66... Line 66...
66 
 
 66 
 
67 
macro inject.image name, bpp {
 67 
macro inject.image name, bpp {
68 
  local i, p, a, r, g, b,\
 68 
  local i, p, a, r, g, b,\
69 
   x, y, w, h, wb
 69 
   x, y, w, h, wb
70 
  virtual at 0
 70 
  virtual at 0
71 
    p:: file CD#'/media/'#name#'.bmp'
 71 
    p:: file CD#'media/'#name#'.bmp'
72 
  END virtual
 72 
  END virtual
73 
  IF ~bpp in <15,16,24,32>
 73 
  IF ~bpp in <15,16,24,32>
74 
    'Invalid BPP' name
 74 
    'Invalid BPP' name
75 
  END IF
 75 
  END IF
Line 123... Line 123...
123 
 
 123 
 
124 
macro inject.image.8 name {
 124 
macro inject.image.8 name {
125 
  local i, p, a, c,\
 125 
  local i, p, a, c,\
126 
   x, y, w, h, wb
 126 
   x, y, w, h, wb
127 
  virtual at 0
 127 
  virtual at 0
128 
    p:: file CD#'/media/'#name#'.bmp'
 128 
    p:: file CD#'media/'#name#'.bmp'
129 
  END virtual
 129 
  END virtual
130 
  load a word from p:0
 130 
  load a word from p:0
131 
  IF a<>'BM'
 131 
  IF a<>'BM'
132 
    'Invalid signature' name
 132 
    'Invalid signature' name