Interlisp.maiko/src/truecolor.c

/* $Id: truecolor.c,v 1.2 1999/01/03 02:07:38 sybalsky Exp $ (C) Copyright Venue, All Rights
 * Reserved  */

/************************************************************************/
/*									*/
/*	(C) Copyright 1989-95 Venue. All Rights Reserved.		*/
/*	Manufactured in the United States of America.			*/
/*									*/
/************************************************************************/

#include "version.h"

#include <stdio.h>
#include <sys/mman.h>
#include <pixrect/pixrect_hs.h>
#include <unistd.h>

#include "lispemul.h"
#include "lsptypes.h"
#include "lspglob.h"
#include "lispmap.h"
#include "adr68k.h"
#include "arith.h"
#include "devconf.h"

#include "picture.h"

#define COLOR_INIT 0
#define COLOR_OVERLAYREGION 1
#define COLOR_VIDEOREGION 2
#define COLOR_VIDEOINIT 3

#define IntToFixp(C, Lisp)                                \
  {                                                       \
    int *base;                                            \
    base = (int *)Addr68k_from_LADDR((unsigned int)Lisp); \
    *base = C;                                            \
  }

extern int displaywidth, displayheight, DisplayRasterWidth;
extern int ScreenLocked;
extern DLword *EmCursorX68K, *EmCursorY68K;
extern Pixrect *TrueColorFb;
extern int FrameBufferFd;
extern int Inited_Video;

int Inited_TrueColor = NIL;

int TrueColor_Op(LispPTR *args)
{
  int op, ret_value = NIL;
  /*
          N_GETNUMBER( args[0], op, bad_arg );
  */
  op = (DLword)args[0];

  switch (op) {
    case COLOR_INIT: ret_value = TrueColor_Initialize(args[1]); break;
    case COLOR_VIDEOINIT: ret_value = TrueColor_VideoInitialize(args[1]); break;
    case COLOR_OVERLAYREGION: {
      int left, top, bottom, width, height;
      if (args[1] != NIL_PTR) {
        LispPTR region, value;
        int bottom;
        /* get lisp region elements */
        region = args[1];
        value = car(region);
        N_GETNUMBER(value, left, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, bottom, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, width, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, height, bad_arg);
        top = displayheight - (bottom + height);
        if (args[2] == ATOM_T) {
          Overlay_Region(left, top, width, height, TRUE);
        } else {
          Overlay_Region(left, top, width, height, FALSE);
        } /* end if( args[2] ) */
        ret_value = T;
      } /* end if( arg[1] ) */
    }   /* end case */
    break;
    case COLOR_VIDEOREGION: {
      int left, top, bottom, width, height;
      if (args[1] != NIL_PTR) {
        LispPTR region, value;
        int bottom;
        /* get lisp region elements */
        region = args[1];
        value = car(region);
        N_GETNUMBER(value, left, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, bottom, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, width, bad_arg);
        region = cdr(region);
        value = car(region);
        N_GETNUMBER(value, height, bad_arg);
        top = displayheight - (bottom + height);
      } else {
        left = 0;
        top = 0;
        width = displaywidth;
        height = displayheight;
      } /* end if( arg[1] ) */

      if (args[2] == NIL_PTR) { /* video region clear */
        cgeight_video_region(left, top, width, height, FALSE);
      } else { /* video region set */
        cgeight_video_region(left, top, width, height, TRUE);
      } /* end if( args[2] ) */
      ret_value = T;
    } /* end case */
    break;
    defaults:
      break;
  } /* end switch( op ) */

bad_arg:
  return (ret_value);

} /* end TrueColor_Op */

extern int Inited_Color;
extern int DisplayType;

Pixrect *OverlayCursor, *OverlaySave;
DLword *OverlayRegion68k;

