1 /*-
2 * SPDX-License-Identifier: BSD-3-Clause
3 *
4 * Copyright (c) 1998 Dag-Erling 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
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
53 static u_char *vid;
54 static int banksize, scrmode, bpsl, scrw, scrh;
55 static int blanked;
56 static int star[STARS];
57 static 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
66 static void
warp_update(video_adapter_t * adp)67 warp_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
97 static int
warp_saver(video_adapter_t * adp,int blank)98 warp_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
124 static int
warp_init(video_adapter_t * adp)125 warp_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 {
133 log(LOG_NOTICE,
134 "%s: the console does not support M_VGA_CG320\n",
135 SAVER_NAME);
136 return (ENODEV);
137 }
138
139 scrw = info.vi_width;
140 scrh = info.vi_height;
141
142 /* randomize the star field */
143 for (i = 0; i < STARS; i++)
144 star[i] = random() % (scrw * scrh);
145
146 return (0);
147 }
148
149 static int
warp_term(video_adapter_t * adp)150 warp_term(video_adapter_t *adp)
151 {
152 return (0);
153 }
154
155 static scrn_saver_t warp_module = {
156 SAVER_NAME,
157 warp_init,
158 warp_term,
159 warp_saver,
160 NULL
161 };
162
163 SAVER_MODULE(warp_saver, warp_module);
164