int
Tk_DefineBitmap(
Tcl_Interp *interp, /* Interpreter to use for error reporting. */
const char *name, /* Name to use for bitmap. Must not already be
* defined as a bitmap. */
const void *source, /* Address of bits for bitmap. */
int width, /* Width of bitmap. */
int height) /* Height of bitmap. */
{
int isNew;
Tcl_HashEntry *predefHashPtr;
TkPredefBitmap *predefPtr;
ThreadSpecificData *tsdPtr =
Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
/*
* Initialize the Bitmap module if not initialized already for this
* thread. Since the current TkDisplay structure cannot be introspected
* from here, pass a NULL pointer to BitmapInit, which will know to
* initialize only the data in the ThreadSpecificData structure for the
* current thread.
*/
if (!tsdPtr->initialized) {
BitmapInit(NULL);
}
predefHashPtr = Tcl_CreateHashEntry(&tsdPtr->predefBitmapTable,
name, &isNew);
if (!isNew) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bitmap \"%s\" is already defined", name));
Tcl_SetErrorCode(interp, "TK", "BITMAP", "EXISTS", NULL);
return TCL_ERROR;
}
predefPtr = ckalloc(sizeof(TkPredefBitmap));
predefPtr->source = source;
predefPtr->width = width;
predefPtr->height = height;
predefPtr->native = 0;
Tcl_SetHashValue(predefHashPtr, predefPtr);
return TCL_OK;
}
/* ARGSUSED */
Pixmap
Tk_GetBitmapFromData(
Tcl_Interp *interp, /* Interpreter to use for error reporting. */
Tk_Window tkwin, /* Window in which bitmap will be used. */
const void *source, /* Bitmap data for bitmap shape. */
int width, int height) /* Dimensions of bitmap. */
{
DataKey nameKey;
Tcl_HashEntry *dataHashPtr;
int isNew;
char string[16 + TCL_INTEGER_SPACE];
char *name;
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
ThreadSpecificData *tsdPtr =
Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
if (!tsdPtr->initialized) {
BitmapInit(dispPtr);
}
nameKey.source = source;
nameKey.width = width;
nameKey.height = height;
dataHashPtr = Tcl_CreateHashEntry(&dispPtr->bitmapDataTable,
(char *) &nameKey, &isNew);
if (!isNew) {
name = Tcl_GetHashValue(dataHashPtr);
} else {
dispPtr->bitmapAutoNumber++;
sprintf(string, "_tk%d", dispPtr->bitmapAutoNumber);
name = string;
Tcl_SetHashValue(dataHashPtr, name);
if (Tk_DefineBitmap(interp, name, source, width, height) != TCL_OK) {
Tcl_DeleteHashEntry(dataHashPtr);
return TCL_ERROR;
}
}
return Tk_GetBitmap(interp, tkwin, name);
}
void SkJS::InitializeDisplayables(const SkBitmap& bitmap, JSContext *cx, JSObject *obj, JSObject *proto) {
SkJSDisplayable::gCanvas = new SkCanvas(bitmap);
SkJSDisplayable::gPaint = new SkPaint();
#if SK_USE_CONDENSED_INFO == 0
GenerateTables();
#else
SkASSERT(0); // !!! compressed version hasn't been implemented
#endif
AddInit(cx, obj, proto);
AddCircleInit(cx, obj, proto);
AddOvalInit(cx, obj, proto);
AddPathInit(cx, obj, proto);
AddRectangleInit(cx, obj, proto);
AddRoundRectInit(cx, obj, proto);
// AfterInit(cx, obj, proto);
ApplyInit(cx, obj, proto);
// AnimateInit(cx, obj, proto);
// AnimateColorInit(cx, obj, proto);
AnimateFieldInit(cx, obj, proto);
// AnimateRotateInit(cx, obj, proto);
// AnimateScaleInit(cx, obj, proto);
// AnimateTranslateInit(cx, obj, proto);
BitmapInit(cx, obj, proto);
// BaseBitmapInit(cx, obj, proto);
// BeforeInit(cx, obj, proto);
BitmapShaderInit(cx, obj, proto);
BlurInit(cx, obj, proto);
ClipInit(cx, obj, proto);
ColorInit(cx, obj, proto);
CubicToInit(cx, obj, proto);
DashInit(cx, obj, proto);
DataInit(cx, obj, proto);
// DimensionsInit(cx, obj, proto);
DiscreteInit(cx, obj, proto);
DrawToInit(cx, obj, proto);
EmbossInit(cx, obj, proto);
EventInit(cx, obj, proto);
// FontInit(cx, obj, proto);
// FocusInit(cx, obj, proto);
ImageInit(cx, obj, proto);
IncludeInit(cx, obj, proto);
// InputInit(cx, obj, proto);
LineInit(cx, obj, proto);
LinearGradientInit(cx, obj, proto);
LineToInit(cx, obj, proto);
MatrixInit(cx, obj, proto);
MoveInit(cx, obj, proto);
MoveToInit(cx, obj, proto);
OvalInit(cx, obj, proto);
PathInit(cx, obj, proto);
PaintInit(cx, obj, proto);
DrawPointInit(cx, obj, proto);
PolyToPolyInit(cx, obj, proto);
PolygonInit(cx, obj, proto);
PolylineInit(cx, obj, proto);
PostInit(cx, obj, proto);
QuadToInit(cx, obj, proto);
RadialGradientInit(cx, obj, proto);
RandomInit(cx, obj, proto);
RectToRectInit(cx, obj, proto);
RectangleInit(cx, obj, proto);
RemoveInit(cx, obj, proto);
ReplaceInit(cx, obj, proto);
RotateInit(cx, obj, proto);
RoundRectInit(cx, obj, proto);
ScaleInit(cx, obj, proto);
SetInit(cx, obj, proto);
SkewInit(cx, obj, proto);
// 3D_CameraInit(cx, obj, proto);
// 3D_PatchInit(cx, obj, proto);
SnapshotInit(cx, obj, proto);
// StrokeInit(cx, obj, proto);
TextInit(cx, obj, proto);
TextOnPathInit(cx, obj, proto);
TextToPathInit(cx, obj, proto);
TranslateInit(cx, obj, proto);
// UseInit(cx, obj, proto);
}
static TkBitmap *
GetBitmap(
Tcl_Interp *interp, /* Interpreter to use for error reporting,
* this may be NULL. */
Tk_Window tkwin, /* Window in which bitmap will be used. */
const char *string) /* Description of bitmap. See manual entry for
* details on legal syntax. */
{
Tcl_HashEntry *nameHashPtr, *predefHashPtr;
TkBitmap *bitmapPtr, *existingBitmapPtr;
TkPredefBitmap *predefPtr;
Pixmap bitmap;
int isNew, width, height, dummy2;
TkDisplay *dispPtr = ((TkWindow *) tkwin)->dispPtr;
ThreadSpecificData *tsdPtr =
Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
if (!dispPtr->bitmapInit) {
BitmapInit(dispPtr);
}
nameHashPtr = Tcl_CreateHashEntry(&dispPtr->bitmapNameTable, string,
&isNew);
if (!isNew) {
existingBitmapPtr = Tcl_GetHashValue(nameHashPtr);
for (bitmapPtr = existingBitmapPtr; bitmapPtr != NULL;
bitmapPtr = bitmapPtr->nextPtr) {
if ((Tk_Display(tkwin) == bitmapPtr->display) &&
(Tk_ScreenNumber(tkwin) == bitmapPtr->screenNum)) {
bitmapPtr->resourceRefCount++;
return bitmapPtr;
}
}
} else {
existingBitmapPtr = NULL;
}
/*
* No suitable bitmap exists. Create a new bitmap from the information
* contained in the string. If the string starts with "@" then the rest of
* the string is a file name containing the bitmap. Otherwise the string
* must refer to a bitmap defined by a call to Tk_DefineBitmap.
*/
if (*string == '@') { /* INTL: ISO char */
Tcl_DString buffer;
int result;
if (Tcl_IsSafe(interp)) {
Tcl_SetObjResult(interp, Tcl_NewStringObj(
"can't specify bitmap with '@' in a safe interpreter",
-1));
Tcl_SetErrorCode(interp, "TK", "SAFE", "BITMAP_FILE", NULL);
goto error;
}
/*
* Note that we need to cast away the const from the string because
* Tcl_TranslateFileName is non-const, even though it doesn't modify
* the string.
*/
string = Tcl_TranslateFileName(interp, (char *) string + 1, &buffer);
if (string == NULL) {
goto error;
}
result = TkReadBitmapFile(Tk_Display(tkwin),
RootWindowOfScreen(Tk_Screen(tkwin)), string,
(unsigned int *) &width, (unsigned int *) &height,
&bitmap, &dummy2, &dummy2);
if (result != BitmapSuccess) {
if (interp != NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"error reading bitmap file \"%s\"", string));
Tcl_SetErrorCode(interp, "TK", "BITMAP", "FILE_ERROR", NULL);
}
Tcl_DStringFree(&buffer);
goto error;
}
Tcl_DStringFree(&buffer);
} else {
predefHashPtr = Tcl_FindHashEntry(&tsdPtr->predefBitmapTable, string);
if (predefHashPtr == NULL) {
/*
* The following platform specific call allows the user to define
* bitmaps that may only exist during run time. If it returns None
* nothing was found and we return the error.
*/
bitmap = TkpGetNativeAppBitmap(Tk_Display(tkwin), string,
&width, &height);
if (bitmap == None) {
if (interp != NULL) {
Tcl_SetObjResult(interp, Tcl_ObjPrintf(
"bitmap \"%s\" not defined", string));
Tcl_SetErrorCode(interp, "TK", "LOOKUP", "BITMAP", string,
NULL);
}
goto error;
}
} else {
predefPtr = Tcl_GetHashValue(predefHashPtr);
width = predefPtr->width;
height = predefPtr->height;
if (predefPtr->native) {
bitmap = TkpCreateNativeBitmap(Tk_Display(tkwin),
predefPtr->source);
if (bitmap == None) {
Tcl_Panic("native bitmap creation failed");
}
} else {
bitmap = XCreateBitmapFromData(Tk_Display(tkwin),
RootWindowOfScreen(Tk_Screen(tkwin)),
predefPtr->source, (unsigned)width, (unsigned)height);
}
}
}
/*
* Add information about this bitmap to our database.
*/
bitmapPtr = ckalloc(sizeof(TkBitmap));
bitmapPtr->bitmap = bitmap;
bitmapPtr->width = width;
bitmapPtr->height = height;
bitmapPtr->display = Tk_Display(tkwin);
bitmapPtr->screenNum = Tk_ScreenNumber(tkwin);
bitmapPtr->resourceRefCount = 1;
bitmapPtr->objRefCount = 0;
bitmapPtr->nameHashPtr = nameHashPtr;
bitmapPtr->idHashPtr = Tcl_CreateHashEntry(&dispPtr->bitmapIdTable,
(char *) bitmap, &isNew);
if (!isNew) {
Tcl_Panic("bitmap already registered in Tk_GetBitmap");
}
bitmapPtr->nextPtr = existingBitmapPtr;
Tcl_SetHashValue(nameHashPtr, bitmapPtr);
Tcl_SetHashValue(bitmapPtr->idHashPtr, bitmapPtr);
return bitmapPtr;
error:
if (isNew) {
Tcl_DeleteHashEntry(nameHashPtr);
}
return NULL;
}
_main() {
SCR_RECT SCREEN = {{0, 0, LCD_WIDTH-1, LCD_HEIGHT-1}};
SCR_RECT rect = {{0, 0, HEIGHT-1, HEIGHT-1}};
short attr = A_XOR; // Default replace value: A_XOR
// Parses arguments
ESI argptr;
InitArgPtr(argptr);
int argtype = GetArgType(argptr);
if (argtype == POSINT_TAG) {
int num = GetIntArg(argptr);
// 2. *** YOUR CODE HERE ***
}
// Initializes a rectangle bitmap of HEIGHT x HEIGHT
char mask [BITMAP_SIZE];
int i = 0;
while (i < BITMAP_SIZE) {
mask[i] = 0xFF; // Change this value to get different masks!
i++;
}
BitmapInit(&rect, mask);
// Puts the rectangle onto the screen
DRAW;
int c;
// Main loop for getting keyboard input
while ((c = ngetchx()) != ENTER_KEY) {
// Erases old bitmap
DRAW;
switch (c) { // Moves bitmap around
case LEFT_KEY:
if (rect.xy.x0 - 5 >= 0) {
rect.xy.x0 -=5;
rect.xy.x1 -=5;
}
break;
case RIGHT_KEY:
if (rect.xy.x1 + 5 < LCD_WIDTH) {
rect.xy.x0 +=5;
rect.xy.x1 +=5;
}
break;
case UP_KEY:
if (rect.xy.y0 - 5 >= 0) {
rect.xy.y0 -=5;
rect.xy.y1 -=5;
}
break;
case DOWN_KEY:
if (rect.xy.y1 + 5 < LCD_HEIGHT) {
rect.xy.y0 +=5;
rect.xy.y1 +=5;
}
break;
}
// Draws new bitmap
DRAW;
}
}