int TrueColor_Initialize(LispPTR overlay_bmbase)
{
  unsigned int pict, *ret_value;
  Pixrect *source;
  int mmapstat, size;

  if (Inited_Color) {
    printf("cgeight_init_color_display: 8 bits color display has already initialized.\n");
  } /* end if( Inited_Color ) */

  if (Inited_TrueColor) {
    printf("cgeight_init_color_display: 24 bits color display has already initialized.\n");
  } /* end if( Inited_TrueColor ) */

  if (DisplayType != SUNMEMCOLOR) {
    error("cgeight_init_color_display: Unsupported FBreal_type %d\n", DisplayType);
  } /* end if( DisplayType ) */

  OverlayRegion68k = Addr68k_from_LADDR(overlay_bmbase);
  size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());

  ScreenLocked = T;
  taking_mouse_down();

  pict = (unsigned int)cgeight_init_color_display();

  source = mem_point(displaywidth, displayheight, 1, OverlayRegion68k);
  pr_set_plane_group(TrueColorFb, PIXPG_OVERLAY_ENABLE);
  pr_rop(TrueColorFb, 0, 0, displaywidth, displayheight, PIX_SRC, source, 0, 0);
  pr_set_plane_group(TrueColorFb, PIXPG_24BIT_COLOR);

  mmapstat = (int)mmap(OverlayRegion68k, size, PROT_READ | PROT_WRITE,
#ifdef OS4
                       MAP_FIXED |
#endif
                           MAP_SHARED,
                       FrameBufferFd, 0x20000);

  if (mmapstat == -1) {
    perror("TrueColor_Initialize: ERROR at mmap system call\n");
    exit(0);
  } /* end if( mmapstat ) */

  OverlayCursor = mem_create(16, 16, 32);
  OverlaySave = mem_create(16, 16, 32);

  Inited_TrueColor = TRUE;

  taking_mouse_up(*EmCursorX68K, *EmCursorY68K);
  overlay_mouse_up(*EmCursorX68K, *EmCursorY68K);
  ScreenLocked = NIL;

  ret_value = (unsigned int *)createcell68k(TYPE_FIXP);
  *ret_value = pict;
  return (LADDR_from_68k(ret_value));

} /* end TrueColor_Initialize */

DLword *VideoEnableRegion68k;

int TrueColor_VideoInitialize(LispPTR videoenable_bmbase)
{
  Pixrect *source;
  int mmapstat, size;

  ScreenLocked = T;

  clear_video_region();
  Video_Initialize(FrameBufferFd);

  VideoEnableRegion68k = Addr68k_from_LADDR(videoenable_bmbase);
  size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());

  source = mem_point(displaywidth, displayheight, 1, VideoEnableRegion68k);
  pr_set_plane_group(TrueColorFb, PIXPG_VIDEO_ENABLE);
  pr_rop(TrueColorFb, 0, 0, displaywidth, displayheight, PIX_SRC, source, 0, 0);
  pr_set_plane_group(TrueColorFb, PIXPG_24BIT_COLOR);

  mmapstat = (int)mmap(VideoEnableRegion68k, size, PROT_READ | PROT_WRITE,
#ifdef OS4
                       MAP_FIXED |
#endif
                           MAP_SHARED,
                       FrameBufferFd, 0x533000);

  if (mmapstat == -1) {
    perror("TrueColor_VideoInitialize: ERROR at mmap system call\n");
    exit(0);
  } /* end if( mmapstat ) */

  ScreenLocked = NIL;
  return (T);

} /* TrueColor_VideoInitialize */

int Overlay_Region(int left, int top, int width, int height, int flg)
{
  ScreenLocked = T;
  overlay_mouse_down();

  cgeight_overlay_region(left, top, width, height, (flg ? FALSE : TRUE));

  overlay_mouse_up(*EmCursorX68K, *EmCursorY68K);
  ScreenLocked = NIL;

} /* end Overlay_Region */

#ifdef TRUECOLOR
#define TrackCursor(cx, cy)                          \
  {                                                  \
    *CLastUserActionCell68k = MiscStats->secondstmp; \
    overlay_mouse_down();                            \
    taking_mouse_down();                             \
    taking_mouse_up(cx, cy);                         \
    overlay_mouse_up(cx, cy);                        \
    *EmCursorX68K = cx;                              \
    *EmCursorY68K = cy;                              \
  }
#endif /* TRUECOLOR */

extern Pixrect *OverlaySave, *OverlayCursor;

void overlay_mouse_up(int newx, int newy)
{
  pr_set_plane_group(TrueColorFb, PIXPG_OVERLAY_ENABLE);
  pr_rop(TrueColorFb, newx, newy, 16, 16, PIX_SRC, OverlaySave, 0, 0);
  pr_rop(TrueColorFb, 0, 0, 16, 16, PIX_SRC | PIX_DST, OverlayCursor, newx, newy);
  pr_set_plane_group(TrueColorFb, PIXPG_24BIT_COLOR);

} /* end overlay_mouse_up */

extern int LastCursorX, LastCursorY;

void overlay_mouse_down() {
  pr_set_plane_group(TrueColorFb, PIXPG_OVERLAY_ENABLE);
  pr_rop(OverlaySave, 0, 0, 16, 16, PIX_SRC, TrueColorFb, LastCursorX, LastCursorY);
  pr_set_plane_group(TrueColorFb, PIXPG_24BIT_COLOR);

} /* end overlay_mouse_down */

