mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-02 14:51:23 +00:00
Maiko sources matching state as of 020102 prior to initial patching for Mac OSX
This commit is contained in:
Nick Briggs
359
src/llcolor.c
Executable file
359
src/llcolor.c
Executable file
@@ -0,0 +1,359 @@
|
||||
/* $Id: llcolor.c,v 1.2 1999/01/03 02:07:15 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
||||
static char *id = "$Id: llcolor.c,v 1.2 1999/01/03 02:07:15 sybalsky Exp $ Copyright (C) Venue";
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
/************************************************************************/
|
||||
/* */
|
||||
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
||||
/* Manufactured in the United States of America. */
|
||||
/* */
|
||||
/* The contents of this file are proprietary information */
|
||||
/* belonging to Venue, and are provided to you under license. */
|
||||
/* They may not be further distributed or disclosed to third */
|
||||
/* parties without the specific permission of Venue. */
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
#include "version.h"
|
||||
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#ifndef NOPIXRECT
|
||||
#include <sunwindow/window_hs.h>
|
||||
#include <sunwindow/cms.h>
|
||||
#include <sunwindow/win_ioctl.h>
|
||||
#include <pixrect/pixrect_hs.h>
|
||||
#include <sun/fbio.h>
|
||||
#include <pixrect/pr_planegroups.h>
|
||||
#include <sys/mman.h>
|
||||
#endif /* NOPIXRECT */
|
||||
|
||||
#include <sys/ioctl.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/file.h>
|
||||
|
||||
#include <errno.h>
|
||||
|
||||
#include "lispemul.h"
|
||||
#include "lispmap.h"
|
||||
#include "lsptypes.h"
|
||||
#include "address.h"
|
||||
#include "adr68k.h"
|
||||
#include "lspglob.h"
|
||||
#include "emlglob.h"
|
||||
#include "display.h"
|
||||
#include "devconf.h"
|
||||
|
||||
#include "bb.h"
|
||||
#include "bitblt.h"
|
||||
#include "pilotbbt.h"
|
||||
#include "dbprint.h"
|
||||
|
||||
int MonoOrColor=MONO_SCREEN;
|
||||
DLword *ColorDisplayRegion68k;
|
||||
int Dispcolorsize;
|
||||
int Inited_Color = NIL;
|
||||
extern struct pixrect *ColorDisplayPixrect;
|
||||
extern int displaywidth
|
||||
, displayheight
|
||||
, FrameBufferFd;
|
||||
|
||||
/*******************************************************************/
|
||||
/* Func name : cgfour_init_color_display(args)
|
||||
Arg(s) : COLOR BITMAP ADDRESS(LISPPTR)
|
||||
Desc : Assign to SUBR 0210
|
||||
mmap LispPTR to Color Display FB.
|
||||
By Takeshi
|
||||
*/
|
||||
/*******************************************************************/
|
||||
#ifdef COLOR
|
||||
cgfour_init_color_display(color_bitmapbase) /* SUBR 0210 */
|
||||
LispPTR color_bitmapbase; /* COLOR BITMAP ADDRESS */
|
||||
{
|
||||
struct pixrect *ColorFb;
|
||||
struct pixrect *color_source;
|
||||
int mmapstat;
|
||||
|
||||
if(MonoOrColor == COLOR_SCREEN) {
|
||||
printf("You can not initialize the color screen from inside color screen. \n");
|
||||
}
|
||||
|
||||
ColorDisplayRegion68k = Addr68k_from_LADDR(color_bitmapbase );
|
||||
|
||||
Dispcolorsize = ((displaywidth * displayheight + (getpagesize()-1) )
|
||||
& -getpagesize()); /* 8 bit depth */
|
||||
#ifndef DISPLAYBUFFER
|
||||
ColorFb = pr_open("/dev/fb");
|
||||
#else
|
||||
ColorFb = ColorDisplayPixrect;
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
|
||||
#ifndef DISPLAYBUFFER
|
||||
color_source = mem_point(displaywidth,displayheight,8,
|
||||
ColorDisplayRegion68k);
|
||||
|
||||
pr_set_plane_group(ColorFb, PIXPG_8BIT_COLOR);
|
||||
pr_rop(ColorFb,0,0,displaywidth,displayheight,PIX_SRC,
|
||||
color_source,0,0);
|
||||
|
||||
mmapstat = (int)mmap(ColorDisplayRegion68k ,
|
||||
Dispcolorsize,
|
||||
PROT_READ | PROT_WRITE,
|
||||
#ifdef OS4
|
||||
MAP_FIXED |
|
||||
#endif
|
||||
MAP_SHARED,
|
||||
FrameBufferFd, 0x40000 );
|
||||
if(mmapstat == -1){
|
||||
perror("cgfour_init_color_display: ERROR at mmap system call\n");
|
||||
error ("cgfour_init_color_display: ERROR at mmap system call\n You may be able to continue by typing 'q'");
|
||||
}
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
|
||||
printf("COLOR-INIT OK BMBASE=0x%x\nNATIVE:= 0x%x)\n",
|
||||
color_bitmapbase,ColorDisplayRegion68k);
|
||||
|
||||
Inited_Color = T; /* Color display is active. */
|
||||
|
||||
return(color_bitmapbase);
|
||||
} /* end cgfour_init_color_display */
|
||||
|
||||
#else /* COLOR */
|
||||
|
||||
cgfour_init_color_display(color_bitmapbase) /* SUBR 0210 */
|
||||
LispPTR color_bitmapbase; /* COLOR BITMAP ADDRESS */
|
||||
{
|
||||
printf( "Color is not supported.\n" );
|
||||
}
|
||||
#endif /* COLOR */
|
||||
|
||||
/*******************************************************************/
|
||||
/* Func name : cgfour_change_screen_mode(which_screen)
|
||||
Arg(s) : MONO_SCREEN OR COLOR_SCREEN
|
||||
Desc : Assign to SUBR 0211
|
||||
Change screen Mono to Color,vice versa.
|
||||
By Takeshi
|
||||
*/
|
||||
/*******************************************************************/
|
||||
#ifdef COLOR
|
||||
cgfour_change_screen_mode(which_screen)
|
||||
LispPTR which_screen;
|
||||
{ /* subr 0211 */
|
||||
struct pixrect *ColorFb;
|
||||
extern ScreenLocked;
|
||||
extern DLword *EmCursorX68K,*EmCursorY68K;
|
||||
|
||||
int mmapstat;
|
||||
|
||||
#ifndef DISPLAYBUFFER
|
||||
ColorFb = pr_open("/dev/fb");
|
||||
#else
|
||||
ColorFb = ColorDisplayPixrect;
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
ScreenLocked=T;
|
||||
taking_mouse_down();
|
||||
|
||||
switch (which_screen & 0xf) {
|
||||
case MONO_SCREEN : { /* resume mono screen */
|
||||
#ifdef DISPLAYBUFFER
|
||||
mmapstat = (int)munmap( ColorDisplayRegion68k, Dispcolorsize );
|
||||
if( mmapstat == -1){
|
||||
perror("cg_four_change_screen: ERROR at munmap system call\n");
|
||||
exit( 0 );
|
||||
} /* end if(mmapstat) */
|
||||
save_color_screen();
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
pr_set_plane_group(ColorFb, PIXPG_OVERLAY_ENABLE);
|
||||
pr_rop(ColorFb,0,0,
|
||||
ColorFb->pr_width,
|
||||
ColorFb->pr_height, PIX_SET, 0, 0, 0);
|
||||
pr_set_plane_group(ColorFb, PIXPG_OVERLAY);
|
||||
#ifdef DISPLAYBUFFER
|
||||
flush_display_buffer();
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
MonoOrColor = MONO_SCREEN;
|
||||
break;
|
||||
}
|
||||
case COLOR_SCREEN : {
|
||||
#ifndef DISPLAYBUFFER
|
||||
pr_set_plane_group(ColorFb, PIXPG_OVERLAY_ENABLE);
|
||||
pr_rop(ColorFb,0,0,
|
||||
ColorFb->pr_width,
|
||||
ColorFb->pr_height, PIX_CLR, 0, 0, 0);
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
pr_set_plane_group(ColorFb, PIXPG_8BIT_COLOR);
|
||||
#ifdef DISPLAYBUFFER
|
||||
restore_color_screen();
|
||||
mmapstat = (int)mmap(ColorDisplayRegion68k ,
|
||||
Dispcolorsize,
|
||||
PROT_READ | PROT_WRITE,
|
||||
#ifdef OS4
|
||||
MAP_FIXED |
|
||||
#endif
|
||||
MAP_SHARED,
|
||||
FrameBufferFd, 0x40000 );
|
||||
if(mmapstat == -1){
|
||||
perror("cg_four_change_screen: ERROR at mmap system call\n");
|
||||
exit(0);
|
||||
}
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
MonoOrColor = COLOR_SCREEN;
|
||||
break;
|
||||
}
|
||||
default : {
|
||||
error("cgfour_change_screen_mode:Unknown mode:");
|
||||
}
|
||||
};
|
||||
|
||||
#ifndef DISPLAYBUFFER
|
||||
pr_close(ColorFb);
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
|
||||
taking_mouse_up(*EmCursorX68K,*EmCursorY68K);
|
||||
ScreenLocked=NIL;
|
||||
return(which_screen);
|
||||
}
|
||||
#else /* COLOR */
|
||||
|
||||
cgfour_change_screen_mode(which_screen)
|
||||
LispPTR which_screen;
|
||||
{
|
||||
printf( "Color is not supported.\n" );
|
||||
}
|
||||
#endif /* COLOR */
|
||||
|
||||
|
||||
/*******************************************************************/
|
||||
/* Func name : cgfour_set_colormap(args)
|
||||
Arg(s) : Passed by args
|
||||
index: colormap index(0~255)
|
||||
red,green,blue:(0~255)
|
||||
Desc : Assign to SUBR 0212
|
||||
Set Colormap entry
|
||||
By Takeshi
|
||||
*/
|
||||
/*******************************************************************/
|
||||
unsigned char RED_colormap;
|
||||
unsigned char GRN_colormap;
|
||||
unsigned char BLU_colormap;
|
||||
|
||||
#ifdef COLOR
|
||||
cgfour_set_colormap(args)
|
||||
LispPTR args[];
|
||||
{
|
||||
int index;
|
||||
struct pixrect *ColorFb;
|
||||
|
||||
index=args[0] & 0xff;
|
||||
|
||||
RED_colormap = (unsigned char) (args[1] & 0xff);
|
||||
GRN_colormap = (unsigned char) (args[2] & 0xff);
|
||||
BLU_colormap = (unsigned char) (args[3] & 0xff);
|
||||
|
||||
ColorFb = pr_open("/dev/fb");
|
||||
|
||||
if (pr_putcolormap(ColorFb,index,1,
|
||||
&RED_colormap,
|
||||
&GRN_colormap,
|
||||
&BLU_colormap)==-1)
|
||||
perror("putcolormap:");
|
||||
pr_close(ColorFb);
|
||||
return(T);
|
||||
}
|
||||
#else /* COLOR */
|
||||
|
||||
cgfour_set_colormap(args)
|
||||
LispPTR args[];
|
||||
{
|
||||
printf( "Color is not supported.\n" );
|
||||
}
|
||||
#endif /* COLOR */
|
||||
|
||||
|
||||
#ifdef COLOR
|
||||
#ifdef DISPLAYBUFFER
|
||||
static struct pixrect *saved_screen;
|
||||
static int Screen_Saved = T;
|
||||
|
||||
save_color_screen()
|
||||
{
|
||||
if( !Screen_Saved ) {
|
||||
saved_screen = mem_point( displaywidth
|
||||
, displayheight
|
||||
, 8
|
||||
, ColorDisplayRegion68k );
|
||||
pr_rop( saved_screen
|
||||
, 0, 0, displaywidth, displayheight
|
||||
, PIX_SRC, ColorDisplayPixrect, 0, 0 );
|
||||
Screen_Saved = T;
|
||||
} /* end if(!Screen_Saved) */
|
||||
} /* end save_color_screen() */
|
||||
|
||||
restore_color_screen()
|
||||
{
|
||||
if( Screen_Saved ) {
|
||||
saved_screen = mem_point( displaywidth
|
||||
, displayheight
|
||||
, 8
|
||||
, ColorDisplayRegion68k );
|
||||
pr_rop( ColorDisplayPixrect
|
||||
, 0, 0, displaywidth, displayheight
|
||||
, PIX_SRC, saved_screen, 0, 0 );
|
||||
Screen_Saved = NIL;
|
||||
} /* end if(Screen_Saved) */
|
||||
} /* end restore_color_screen() */
|
||||
#endif /* DISPLAYBUFFER */
|
||||
|
||||
|
||||
static unsigned char red_colormap[256]
|
||||
, green_colormap[256]
|
||||
, blue_colormap[256];
|
||||
static int Saved_Colormap = NIL;
|
||||
save_colormap()
|
||||
{
|
||||
struct pixrect *Color_Fb;
|
||||
|
||||
if( !Saved_Colormap ) {
|
||||
Color_Fb = pr_open( "/dev/fb" );
|
||||
if( (pr_getcolormap( Color_Fb, 0 , 256
|
||||
, red_colormap
|
||||
, green_colormap
|
||||
, blue_colormap )) == -1 )
|
||||
perror("save_color_map:");
|
||||
else
|
||||
Saved_Colormap = T;
|
||||
|
||||
pr_close( Color_Fb );
|
||||
} /* end if( !Saved_Colormap ) */
|
||||
} /* end save_colormap() */
|
||||
|
||||
restore_colormap()
|
||||
{
|
||||
struct pixrect *Color_Fb;
|
||||
|
||||
if( Saved_Colormap ) {
|
||||
Color_Fb = pr_open( "/dev/fb" );
|
||||
if( (pr_putcolormap( Color_Fb, 0 , 256
|
||||
, red_colormap
|
||||
, green_colormap
|
||||
, blue_colormap )) == -1 )
|
||||
perror("restore_color_map:");
|
||||
pr_close( Color_Fb );
|
||||
Saved_Colormap = NIL;
|
||||
} /* end if( Saved_Colormap ) */
|
||||
} /* end restore_colormap() */
|
||||
#endif /* COLOR */
|
||||
|
||||
|
||||
Reference in New Issue
Block a user