1/*-
2 * Copyright (c) 1998 Dag-Erling Coïdan Smørgrav
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer
10 *    in this position and unchanged.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 *    notice, this list of conditions and the following disclaimer in the
13 *    documentation and/or other materials provided with the distribution.
14 * 3. The name of the author may not be used to endorse or promote products
15 *    derived from this software without specific prior written permission
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 *
28 * $FreeBSD$
29 */
30
31#include <sys/param.h>
32#include <sys/systm.h>
33#include <sys/kernel.h>
34#include <sys/module.h>
35#include <sys/syslog.h>
36#include <sys/consio.h>
37#include <sys/fbio.h>
38
39#include <dev/fb/fbreg.h>
40#include <dev/fb/splashreg.h>
41#include <dev/syscons/syscons.h>
42
43#define SAVER_NAME	 "warp_saver"
44#define SPP		 15
45#define STARS		 (SPP * (1 + 2 + 4 + 8))
46
47#define SET_ORIGIN(adp, o) do {				\
48	int oo = o;					\
49	if (oo != last_origin)				\
50	    vidd_set_win_org(adp, last_origin = oo);		\
51	} while (0)
52
53static u_char		*vid;
54static int		 banksize, scrmode, bpsl, scrw, scrh;
55static int		 blanked;
56static int		 star[STARS];
57static u_char		 warp_pal[768] = {
58	0x00, 0x00, 0x00,
59	0x66, 0x66, 0x66,
60	0x99, 0x99, 0x99,
61	0xcc, 0xcc, 0xcc,
62	0xff, 0xff, 0xff
63	/* the rest is zero-filled by the compiler */
64};
65
66static void
67warp_update(video_adapter_t *adp)
68{
69	int i, j, k, n, o, p;
70	int last_origin = -1;
71
72	for (i = 1, k = 0, n = SPP*8; i < 5; i++, n /= 2) {
73		for (j = 0; j < n; j++, k++) {
74			p = (star[k] / scrw) *  bpsl + (star[k] % scrw);
75			o = 0;
76			while (p > banksize) {
77				p -= banksize;
78				o += banksize;
79			}
80			SET_ORIGIN(adp, o);
81			vid[p] = 0;
82			star[k] += i;
83			if (star[k] > scrw*scrh)
84				star[k] -= scrw*scrh;
85			p = (star[k] / scrw) *  bpsl + (star[k] % scrw);
86			o = 0;
87			while (p > banksize) {
88				p -= banksize;
89				o += banksize;
90			}
91			SET_ORIGIN(adp, o);
92			vid[p] = i;
93		}
94	}
95}
96
97static int
98warp_saver(video_adapter_t *adp, int blank)
99{
100	int pl;
101
102	if (blank) {
103		/* switch to graphics mode */
104		if (blanked <= 0) {
105			pl = splhigh();
106			vidd_set_mode(adp, scrmode);
107			vidd_load_palette(adp, warp_pal);
108			vidd_set_border(adp, 0);
109			blanked++;
110			vid = (u_char *)adp->va_window;
111			banksize = adp->va_window_size;
112			bpsl = adp->va_line_width;
113			splx(pl);
114			vidd_clear(adp);
115		}
116		/* update display */
117		warp_update(adp);
118	} else {
119		blanked = 0;
120	}
121	return (0);
122}
123
124static int
125warp_init(video_adapter_t *adp)
126{
127	video_info_t info;
128	int i;
129
130	if (!vidd_get_info(adp, M_VGA_CG320, &info)) {
131		scrmode = M_VGA_CG320;
132	} else if (!vidd_get_info(adp, M_PC98_PEGC640x480, &info)) {
133		scrmode = M_PC98_PEGC640x480;
134	} else if (!vidd_get_info(adp, M_PC98_PEGC640x400, &info)) {
135		scrmode = M_PC98_PEGC640x400;
136	} else {
137		log(LOG_NOTICE,
138		    "%s: the console does not support M_VGA_CG320\n",
139		    SAVER_NAME);
140		return (ENODEV);
141	}
142
143	scrw = info.vi_width;
144	scrh = info.vi_height;
145
146	/* randomize the star field */
147	for (i = 0; i < STARS; i++)
148		star[i] = random() % (scrw * scrh);
149
150	return (0);
151}
152
153static int
154warp_term(video_adapter_t *adp)
155{
156	return (0);
157}
158
159static scrn_saver_t warp_module = {
160	SAVER_NAME,
161	warp_init,
162	warp_term,
163	warp_saver,
164	NULL
165};
166
167SAVER_MODULE(warp_saver, warp_module);
168