void Trace(int flag,int data)
{
char *str=0;
int color=0;
data=(data-5)/30;
if(flag==72||flag==80)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
bar(530,440,555,452);
color=getcolor();
setcolor(LIGHTBLUE);
itoa(data,str,10);
outtextxy(530,440,str);
Message(str);
setcolor(color);
}
if(flag==75||flag==77)
{
setcolor(BLACK);
setfillstyle(SOLID_FILL,BLACK);
bar(530,420,555,432);
color=getcolor();
setcolor(LIGHTBLUE);
sprintf(str,"%c",data+64);
/*itoa(data,str,10);*/
outtextxy(530,420,str);
setcolor(color);
}
setcolor(WHITE); /* 恢复白棋操作颜色 （人） */
setfillstyle(SOLID_FILL,WHITE);
return ;
}
void clientlist_init() {
// init atoms
for (int i = 0; i < WMCOUNT; i++)
g_wmatom[i] = ATOM(wmatom_names[i]);
for (int i = 0; i < NetCOUNT; i++)
g_netatom[i] = ATOM(netatom_names[i]);
for (int i = 0; i < XCOUNT; i++)
g_xatom[i] = ATOM(xatom_names[i]);
// init actual client list
g_clients = g_array_new(false, false, sizeof(Client*));
//init colors
for(int i=0; i<NCOLORS; i++){
wincolors[i][ColFrameBorder] = getcolor(colors[i][ColFrameBorder]);
wincolors[i][ColWindowBorder] = getcolor(colors[i][ColWindowBorder]);
wincolors[i][ColFG] = getcolor(colors[i][ColFG]);
wincolors[i][ColBG] = getcolor(colors[i][ColBG]);
}
/* tell which ewmh atoms are supported */
XChangeProperty(gDisplay, gRoot, g_netatom[NetSupported], XA_ATOM, 32,
PropModeReplace, (unsigned char *) g_netatom, NetCOUNT);
}
ThemeTree *XML_ParseTree(xmlDocPtr doc, xmlNodePtr cur)
{
ThemeTree *tree;
#if 0
char *color;
#endif
TRACE("XML_ParseTree");
tree=malloc(sizeof(ThemeTree));
memset(tree,0,sizeof(ThemeTree));
StorePropertyAsShort(cur,"x",&tree->x);
StorePropertyAsShort(cur,"y",&tree->y);
StorePropertyAsShort(cur,"w",&tree->w);
StorePropertyAsShort(cur,"h",&tree->h);
#if 0
StorePropertyAsString(cur,"bgcolor",&color);
tree->bgcolor=getcolor(color);
free(color);
StorePropertyAsString(cur,"fgcolor",&color);
tree->fgcolor=getcolor(color);
free(color);
StorePropertyAsString(cur,"font",&tree->Font);
#endif
return tree;
}
static void set_attributes(int n, int *arg)
{
int c;
for (c = 1; c <= n; c++) {
int a = arg[c];
if (a >= 40)
screen_bgcolor(colors[getcolor(a)]);
else if (a >= 30)
screen_fgcolor(colors[getcolor(a)]);
else {
switch (a) {
case 0:
screen_fgcolor(con_col_fg);
screen_bgcolor(con_col_bg);
break;
case 7:
screen_fgcolor(con_col_bg);
screen_bgcolor(con_col_fg);
break;
case 8:
screen_fgcolor(con_col_bg);
screen_bgcolor(con_col_bg);
break;
}
}
}
}
value
caml_drawtext(value string, value pos, value matches, value colors) {
CAMLparam4(string, pos, matches, colors);
size_t size = textw(dc, String_val (string));
int x = Int_val(Field(pos, 0));
if (bottom)
/* magic formula */
dc->y = mh - (bh - dc->font.ascent - 1 + Int_val(Field(pos, 1)) * bh);
else
dc->y = dc->font.ascent+1 + Int_val(Field(pos, 1)) * bh;
drawrect(dc, x, dc->y-dc->font.ascent-1, size, bh, True, getcolor(dc, String_val(Field(colors, 2))));
int start, stop;
unsigned long fg;
int xoff = x + dc->font.height/2;
const char *str = String_val (string);
value head;
while (matches != Val_int(0)) {
head = Field (matches, 0);
matches = Field (matches, 1);
dc->x = xoff;
fg = getcolor(dc, String_val(Int_val(Field(head, 0)) == 0 ? Field(colors, 0) : Field(colors, 1)));
start = Int_val(Field (head, 1));
stop = Int_val(Field (head, 2));
xoff += drawtext(dc, str, start, stop, fg);
}
CAMLreturn(Val_int(x + size));
}
//Beginning of initSoilType proceedure. This initializes name(strings) and corresponding colors for different soil types
void initSoilType()
{
setcolor(BLACK); //Create dark Gray
int darkGray=getcolor();
setcolor(BLUE); //Create blue
int blue=getcolor();
setcolor(RED);
int red=getcolor(); //Create Red
setcolor(COLOR(202,139,59)); //Create Orangish Yellow
int orangeYellow=getcolor();
setcolor(COLOR(121,102,58)); //Create Greyish Brown
int grayBrown=getcolor();
setcolor(COLOR(160,160,160)); //Create Gray
int gray=getcolor();
setcolor(COLOR(16,19,6)); //Create black
int black=getcolor();
setcolor(LIGHTGRAY); //Create light gray
int lightGray=getcolor();
setcolor(WHITE); //Create White
int white=getcolor();
//Puts the integer color values into an array
typeColor[0]=darkGray;
typeColor[1]=blue;
typeColor[2]=red;
typeColor[3]=orangeYellow;
typeColor[4]=grayBrown;
typeColor[5]=gray;
typeColor[6]=black;
typeColor[7]=lightGray;
typeColor[8]=white;
/*Puts the strings representing soil types into typeName Array.
Each value in this array represents
soil type and corresponds to a value in typeColor Array*/
typeName[0]="Silt";
typeName[1]="Water";
typeName[2]="Clay";
typeName[3]="Sand";
typeName[4]="SandStone";
typeName[5]="MudStone";
typeName[6]="SiltStone";
typeName[7]="Shale";
typeName[8]="Concrete";
}
//Beginning of initSoilClr routine. This initializes name(strings) and corresponding integer color values for different soilPalette colors
void initSoilClr(soil_palette* soilPalette)
{
setcolor(COLOR(160,160,160)); /* Create grey */
soilPalette->color[0].value = getcolor( );
soilPalette->color[0].name="grey";
setcolor(DARKGRAY); /* Create dark grey */
soilPalette->color[1].value = getcolor( );
soilPalette->color[1].name="dark-grey";
setcolor(COLOR(220,220,220)); /* Create whitish grey */
soilPalette->color[2].value = getcolor( );
soilPalette->color[2].name="whitish-grey";
setcolor(COLOR(220,205,80)); /* Create yellowish grey */
soilPalette->color[3].value = getcolor( );
soilPalette->color[3].name="yellowish-grey";
setcolor(BROWN); /* Create brown */
soilPalette->color[4].value = getcolor( );
soilPalette->color[4].name="brown";
setcolor(COLOR(200,140,60)); /* Create light brown */
soilPalette->color[5].value = getcolor( );
soilPalette->color[5].name="light-brown";
setcolor(COLOR(195,160,100)); /* Create brownish grey */
soilPalette->color[6].value = getcolor( );
soilPalette->color[6].name="brownish-grey";
setcolor(COLOR(225,180,20)); /* Create brownish yellow */
soilPalette->color[7].value = getcolor( );
soilPalette->color[7].name="brownish-yellow";
setcolor(BLUE); /* Create Blue */
soilPalette->color[8].value = getcolor( );
soilPalette->color[8].name="blue";
}
ColorSet *
initcolor(DC *dc, const char * foreground, const char * background) {
ColorSet * col = (ColorSet *)malloc(sizeof(ColorSet));
if(!col)
eprintf("error, cannot allocate memory for color set");
col->BG = getcolor(dc, background);
col->FG = getcolor(dc, foreground);
if(dc->font.xft_font)
if(!XftColorAllocName(dc->dpy, DefaultVisual(dc->dpy, DefaultScreen(dc->dpy)),
DefaultColormap(dc->dpy, DefaultScreen(dc->dpy)), foreground, &col->FG_xft))
eprintf("error, cannot allocate xft font color '%s'\n", foreground);
return col;
}
// make a color set (foreground, background)
ColorSet * initcolor(DC * dc, const char * foreground, const char * background) {
ColorSet * col = (ColorSet *)malloc(sizeof(ColorSet));
col->BG = getcolor(dc, background);
col->FG = getcolor(dc, foreground);
if(dc->font.xft_font) {
if(!XftColorAllocName(dc->dpy, DefaultVisual(dc->dpy, DefaultScreen(dc->dpy)),
DefaultColormap(dc->dpy, DefaultScreen(dc->dpy)), foreground, &col->FG_xft)) {
}
}
return col;
}
//Beginning of initSoilType proceedure. This initializes name(strings) and corresponding colors for different soilPalette types
void initSoilType(soil_palette* soilPalette)
{
setcolor(BLACK); //Create dark Gray
soilPalette->type[0].value=getcolor();
soilPalette->type[0].name="Silt";
setcolor(BLUE); //Create blue
soilPalette->type[1].value=getcolor();
soilPalette->type[1].name="Water";
setcolor(RED); //Create Red
soilPalette->type[2].value=getcolor();
soilPalette->type[2].name="Clay";
setcolor(COLOR(202,139,59)); //Create Orangish Yellow
soilPalette->type[3].value=getcolor();
soilPalette->type[3].name="Sand";
setcolor(COLOR(121,102,58)); //Create Greyish Brown
soilPalette->type[4].value=getcolor();
soilPalette->type[4].name="SandStone";
setcolor(COLOR(160,160,160)); //Create Gray
soilPalette->type[5].value=getcolor();
soilPalette->type[5].name="MudStone";
setcolor(COLOR(16,19,6)); //Create black
soilPalette->type[6].value=getcolor();
soilPalette->type[6].name="SiltStone";
setcolor(LIGHTGRAY); //Create light gray
soilPalette->type[7].value=getcolor();
soilPalette->type[7].name="Shale";
setcolor(WHITE); //Create White
soilPalette->type[8].value=getcolor();
soilPalette->type[8].name="Concrete";
/*printf("Str %s\n ",soilPalette.type[0].name);
printf("Str %i \n ",soilPalette.type[6].value);
printf("Str %s\n ",soilPalette.type[2].name);
printf("Str %s\n ",soilPalette.type[3].name);
printf("Str %s\n ",soilPalette.type[4].name);*/
}
int main(int argv, char **argc) {
int c = 1;
char *border_color = "#fff";
while(c<argv-1) {
if (!strcmp("-w", argc[c])) {
width = atoi(argc[c+1]);
}
if (!strcmp("-bw", argc[c])) {
border = atoi(argc[c+1]);
}
if (!strcmp("-x", argc[c])) {
x = atoi(argc[c+1]);
}
if (!strcmp("-y", argc[c])) {
y = atoi(argc[c+1]);
}
if (!strcmp("-bc", argc[c])) {
border_color = argc[c+1];
}
if (!strcmp("-bat", argc[c])) {
bat_id = argc[c+1];
}
c+=2;
}
setup();
colorW = getcolor(border_color);
run();
return EXIT_FAILURE;
}
ulng color_in_range(char *clow, char *chigh, int percent) {
int a_s = strlen(clow);
int b_s = strlen(chigh);
if (a_s != 7 || b_s != 7) {
puts("color range must be in the form #XXXXXX:#XXXXXX");
exit(1);
}
char *res = calloc(sizeof(char), a_s);
res[0] = '#';
uint8_t a_red = 16*hex(clow[1])+hex(clow[2]);
uint8_t a_grn = 16*hex(clow[3])+hex(clow[4]);
uint8_t a_blu = 16*hex(clow[5])+hex(clow[6]);
uint8_t b_red = 16*hex(chigh[1])+hex(chigh[2]);
uint8_t b_grn = 16*hex(chigh[3])+hex(chigh[4]);
uint8_t b_blu = 16*hex(chigh[5])+hex(chigh[6]);
uint8_t n_red = a_red + ((b_red-a_red)*percent)/100;
uint8_t n_grn = a_grn + ((b_grn-a_grn)*percent)/100;
uint8_t n_blu = a_blu + ((b_blu-a_blu)*percent)/100;
res[1] = unhex(n_red/16);
res[2] = unhex(n_red%16);
res[3] = unhex(n_grn/16);
res[4] = unhex(n_grn%16);
res[5] = unhex(n_blu/16);
res[6] = unhex(n_blu%16);
ulng result = getcolor(res);
free(res);
return result;
}
void erase_path()
{ int lastcolor=getcolor();
setcolor(DARKGRAY);
line(snake.head.x, snake.head.y, target.x, target.y);
putpixel(snake.head.x, snake.head.y, snake.color);
setcolor(lastcolor);
}
void printProc(char *str)
{
int d = getcolor();
textcolor(7);
cprintf("%s", str);
textcolor(d);
}
bool image::loadfromfile(std::string file)
{
std::ifstream load_file;
int temp_width;
int temp_height;
int color1; char charecter;
load_file.open(file.c_str());
if(load_file.is_open())
{
load_file>> temp_width;
load_file>> temp_height;
resize(temp_width,temp_height);
for(int counterx=0; counterx<width; counterx++)
for(int countery=0; countery<height; countery++)
{
load_file>>color1;
putpixel(counterx,countery,color1,getimage(counterx,countery));
}
load_file.get();
for(int counterx=0; counterx<width; counterx++)
for(int countery=0; countery<height; countery++)
{
load_file.get(charecter);
putpixel(counterx,countery,getcolor(counterx,countery),charecter);
}
load_file.close();
return true;
}
void L1_GetColorComponents() {
lua_Object colorObj = lua_getparam(1);
Color *c = getcolor(colorObj);
lua_pushnumber(c->getRed());
lua_pushnumber(c->getGreen());
lua_pushnumber(c->getBlue());
}
void draw_shape_panel()
{
int left, top, c, color;
left = 529;
top = 45;
color = getcolor();
setcolor(GREEN);
rectangle(525,40,633,255);
for( c = 1 ; c <= 7 ; c++ )
{
rectangle(left, top, left+100, top+25);
top += 30;
}
setcolor(RED);
outtextxy(530,45,"Bar");
outtextxy(530,75,"Line");
outtextxy(530,105,"Pixel");
outtextxy(530,135,"Ellipse");
outtextxy(530,165,"Freehand");
outtextxy(530,195,"Rectangle");
outtextxy(530,225,"Clear");
setcolor(color);
}
void init(){
int i;
int hei,wid,col;
C = H = W = 0;
for(i = 0 ;i < N; i++){
if(seq[i]){
Color[C++] = -1;
Width[W++] = -1;
Height[H++] = -1;
}else{
col = getcolor();
wid = getwidth();
hei = getheight();
colcount[col] += (hei*2) + (wid*4) -3;
}
}
i = -1;
S = 0;
while(++i < MCOL && colcount[i]) S += colcount[i];
K = i;
}
value
caml_clear(value bg)
{
CAMLparam1(bg);
drawrect(dc, 0, 0, mw, mh, True, getcolor(dc, String_val (bg)));
CAMLreturn(Val_unit);
}
void Lua_V1::GetColorComponents() {
lua_Object colorObj = lua_getparam(1);
Color c(getcolor(colorObj));
lua_pushnumber(c.getRed());
lua_pushnumber(c.getGreen());
lua_pushnumber(c.getBlue());
}
static void drawbutton(gl_button *bt) {
Int32 lw = getlwidth();
Int32 cl = getcolor();
Int32 oriwin = winget();
int cfg, bg;
winset(bt->win);
linewidth(1);
locate_button(bt);
cfg = *(bt->state)?bt->bg:bt->fg;
bg = *(bt->state)?((bt->type == BUTTON)?bt->fg:bt->active_c):bt->bg;
color(bg);
rectf(bt->x, bt->y, bt->x + bt->width, bt->y + bt->height);
color(bt->fg);
rect (bt->x, bt->y, bt->x + bt->width, bt->y + bt->height);
if (bt->label != NULL) {
color(cfg);
cmov2(bt->x, bt->y + 0.05 * bt->height);
charstr(bt->label);
}
winset(oriwin);
color(cl);
linewidth(lw);
sleep(0);
}
void R::aparecer() {
int t;
t = getcolor();
setcolor (color );
rectangle (x1, y1, x2, y2);
setcolor(t);
}
void print(char *str, int c)
{
int d = getcolor();
textcolor(c);
cprintf("%s", str);
textcolor(d);
}
void POLY::borrarpoly() {
int t;
t = getcolor();
setcolor (getbkcolor() );
drawpoly (n, puntos);
setcolor(t);
}
void R::esconder() {
int t;
t = getcolor();
setcolor (getbkcolor() );
rectangle (x1, y1, x2, y2);
setcolor(t);
}
static void fetch_colors() {
g_window_border_width = &(settings_find("window_border_width")->value.i);
g_window_border_inner_width = &(settings_find("window_border_inner_width")->value.i);
g_window_gap = &(settings_find("window_gap")->value.i);
g_snap_gap = &(settings_find("snap_gap")->value.i);
g_smart_window_surroundings = &(settings_find("smart_window_surroundings")->value.i);
g_raise_on_focus = &(settings_find("raise_on_focus")->value.i);
char* str = settings_find("window_border_normal_color")->value.s;
g_window_border_normal_color = getcolor(str);
str = settings_find("window_border_active_color")->value.s;
g_window_border_active_color = getcolor(str);
str = settings_find("window_border_urgent_color")->value.s;
g_window_border_urgent_color = getcolor(str);
str = settings_find("window_border_inner_color")->value.s;
g_window_border_inner_color = getcolor(str);
}
int menu(int li,int ci,char *s[])
{ int i=0,pos=0,cont,cor;
char *p,*o,ch;
cor=getcolor();
while(*s[i]!='\0')
{
outtextxy(ci,li+i,s[i]);
cont++; i++;
}
i=0;
while( (ch!=27) && (ch!=13) )
{ch=getch();
if(ch==27) break;
if(ch==13) break;
if(pos>i) textattr(cor+((cor+1)<<4));
if(ch==80)i+=15;
if(ch==72)i-=15;
if((li+i)==cont) i=0;
if(i<0) i=cont;
outtextxy(ci,li+i,s[i]);
setcolor(cor);
}
closegraph();
if(ch==27) return 0;
if(ch==13) return pos;
}
int find_vline(Bitmap *bitmap, int *x1, int *y1, int *x2, int *y2) //program pro nalezeni nejvetsi vertikalni usecky, pracuju stejne jako vline ovsem ma obracene prochazeni matice.
{
int vracejiciHodnota = 0;
int q, i, z = 1, pokracuj = 1;
int nejvetsiVline = 0;
int lajna = 0;
int xpomocne = -1;
int ypomocne = -1;
for(i= 0; i< (bitmap->rows); i++) //projizdim radky
{
for(q = 0; q < (bitmap->cols); q++ ) //projizdim sloupce
{
pokracuj = 1;
if(getcolor(bitmap, i, q) == '1') //pokud najdu 1 hledam vertikalne dalsi znaky
{
xpomocne = i;
ypomocne = q;
z = i;
while(pokracuj)
{
if((z == bitmap->rows) || (getcolor(bitmap, z, q) == '0'))
{
if(lajna > nejvetsiVline) //jestli je lajna aktualne nejvetsi, aktualizuju nejvetsi lajnu
{
nejvetsiVline = lajna;
*x1 = xpomocne;
*y1 = ypomocne;
*x2 = --z;
*y2 = q;
vracejiciHodnota = 1;
}
lajna = 0;
pokracuj = 0;
}
else
{
lajna++;
}
z++;
}
}
}
}
return vracejiciHodnota;
}
int find_hline(Bitmap *bitmap, int *x1, int *y1, int *x2, int *y2) //program pro nalezeni nejvetsi vertikalni usecky
{
int vracejiciHodnota = 0;
int q, i, z = 1, pokracuj = 1;
int nejvetsiVline = 0;
int lajna = 0;
int xpomocne = -1;
int ypomocne = -1;
for(i= 0; i< (bitmap->rows); i++) //projizdim radky
{
for(q = 0; q < (bitmap->cols); q++ ) //projizdim sloupce
{
pokracuj = 1;
if(getcolor(bitmap, i, q) == '1')
{
xpomocne = i;
ypomocne = q;
z = q;
while(pokracuj)
{
if((z == bitmap->cols) || (getcolor(bitmap, i, z) == '0'))
{
if(lajna > nejvetsiVline) //jestli je lajna aktualne nejvetsi, aktualizuju nejvetsi lajnu
{
nejvetsiVline = lajna;
*x1 = xpomocne;
*y1 = ypomocne;
*x2 = i;
*y2 = --z;
vracejiciHodnota = 1;
}
lajna = 0;
pokracuj = 0;
}
else
{
lajna++;
}
z++;
}
}
}
}
return vracejiciHodnota;
}
void textoColor::escribir() {
int t;
clearviewport();
t = getcolor();
setcolor(color);
settextstyle(tipoletra(), dir(), dimension() );
outtext(s() );
setcolor (t);
}