void truecolor_before_exit() {
  if (Inited_TrueColor) {
    { /* fill region */
      int h, w;
      unsigned short *ptr;
      ptr = (unsigned short *)OverlayRegion68k;
      for (h = displayheight; (h--);) {
        for (w = DisplayRasterWidth; (w--);) { *(ptr++) = ~0; } /* end for( w ) */
      }                                                         /* end for( h ) */
    }

    pr_set_plane_group(TrueColorFb, PIXPG_24BIT_COLOR);
    pr_rop(TrueColorFb, 0, 0, displaywidth, displayheight, PIX_SRC | PIX_COLOR(0xffffff), 0, 0, 0);

#ifdef VIDEO
    if (Inited_Video) {
      { /* clear video enable region */
        int h, w;
        unsigned short *ptr;
        ptr = (unsigned short *)VideoEnableRegion68k;
        for (h = displayheight; (h--);) {
          for (w = DisplayRasterWidth; (w--);) { *(ptr++) = 0xffff; } /* end for( w ) */
        }                                                             /* end for( h ) */
      }

      Video_Close();

    }  /* end if( Inited_Video ) */
#endif /* VIDEO */

    pr_close(TrueColorFb);

  } /* end if( Inited_TrueColor ) */

} /* truecolor_before_exit */

char *HideOverlayRegion;
#ifdef VIDEO
char *HideVideoEnableRegion;
extern int Video_OnOff_Flg;
static int video_onoff;
#endif /* VIDEO */

void truecolor_before_raid() {
  int size;

  if (Inited_TrueColor) {
    size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());

    if (posix_memalign((void *)&HideOverlayRegion, getpagesize(), size) != 0) {
      printf("can't allocate hide space\n");
      return (-1);
    } /* end if( HideOverlayRegion ) */

    copy_region(OverlayRegion68k, HideOverlayRegion, DisplayRasterWidth, displayheight);

    { /* fill region */
      int h, w;
      unsigned short *ptr;
      ptr = (unsigned short *)OverlayRegion68k;
      for (h = displayheight; (h--);) {
        for (w = DisplayRasterWidth; (w--);) { *(ptr++) = 0xffff; } /* end for( w ) */
      }                                                             /* end for( h ) */
    }
  } /* end if( Inited_TrueColor ) */

#ifdef VIDEO
  if (Inited_Video) {
    if ((video_onoff = Video_OnOff_Flg)) Video_OnOff(FALSE);
    if (posix_memalign((void *)&HideVideoEnableRegion, getpagesize(), size) != 0) {
      printf("can't allocate hide space\n");
      return (-1);
    } /* end if( HideVideoEnableRegion ) */

    copy_region(VideoEnableRegion68k, HideVideoEnableRegion, DisplayRasterWidth, displayheight);

    { /* clear video enable region */
      int h, w;
      unsigned short *ptr;
      ptr = (unsigned short *)VideoEnableRegion68k;
      for (h = displayheight; (h--);) {
        for (w = DisplayRasterWidth; (w--);) { *(ptr++) = 0xffff; } /* end for( w ) */
      }                                                             /* end for( h ) */
    }
  }    /* end if( Inited_Video ) */
#endif /* VIDEO */

} /* end truecolor_before_raid */

void truecolor_after_raid() {
  int size, mmapstat;

  if (Inited_TrueColor) {
    size = ((displaywidth * displayheight / 8 + (getpagesize() - 1)) & -getpagesize());

    mmapstat = (int)mmap(OverlayRegion68k, size, PROT_READ | PROT_WRITE,
#ifdef OS4
                         MAP_FIXED |
#endif
                             MAP_SHARED,
                         FrameBufferFd, 0x20000);

    if (mmapstat == -1) {
      perror("TrueColor_Initialize: ERROR at mmap system call\n");
      exit(0);
    } /* end if( mmapstat ) */

    copy_region(HideOverlayRegion, OverlayRegion68k, DisplayRasterWidth, displayheight);
    free(HideOverlayRegion);
  } /* end if( Inited_TrueColor ) */

#ifdef VIDEO
  if (Inited_Video) {
    mmapstat = (int)mmap(VideoEnableRegion68k, size, PROT_READ | PROT_WRITE,
#ifdef OS4
                         MAP_FIXED |
#endif
                             MAP_SHARED,
                         FrameBufferFd, 0x533000);

    if (mmapstat == -1) {
      perror("TrueColor_VideoInitialize: ERROR at mmap system call\n");
      exit(0);
    } /* end if( mmapstat ) */

    copy_region(HideVideoEnableRegion, VideoEnableRegion68k, DisplayRasterWidth, displayheight);
    free(HideVideoEnableRegion);
    if (video_onoff) Video_OnOff(TRUE);

  }    /* end if( Inited_Video ) */
#endif /* VIDEO */

} /* end truecolor_after_raid */