1/*-
2 * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
3 *
4 * Copyright (c) 1999 Brad Forschinger
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 *    without modification, immediately at the beginning of the file.
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 *
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/*
32 * brad forschinger, 19990504 <retch@flag.blackened.net>
33 *
34 * written with much help from warp_saver.c
35 *
36 */
37
38#include <sys/param.h>
39#include <sys/systm.h>
40#include <sys/kernel.h>
41#include <sys/module.h>
42#include <sys/syslog.h>
43#include <sys/consio.h>
44#include <sys/malloc.h>
45#include <sys/fbio.h>
46
47#include <dev/fb/fbreg.h>
48#include <dev/fb/splashreg.h>
49#include <dev/syscons/syscons.h>
50
51#define SAVER_NAME	 "fire_saver"
52
53#define RED(n)		 ((n) * 3 + 0)
54#define GREEN(n)	 ((n) * 3 + 1)
55#define BLUE(n)		 ((n) * 3 + 2)
56
57#define SET_ORIGIN(adp, o) do {				\
58	int oo = o;					\
59	if (oo != last_origin)				\
60	    vidd_set_win_org(adp, last_origin = oo);	\
61	} while (0)
62
63static u_char		*buf;
64static u_char		*vid;
65static int		 banksize, scrmode, bpsl, scrw, scrh;
66static u_char		 fire_pal[768];
67static int		 blanked;
68
69static void
70fire_update(video_adapter_t *adp)
71{
72	int x, y;
73	int o, p;
74	int last_origin = -1;
75
76	/* make a new bottom line */
77	for (x = 0, y = scrh; x < scrw; x++)
78		buf[x + (y * bpsl)] = random() % 160 + 96;
79
80	/* fade the flames out */
81	for (y = 0; y < scrh; y++) {
82		for (x = 0; x < scrw; x++) {
83			buf[x + (y * scrw)] =
84			    (buf[(x + 0) + ((y + 0) * scrw)] +
85			     buf[(x - 1) + ((y + 1) * scrw)] +
86			     buf[(x + 0) + ((y + 1) * scrw)] +
87			     buf[(x + 1) + ((y + 1) * scrw)]) / 4;
88			if (buf[x + (y * scrw)] > 0)
89				buf[x + (y * scrw)]--;
90		}
91	}
92
93	/* blit our buffer into video ram */
94	for (y = 0, p = 0, o = 0; y < scrh; y++, p += bpsl) {
95		while (p > banksize) {
96			p -= banksize;
97			o += banksize;
98		}
99		SET_ORIGIN(adp, o);
100		if (p + scrw < banksize) {
101			bcopy(buf + y * scrw, vid + p, scrw);
102		} else {
103			bcopy(buf + y * scrw, vid + p, banksize - p);
104			SET_ORIGIN(adp, o + banksize);
105			bcopy(buf + y * scrw + (banksize - p), vid,
106			      scrw - (banksize - p));
107			p -= banksize;
108			o += banksize;
109		}
110	}
111
112}
113
114static int
115fire_saver(video_adapter_t *adp, int blank)
116{
117	int pl;
118
119	if (blank) {
120		/* switch to graphics mode */
121      		if (blanked <= 0) {
122			pl = splhigh();
123			vidd_set_mode(adp, scrmode);
124			vidd_load_palette(adp, fire_pal);
125			blanked++;
126			vid = (u_char *)adp->va_window;
127			banksize = adp->va_window_size;
128			bpsl = adp->va_line_width;
129			splx(pl);
130			vidd_clear(adp);
131		}
132		fire_update(adp);
133	} else {
134		blanked = 0;
135	}
136
137    return 0;
138}
139
140static int
141fire_init(video_adapter_t *adp)
142{
143	video_info_t info;
144	int i, red, green, blue;
145
146	if (!vidd_get_info(adp, M_VGA_CG320, &info)) {
147		scrmode = M_VGA_CG320;
148	} else {
149		log(LOG_NOTICE,
150		    "%s: the console does not support M_VGA_CG320\n",
151		    SAVER_NAME);
152		return (ENODEV);
153	}
154
155	scrw = info.vi_width;
156	scrh = info.vi_height;
157
158	buf = (u_char *)malloc(scrw * (scrh + 1), M_DEVBUF, M_NOWAIT);
159	if (buf) {
160		bzero(buf, scrw * (scrh + 1));
161	} else {
162		log(LOG_NOTICE,
163		    "%s: buffer allocation is failed\n",
164		    SAVER_NAME);
165		return (ENODEV);
166	}
167
168	/* intialize the palette */
169	red = green = blue = 0;
170	for (i = 0; i < 256; i++) {
171		red++;
172		if (red > 128)
173			green += 2;
174		fire_pal[RED(i)] = red;
175		fire_pal[GREEN(i)] = green;
176		fire_pal[BLUE(i)] = blue;
177	}
178
179	return (0);
180}
181
182static int
183fire_term(video_adapter_t *adp)
184{
185	free(buf, M_DEVBUF);
186	return (0);
187}
188
189static scrn_saver_t fire_module = {
190	SAVER_NAME,
191	fire_init,
192	fire_term,
193	fire_saver,
194	NULL
195};
196
197SAVER_MODULE(fire_saver, fire_module);
198