R-PAGE
Resistance's Portable-Adventure-Game-Engine
color.c
Go to the documentation of this file.
1 /* Resistance's Portable-Adventure-Game-Engine (R-PAGE), Copyright (C) 2019 François Gutherz, Resistance.no
2  Released under MIT License, see license.txt for details.
3 */
4 
5 #ifdef LATTICE
6 #include "rpage/aos/inc.prl"
7 #include "rpage/aos/color.h"
8 #include "rpage/utils.h"
9 #include <intuition/intuition.h>
10 #include <graphics/gfxbase.h>
11 #include <graphics/gfxmacros.h>
12 #include <hardware/custom.h>
13 
14 #include "rpage/aos/color.h"
15 #include "rpage/utils.h"
16 
17 extern struct GfxBase *GfxBase;
18 
19 UWORD __inline components_to_rgb8(UWORD r, UWORD g, UWORD b)
20 {
21  if (r > 0xff)
22  r = 0xff;
23  if (g > 0xff)
24  g = 0xff;
25  if (b > 0xff)
26  b = 0xff;
27 
28  r = r & 0xff;
29  g = g & 0xff;
30  b = b & 0xff;
31 
32  return (UWORD)((r << 16) | (g << 8) | b);
33 }
34 
35 
36 UWORD __inline components_to_rgb4(UWORD r, UWORD g, UWORD b)
37 {
38  r >>= 4;
39  g >>= 4;
40  b >>= 4;
41 
42  if (r > 0xf)
43  r = 0xf;
44  if (g > 0xf)
45  g = 0xf;
46  if (b > 0xf)
47  b = 0xf;
48 
49  r = r & 0xf;
50  g = g & 0xf;
51  b = b & 0xf;
52 
53  return (UWORD)((r << 8) | (g << 4) | b);
54 }
55 
56 UWORD color_to_depth(UWORD colors)
57 {
58  UWORD i = 1;
59  while ((1 << i) < colors)
60  i++;
61 
62  return i;
63 }
64 
65 UWORD darken_rgb4_colors(UWORD A, USHORT n)
66 {
67  WORD r, g, b, x, y, z;
68 
69  if (n == 0)
70  return A;
71 
72  if (n >= 255)
73  return 0x000;
74 
75  // n = 255 - n;
76  n = n >> 4;
77 
78  r = (A & 0x0f00) >> 8;
79  g = (A & 0x00f0) >> 4;
80  b = A & 0x000f;
81 
82  r = max(0, r - n);
83  g = max(0, g - n);
84  b = max(0, b - n);
85 
86  return (UWORD)((r << 8) | (g << 4) | b);
87 }
88 
89 UWORD mix_rgb4_colors(UWORD A, UWORD B, USHORT n)
90 {
91  UWORD r, g, b, x, y, z;
92 
93  if (n == 0)
94  return A;
95 
96  if (n >= 255)
97  return B;
98 
99  x = (B & 0x0f00) >> 8;
100  y = (B & 0x00f0) >> 4;
101  z = B & 0x000f;
102 
103  x *= n;
104  y *= n;
105  z *= n;
106 
107  n = 255 - n;
108 
109  r = (A & 0x0f00) >> 8;
110  g = (A & 0x00f0) >> 4;
111  b = A & 0x000f;
112 
113  r *= n;
114  g *= n;
115  b *= n;
116 
117  r += x;
118  g += y;
119  b += z;
120 
121  r >>= 8;
122  g >>= 8;
123  b >>= 8;
124 
125  if (r > 0xf)
126  r = 0xf;
127  if (g > 0xf)
128  g = 0xf;
129  if (b > 0xf)
130  b = 0xf;
131 
132  // r = r & 0xf;
133  // g = g & 0xf;
134  // b = b & 0xf;
135 
136  return (UWORD)((r << 8) | (g << 4) | b);
137 }
138 
139 ULONG rgb4_to_rgb8(UWORD A)
140 {
141  ULONG r, g, b;
142  r = ((ULONG)(A & 0x0f00)) << 12;
143  g = (A & 0x00f0) << 8;
144  b = (A & 0x000f) << 4;
145 
146  return (ULONG)(r | g | b);
147 }
148 
149 UWORD rgb8_to_rgb4(ULONG A)
150 {
151  UWORD r, g, b;
152  r = (A & 0xF00000) >> 12; // ((ULONG)(A & 0x0f00)) << 12;
153  g = (A & 0x00F000) >> 8;
154  b = (A & 0x00F0) >> 4;
155 
156  return (UWORD)(r | g | b);
157 }
158 
159 ULONG add_rgb8_colors(ULONG A, ULONG B)
160 {
161  ULONG r, g, b, x, y, z;
162 
163  x = (B & 0xff0000) >> 16;
164  y = (B & 0x00ff00) >> 8;
165  z = B & 0x000ff;
166 
167  r = (A & 0xff0000) >> 16;
168  g = (A & 0x00ff00) >> 8;
169  b = A & 0x0000ff;
170 
171  r += x;
172  g += y;
173  b += z;
174 
175  if (r > 0xFF)
176  r = 0xFF;
177  if (g > 0xFF)
178  g = 0xFF;
179  if (b > 0xFF)
180  b = 0xFF;
181 
182  return (r << 16) | (g << 8) | b;
183 }
184 
185 ULONG divide_rgb8_colors(ULONG A, UWORD n)
186 {
187  ULONG r, g, b;
188 
189  if (n == 0)
190  return A;
191 
192  r = (A & 0xff0000) >> 16;
193  g = (A & 0x00ff00) >> 8;
194  b = A & 0x0000ff;
195 
196  r /= n;
197  g /= n;
198  b /= n;
199 
200  return (r << 16) | (g << 8) | b;
201 }
202 
203 ULONG mix_rgb8_colors(ULONG A, ULONG B, UWORD n)
204 {
205  ULONG r, g, b, x, y, z;
206 
207  if (n == 0)
208  return A;
209 
210  if (n >= 255)
211  return B;
212 
213  x = (B & 0xff0000) >> 16;
214  y = (B & 0x00ff00) >> 8;
215  z = B & 0x000ff;
216 
217  x *= n;
218  y *= n;
219  z *= n;
220 
221  n = 255 - n;
222 
223  r = (A & 0xff0000) >> 16;
224  g = (A & 0x00ff00) >> 8;
225  b = A & 0x0000ff;
226 
227  r *= n;
228  g *= n;
229  b *= n;
230 
231  r += x;
232  g += y;
233  b += z;
234 
235  r >>= 8;
236  g >>= 8;
237  b >>= 8;
238 
239  if (r > 0xff)
240  r = 0xff;
241  if (g > 0xff)
242  g = 0xff;
243  if (b > 0xff)
244  b = 0xff;
245 
246  r = r & 0xff;
247  g = g & 0xff;
248  b = b & 0xff;
249 
250  return (r << 16) | (g << 8) | b;
251 }
252 
253 // void mix_rgb4_palettes(struct ViewPort *vp, amiga_color *source_palette, amiga_color *dest_palette, UWORD pal_size,
254 // UWORD fade)
255 // {
256 // UBYTE i;
257 
258 // for (i = 0; i < pal_size; i++)
259 // {
260 // UWORD col = mix_rgb4_colors(source_palette[i], dest_palette[i], fade);
261 // SetRGB4(vp, i, (col & 0x0f00) >> 8, (col & 0x00f0) >> 4, col & 0x000f);
262 // }
263 // }
264 
265 void mix_rgb4_palette_to_black(struct ViewPort *vp, color444 *pal, UWORD pal_size,
266  UWORD fade)
267 {
268  UBYTE i;
269 
270  for (i = 0; i < pal_size; i++)
271  {
272  UWORD col = mix_rgb4_colors(pal[i], 0x000, fade);
273  SetRGB4(vp, i, (col & 0x0f00) >> 8, (col & 0x00f0) >> 4, col & 0x000f);
274  }
275 }
276 
277 // void mix_rgb4_palette_to_black_as_rgb8(struct ViewPort *vp, UWORD *pal, UWORD pal_size,
278 // ULONG rgb8color, UWORD fade)
279 // {
280 // UBYTE i;
281 
282 // for (i = 0; i < pal_size; i++)
283 // {
284 // UWORD col = mix_rgb8_colors(rgb4_to_rgb8(pal[i]), rgb8color, fade);
285 // col = rgb8_to_rgb4(col);
286 // SetRGB4(vp, i, (col & 0x0f00) >> 8, (col & 0x00f0) >> 4, col & 0x000f);
287 // }
288 // }
289 
290 void set_palette_to_black(struct ViewPort *vp, UWORD first_color, UWORD last_color)
291 {
292  short loop;
293  for (loop = first_color; loop <= last_color; loop++)
294  SetRGB4(vp, loop, 0x0, 0x0, 0x0);
295 }
296 
297 void set_palette_to_grey(struct ViewPort *vp, UWORD first_color, UWORD last_color)
298 {
299  int loop;
300  for (loop = first_color; loop <= last_color; loop++)
301  {
302  unsigned int luma;
303 #ifdef VGA_CAPABLE
304  luma = range_adjust(loop, first_color, last_color, 0, 255);
305  SetRGB32(vp, loop, luma << 24, luma << 24, luma << 24);
306 #else
307  luma = range_adjust(loop, first_color, last_color, 0, 15);
308  SetRGB4(vp, loop, luma, luma, luma);
309 #endif
310  }
311 }
312 
313 void set_palette(struct ViewPort *vp, UWORD **palette, UWORD first_color, UWORD last_color)
314 {
315  if (first_color > 0)
316  {
317  // Slow mode
318  short loop;
319  for (loop = first_color; loop <= last_color; loop++)
320  {
321  #ifdef VGA_CAPABLE
322  unsigned int r, g, b;
323  r = ((*palette)[loop] >> 16) & 0xff;
324  g = ((*palette)[loop] >> 8) & 0xff;
325  b = (*palette)[loop] & 0xff;
326  SetRGB32(vp, loop, r << 24, g << 24, b << 24);
327  #else
328  UWORD r, g, b;
329  r = ((*palette)[loop] >> 8) & 0xf;
330  g = ((*palette)[loop] >> 4) & 0xf;
331  b = (*palette)[loop] & 0xf;
332  SetRGB4(vp, loop, r, g, b);
333  #endif
334  }
335  }
336  else
337  {
338  // Fast mode
339  #ifdef VGA_CAPABLE
340  LoadRGB32(vp, (ULONG *)*palette, last_color);
341  #else
342  LoadRGB4(vp, (UWORD *)*palette, last_color);
343  #endif
344  }
345 }
346 
347 // void fadein_rgb4_palette(struct ViewPort *current_viewport, color444 *current_palette, UWORD pal_size, unsigned short steps)
348 // {
349 // unsigned short j;
350 // for (j = 0; j < steps; j++)
351 // { /* fade in */
352 // WaitTOF();
353 // mix_rgb4_palette_to_black(current_viewport, current_palette, pal_size, ((steps - 1 - j) * 255) / steps);
354 // }
355 // }
356 
357 // void fadeout_rgb4_palette(struct ViewPort *current_viewport, color444 *current_palette, UWORD pal_size, unsigned short steps)
358 // {
359 // unsigned short j;
360 // for (j = 0; j < steps; j++)
361 // { /* fade out */
362 // WaitTOF();
363 // mix_rgb4_palette_to_black(current_viewport, current_palette, pal_size, 255 - (((steps - 1 - j) * 255) / steps));
364 // }
365 // }
366 
367 // void fade_rgb4_palettes(struct ViewPort *current_viewport, color444 *source_palette, color444 *dest_palette, UWORD pal_size, unsigned short steps)
368 // {
369 // unsigned short i, j;
370 // UWORD col;
371 
372 // for (j = 0; j < steps; j++)
373 // { /* fade step by step */
374 // WaitTOF();
375 // for (i = 0; i < pal_size; i++)
376 // {
377 // col = mix_rgb4_colors(dest_palette[i], source_palette[i], ((steps - 1 - j) * 255) / steps);
378 // SetRGB4(current_viewport, i, (col & 0x0f00) >> 8, (col & 0x00f0) >> 4, col & 0x000f);
379 // }
380 // }
381 // }
382 #endif
range_adjust
int range_adjust(int val, int in_lower, int in_upper, int out_lower, int out_upper)
Definition: utils.c:98
UBYTE
unsigned char UBYTE
Definition: utils.h:20
UWORD
unsigned short UWORD
Definition: utils.h:28
max
#define max(x, y)
Definition: utils.h:49
ULONG
unsigned long ULONG
Definition: utils.h:24
Generated by   doxygen 1.8.11