5 * Created by guillaum on Tue Aug 14 2001.
6 * Copyright (c) 2001 __CompanyName__. All rights reserved.
17 extern unsigned int resolx, resoly;
20 lighten (unsigned char value, unsigned char power)
24 for (i = 0; i < power; i++)
25 value += (255 - value) / 5;
30 goom_lines (gint16 data[2][512], unsigned int ID, unsigned int *p,
35 unsigned char *color = 1 + (unsigned char *) &color1;
38 case 0: /* Horizontal stereo lines */
45 case 1: /* Stereo circles */
52 *color = lighten (*color, power);
54 *color = lighten (*color, power);
56 *color = lighten (*color, power);
57 color = 1 + (unsigned char *) &color2;
58 *color = lighten (*color, power);
60 *color = lighten (*color, power);
62 *color = lighten (*color, power);
65 case 0: /* Horizontal stereo lines */
69 for (i = 0; i < 512; i++) {
72 plot = i * resolx / 512 + (resoly / 4 + data[0][i] / 1600) * resolx;
75 plot = i * resolx / 512 + (resoly * 3 / 4 - data[1][i] / 1600) * resolx;
82 case 1: /* Stereo circles */
85 unsigned int monX = resolx / 2;
86 float monY = resoly / 4;
87 float monY2 = resoly / 2;
89 for (z = 0; z < 6.2832f; z += 1.0f / monY) {
90 /* float offset1 = 128+data[1][(unsigned int)(z*81.33f)])/200000; */
91 p[monX + (unsigned int) ((monY + ((float) resoly) * (128 +
92 data[1][(unsigned int) (z * 81.33f)]) / 200000) *
93 cos (z) + resolx * (unsigned int) (monY2 + (monY +
94 ((float) resoly) * (128 +
95 data[1][(unsigned int) (z * 81.33f)]) / 400000) *
97 p[monX + (unsigned int) ((monY - ((float) resoly) * (128 +
98 data[0][(unsigned int) (z * 81.33f)]) / 200000) *
99 cos (z) + resolx * (unsigned int) (monY2 + (monY -
100 ((float) resoly) * (128 +
101 data[0][(unsigned int) (z * 81.33f)]) / 400000) *