/ast/src/lib/libtk/library/demos/ |
H A D | tcolor | 19 # red, green, blue - Current color intensities in decimal 36 set red 65535 150 global red green blue colorSpace color updating autoUpdate 155 set red [format %.0f [expr [.scale1 get]*65.535]] 160 set red [format %.0f [expr {65535 - [.scale1 get]*65.535}]] 167 set red [lindex $list 0] 172 set color [format "#%04x%04x%04x" $red $green $blue] 179 # current red, green, and blue intensities. It's invoked after 184 global red green blue colorSpace updating 187 .scale1 set [format %.0f [expr $red/65.53 [all...] |
H A D | items.tcl | 56 set red red 61 set red black 75 -width 3 -fill $red -tags item 90 -fill $red -tags item 97 29c 1c 29c 4c 29c 4c -fill $red -smooth on -tags item 104 $c create rectangle 1c 9.5c 4c 12.5c -outline $red -width 3m -tags item 111 $c create oval 11c 9.5c 14c 12.5c -outline $red -width 3m -tags item 126 $c create text 25c 14c -font $font2 -anchor c -fill $red -stipple gray50 \ 136 -fill {} -outline $red [all...] |
H A D | ctext.tcl | 37 $c create rectangle 245 195 255 205 -outline black -fill red 76 -outline black -fill red]
|
H A D | menu.tcl | 115 foreach i {red orange yellow green blue} {
|
H A D | ruler.tcl | 51 set demo_rulerInfo(activeStyle) "-fill red -stipple {}" 52 set demo_rulerInfo(deleteStyle) [list -fill red \
|
H A D | style.tcl | 35 $w.text tag configure color2 -foreground red
|
/ast/src/cmd/ksh93/tests/ |
H A D | enum.sh | 30 enum Color_t=(red green blue orange yellow) 35 [[ $x == red ]] || err_exit 'Color_t does not default to red'
|
H A D | functions.sh | 883 function red function 890 [[ ${ red } != 'red_one 0' ]] && err_exit 'expected red_one 0' 891 [[ ${ red } != 'red_one 1' ]] && err_exit 'expected red_one 1'
|
H A D | arith.sh | 599 enum color_t=(red green blue yellow) 602 (( shirt == red )) || err_exit 'pants should be red'
|
H A D | cubetype.sh | 38 colors=([wall]=blue [floor]=red) 126 [[ $c == $'(\n\ttypeset -l -E x=8\n\ttypeset -l -E y=5\n\tcomvar=(\n\t\ttop=8\n\t\tbottom=9\n\t)\n\ttypeset -S -l -i count=1\n\ttypeset -a items=(\n\t\tfoo\n\t\tbar\n\t)\n\ttypeset -A colors=(\n\t\t[floor]=red\n\t\t[wall]=blue\n\t)\n\tname=cube1\n\ttypeset -L 6 status=INIT\n\ttypeset -l -E z=1\n)' ]] || err_exit '$c not correct'
|
H A D | nameref.sh | 77 color[apple]=red
|
/ast/src/lib/libtk/library/ |
H A D | palette.tcl | 168 set red [expr [lindex $l 0]/256] 171 set red [expr ($red*$percent)/100] 172 if {$red > 255} { 173 set red 255 183 format #%02x%02x%02x $red $green $blue
|
H A D | clrpick.tcl | 33 set data(lines,red,start) 0 34 set data(lines,red,last) -1 159 set data(red,intensity) [expr [lindex $rgb 0]/0x100] 306 bind $w <Alt-r> "focus $data(red,entry)" 324 set data(red,intensity) [lindex $color 0] 331 foreach color { red green blue } { 425 if { $c == "red" } { 432 $data(red,intensity) \ 437 $data(red,intensity) \ 484 set color [format "#%02x%02x%02x" $data(red,intensit [all...] |
H A D | console.tcl | 50 .console tag configure stderr -foreground red
|
/ast/src/lib/libcoshell/ |
H A D | coexec.c | 161 char* red; local 205 red = (cj->flags & CO_APPEND) ? ">>" : ">"; 273 sfprintf(sp, " %s%s", red, out); 275 sfprintf(sp, " %s%s/%s", red, state.pwd, out); 284 sfprintf(sp, " 2%s%s", red, err); 286 sfprintf(sp, " 2%s%s/%s", red, state.pwd, err); 348 sfprintf(sp, " %s%s", red, out); 350 sfprintf(sp, " %s%s/%s", red, state.pwd, out); 359 sfprintf(sp, " 2%s%s", red, err); 361 sfprintf(sp, " 2%s%s/%s", red, stat [all...] |
/ast/src/lib/libtk/generic/ |
H A D | tkColor.c | 80 int red, green, blue; /* Values for desired color. */ member in struct:__anon392 137 * indicates the red, blue, and green intensities for the color 253 * Given a desired set of red-green-blue intensities for a color, 259 * indicates the closest red, blue, and green intensities available 293 valueKey.red = colorPtr->red; 311 tkColPtr->color.red = valueKey.red; 366 sprintf(string, "#%04x%04x%04x", colorPtr->red, colorPtr->green, 617 tmp = .30*(((int) desiredColorPtr->red) [all...] |
H A D | tk3d.c | 1262 darkColor.red = (60 * (int) borderPtr->bgColorPtr->red)/100; 1270 * Compute the colors using integers, not using lightColor.red 1275 tmp1 = (14 * (int) borderPtr->bgColorPtr->red)/10; 1279 tmp2 = (MAX_INTENSITY + (int) borderPtr->bgColorPtr->red)/2; 1280 lightColor.red = (tmp1 > tmp2) ? tmp1 : tmp2;
|
H A D | tkCanvPs.c | 573 double red, green, blue; 610 tmp = colorPtr->red; 611 red = ((double) (tmp >> 8))/255.0; 617 red, green, blue); 571 double red, green, blue; local
|
H A D | tkImgGIF.c | 470 cmap[CM_RED][transparent] = colorPtr->red >> 8;
|
H A D | tkImgPhoto.c | 103 pixel redValues[256]; /* Maps 8-bit values of red intensity 112 * red, 1 for green, 2 for blue. */ 780 *pixelPtr++ = color.red >> 8; 1616 /* #red, #green, #blue */ 2590 * Direct/True Color: allocate shades of red, green, blue 2603 colors[i].red = CFRAC(i, nRed - 1); 2607 colors[i].red = CGFRAC(i, nRed - 1, igam); 2631 colors[i].red = CFRAC(r, nRed - 1); 2635 colors[i].red = CGFRAC(r, nRed - 1, igam); 2654 colors[i].red [all...] |
/ast/src/lib/libtk/unix/ |
H A D | tkUnixCursor.c | 196 fg.red = fg.green = fg.blue = 0; 197 bg.red = bg.green = bg.blue = 65535; 206 bg.red = bg.green = bg.blue = 0;
|
/ast/src/cmd/coshell/ |
H A D | shell.c | 219 char* red; local 315 red = (flags & CO_APPEND) ? ">>" : ">"; 341 sfprintf(state.string, "\n'\n} </dev/null %s", red); 349 sfprintf(state.string, "%s 2%s", out, red);
|
/ast/src/cmd/re/ |
H A D | Makefile | 9 red :LINK: ed
|
/ast/src/lib/libast/disc/ |
H A D | sfkeyprintf.c | 47 regex_t red[2]; member in struct:__anon259 290 fp->re[x] = &fp->red[x];
|
/ast/src/cmd/html/ |
H A D | mm2bb.sh | 819 then beg="$beg\\red{\\1{" 821 else beg="$beg[color=red][size=$size_big]"
|