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