1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
/* StonerView: An eccentric visual toy.
Copyright 1998-2001 by Andrew Plotkin (erkyrath@eblong.com)
Permission to use, copy, modify, distribute, and sell this software and its
documentation for any purpose is hereby granted without fee, provided that
the above copyright notice appear in all copies and that both that
copyright notice and this permission notice appear in supporting
documentation. No representations are made about the suitability of this
software for any purpose. It is provided "as is" without express or
implied warranty.
*/
#include <math.h>
#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <stdio.h>
#include <stdlib.h>
#include "yarandom.h"
#include "stonerview.h"
void
stonerview_init_move(stonerview_state *st)
{
/*st->theta = new_osc_linear(
new_osc_wrap(0, 36000, 25),
new_osc_constant(2000));*/
st->theta = new_osc_linear(st,
new_osc_velowrap(st, 0, 36000, new_osc_multiplex(st,
new_osc_randphaser(st, 300, 600),
new_osc_constant(st, 25),
new_osc_constant(st, 75),
new_osc_constant(st, 50),
new_osc_constant(st, 100))
),
new_osc_multiplex(st,
new_osc_buffer(st, new_osc_randphaser(st, 300, 600)),
new_osc_buffer(st, new_osc_wrap(st, 0, 36000, 10)),
new_osc_buffer(st, new_osc_wrap(st, 0, 36000, -8)),
new_osc_wrap(st, 0, 36000, 4),
new_osc_buffer(st, new_osc_bounce(st, -2000, 2000, 20))
)
);
st->rad = new_osc_buffer(st, new_osc_multiplex(st,
new_osc_randphaser(st, 250, 500),
new_osc_bounce(st, -1000, 1000, 10),
new_osc_bounce(st, 200, 1000, -15),
new_osc_bounce(st, 400, 1000, 10),
new_osc_bounce(st, -1000, 1000, -20)));
/*st->rad = new_osc_constant(st, 1000);*/
st->alti = new_osc_linear(st,
new_osc_constant(st, -1000),
new_osc_constant(st, 2000 / st->num_els));
/*st->alti = new_osc_multiplex(
new_osc_buffer(st, new_osc_randphaser(60, 270)),
new_osc_buffer(st, new_osc_bounce(-1000, 1000, 48)),
new_osc_linear(
new_osc_constant(-1000),
new_osc_constant(2000 / st->num_els)),
new_osc_buffer(st, new_osc_bounce(-1000, 1000, 27)),
new_osc_linear(
new_osc_constant(-1000),
new_osc_constant(2000 / st->num_els))
);*/
/*st->color = new_osc_buffer(st, new_osc_randphaser(5, 35));*/
/*st->color = new_osc_buffer(st, new_osc_multiplex(
new_osc_randphaser(25, 70),
new_osc_wrap(0, 3600, 20),
new_osc_wrap(0, 3600, 30),
new_osc_wrap(0, 3600, -20),
new_osc_wrap(0, 3600, 10)));*/
st->color = new_osc_multiplex(st,
new_osc_buffer(st, new_osc_randphaser(st, 150, 300)),
new_osc_buffer(st, new_osc_wrap(st, 0, 3600, 13)),
new_osc_buffer(st, new_osc_wrap(st, 0, 3600, 32)),
new_osc_buffer(st, new_osc_wrap(st, 0, 3600, 17)),
new_osc_buffer(st, new_osc_wrap(st, 0, 3600, 7)));
stonerview_move_increment(st);
}
/* Set up the list of polygon data for rendering. */
void
stonerview_move_increment(stonerview_state *st)
{
int ix, val;
/* double fval; */
/* double recipels = (1.0 / (double)st->num_els); */
double pt[2];
double ptrad, pttheta;
for (ix=0; ix<st->num_els; ix++) {
stonerview_elem_t *el = &st->elist[ix];
/* Grab r and theta... */
val = osc_get(st, st->theta, ix);
pttheta = val * (0.01 * M_PI / 180.0);
ptrad = (double)osc_get(st, st->rad, ix) * 0.001;
/* And convert them to x,y coordinates. */
pt[0] = ptrad * cos(pttheta);
pt[1] = ptrad * sin(pttheta);
/* Set x,y,z. */
el->pos[0] = pt[0];
el->pos[1] = pt[1];
el->pos[2] = (double)osc_get(st, st->alti, ix) * 0.001;
/* Set which way the square is rotated. This is fixed for now, although
it would be trivial to make the squares spin as they revolve. */
el->vervec[0] = 0.11;
el->vervec[1] = 0.0;
/* Grab the color, and convert it to RGB values. Technically, we're
converting an HSV value to RGB, where S and V are always 1. */
val = osc_get(st, st->color, ix);
if (val < 1200) {
el->col[0] = ((double)val / 1200.0);
el->col[1] = 0;
el->col[2] = (double)(1200 - val) / 1200.0;
}
else if (val < 2400) {
el->col[0] = (double)(2400 - val) / 1200.0;
el->col[1] = ((double)(val - 1200) / 1200.0);
el->col[2] = 0;
}
else {
el->col[0] = 0;
el->col[1] = (double)(3600 - val) / 1200.0;
el->col[2] = ((double)(val - 2400) / 1200.0);
}
el->col[3] = 1.0;
}
osc_increment(st);
}
|
