sys/dev/syscons/warp/warp_saver.c

   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
  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
  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
  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
 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 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
 153 static int
 154 warp_term(video_adapter_t *adp)
 155 {
 156         return (0);
 157 }
 158
 159 static scrn_saver_t warp_module = {
 160         SAVER_NAME,
 161         warp_init,
 162         warp_term,
 163         warp_saver,
 164         NULL
 165 };
 166
 167 SAVER_MODULE(warp_saver, warp_module);