1 /* $Id: player-display-track.sma 1 2005-04-19 09:41:42Z tilman $ */
3 #define SONGNAME_SCROLL_SPEED 0.2857
6 public songname_animator;
9 public on_songname_animator_restart(val)
13 id = anim (get_int (songname_len) * SONGNAME_SCROLL_SPEED,
14 "on_songname_animator", round (abs (1 - val)));
15 set_int (songname_animator, id);
18 public on_songname_animator(val, Float:pos)
20 new p = PART:"player.songname";
22 set_state_val (p, STATE_ALIGNMENT, abs (val - pos), 0.5);
23 set_state (p, "custom", 0.0);
26 new id = timer (1.0, "on_songname_animator_restart", val);
27 set_int (songname_timer, id);
31 public set_songname (sname[], len)
33 new p = PART:"player.songname", id;
35 if ((id = get_int (songname_timer)))
38 if ((id = get_int (songname_animator)))
42 set_state (p, "default", 0.0);
44 /* with the font and size we're using, 18 characters
45 * are fitting into the display (no scrolling required)
50 set_int (songname_len, len);
52 id = timer (1.0, "on_songname_animator_restart", 1);
53 set_int (songname_timer, id);