Lines Matching defs:tekscr
144 #define TEKHOME ( (TekChar[tekscr->page.fontsize].nlines - 1) \
145 * TekChar[tekscr->page.fontsize].vsize)
159 #define TekMove(tw,x,y) do { tekscr->cur_X = x; tekscr->cur_Y = y; } while (0)
430 TekScreen *tekscr = TekScreenOf(tw);
456 if (tekscr->TekGIN) {
461 if (tekscr->margin == MARGIN2)
463 TekEnq(tw, c, tekscr->cur_X, tekscr->cur_Y);
478 if (tekscr->TekGIN)
485 tekscr->TekGIN = &TekRecord->ptr[-1];
491 XDefineCursor(XtDisplay(tw), TWindow(tekscr),
499 if (tekscr->TekGIN)
508 if (tekscr->TekGIN)
516 if (tekscr->TekGIN)
523 if (tekscr->TekGIN)
527 tekscr->pen = PENDOWN;
530 tekscr->pen = PENUP;
536 if (tekscr->TekGIN)
544 if (tekscr->TekGIN)
551 if (tekscr->TekGIN)
561 if (tekscr->TekGIN)
569 if (tekscr->TekGIN)
578 if (tekscr->TekGIN)
619 if (c != tekscr->cur.linetype) {
623 tekscr->cur.linetype = c;
634 tekscr->pen = PENUP;
639 tekscr->pen = PENDOWN;
644 x = tekscr->cur_X;
645 y = tekscr->cur_Y;
654 if (tekscr->pen == PENDOWN) {
665 if (tekscr->pen == PENDOWN) {
666 TekDraw(tw, tekscr->cur.x, tekscr->cur.y);
668 TekMove(tw, tekscr->cur.x, tekscr->cur.y);
670 tekscr->pen = PENDOWN;
678 TekMove(tw, tekscr->cur.x, tekscr->cur.y);
679 TekDraw(tw, tekscr->cur.x, tekscr->cur.y);
687 TekMove(tw, tekscr->cur.x, tekscr->cur.y);
688 TekDraw(tw, tekscr->cur.x, tekscr->cur.y);
694 if (tekscr->TekGIN)
698 tekscr->cur_X = tekscr->margin == MARGIN1 ? 0 :
710 if (tekscr->TekGIN)
725 x = (int) ScaledX(tw, tekscr->cur_X);
726 y = (int) ScaledY(tw, tekscr->cur_Y);
735 TWindow(tekscr),
736 tekscr->TnormalGC,
746 TWindow(tekscr),
747 tekscr->TnormalGC,
796 TekScreen *tekscr = TekScreenOf(tw);
862 || tek->fontsize != tekscr->cur.fontsize) {
868 tek->fontsize = (unsigned short) tekscr->cur.fontsize;
882 TekScreen *tekscr = TekScreenOf(tw);
887 if (TWindow(tekscr))
888 XClearWindow(XtDisplay(tw), TWindow(tekscr));
895 TekScreen *tekscr = TekScreenOf(tw);
896 const struct Tek_Char *t = &TekChar[tekscr->cur.fontsize];
897 int rows = THeight(tekscr) / (int) (ScaleOf(tw) * t->vsize);
898 int cols = TWidth(tekscr) / (int) (ScaleOf(tw) * t->hsize);
902 TFullHeight(tekscr),
903 TFullWidth(tekscr));
910 TekScreen *tekscr = TekScreenOf(tw);
914 const struct Tek_Char *t = &TekChar[tekscr->cur.fontsize];
915 const XFontStruct *fs = tw->tek.Tfont[tekscr->cur.fontsize];
919 TWidth(tekscr) = tw->core.width - border;
920 THeight(tekscr) = tw->core.height - border;
921 ScaleOf(tw) = (double) TWidth(tekscr) / TEKWIDTH;
923 if ((d = (double) THeight(tekscr) / FULL_HEIGHT) < ScaleOf(tw))
926 TFullWidth(tekscr) = tw->core.width;
927 TFullHeight(tekscr) = tw->core.height;
930 THeight(tekscr), TWidth(tekscr),
931 TFullHeight(tekscr), TFullWidth(tekscr),
970 TekScreen *tekscr = TekScreenOf(tw);
981 tekscr->cur_X = 0;
982 tekscr->cur_Y = TEKHOME;
983 tekscr->cur = tekscr->page;
984 TekSetFontSize(tw, False, tekscr->cur.fontsize);
985 tekscr->margin = MARGIN1;
986 if (tekscr->TekGIN) {
987 tekscr->TekGIN = NULL;
996 if (!tekscr->waitrefresh)
1007 TekScreen *tekscr = TekScreenOf(tw);
1014 XDefineCursor(XtDisplay(tw), TWindow(tekscr), wait_cursor);
1018 XDefineCursor(XtDisplay(tw), TWindow(tekscr),
1019 (tekscr->TekGIN && GINcursor) ? GINcursor : tekscr->arrow);
1034 TekScreen *tekscr = TekScreenOf(tw);
1039 tekscr->cur_X = 0;
1040 tekscr->cur_Y = TEKHOME;
1041 tekscr->margin = MARGIN1;
1042 tekscr->page = tekscr->cur;
1043 if (tekscr->TekGIN)
1046 tek->fontsize = (unsigned short) tekscr->cur.fontsize;
1075 TekScreen *tekscr = TekScreenOf(tw);
1077 x = tekscr->cur.x;
1078 y = tekscr->cur.y;
1101 tekscr->cur.x = x;
1102 tekscr->cur.y = y;
1122 TekScreen *tekscr = TekScreenOf(tw);
1124 int x = (tekscr->cur_X -= (t = &TekChar[tekscr->cur.fontsize])->hsize);
1126 if (((tekscr->margin == MARGIN1) && (x < 0))
1127 || ((tekscr->margin == MARGIN2) && (x < TEKWIDTH / 2))) {
1128 int l = ((tekscr->cur_Y + (t->vsize - 1)) / t->vsize + 1);
1130 tekscr->margin = !tekscr->margin;
1133 tekscr->cur_Y = l * t->vsize;
1134 tekscr->cur_X = (t->charsperline - 1) * t->hsize;
1141 TekScreen *tekscr = TekScreenOf(tw);
1142 const struct Tek_Char *t = &TekChar[tekscr->cur.fontsize];
1144 if ((tekscr->cur_X += t->hsize) > TEKWIDTH) {
1145 int l = (tekscr->cur_Y / t->vsize - 1);
1147 tekscr->margin = !tekscr->margin;
1150 tekscr->cur_Y = l * t->vsize;
1151 tekscr->cur_X = tekscr->margin == MARGIN1 ? 0 : TEKWIDTH / 2;
1158 TekScreen *tekscr = TekScreenOf(tw);
1162 t = &TekChar[tekscr->cur.fontsize];
1164 if ((l = (tekscr->cur_Y + (t->vsize - 1)) / t->vsize + 1) >= t->nlines) {
1166 if ((tekscr->margin = !tekscr->margin) != MARGIN1) {
1167 if (tekscr->cur_X < TEKWIDTH / 2)
1168 tekscr->cur_X += TEKWIDTH / 2;
1169 } else if (tekscr->cur_X >= TEKWIDTH / 2)
1170 tekscr->cur_X -= TEKWIDTH / 2;
1172 tekscr->cur_Y = l * t->vsize;
1178 TekScreen *tekscr = TekScreenOf(tw);
1182 t = &TekChar[tekscr->cur.fontsize];
1184 if ((l = tekscr->cur_Y / t->vsize - 1) < 0) {
1186 if ((tekscr->margin = !tekscr->margin) != MARGIN1) {
1187 if (tekscr->cur_X < TEKWIDTH / 2)
1188 tekscr->cur_X += TEKWIDTH / 2;
1189 } else if (tekscr->cur_X >= TEKWIDTH / 2)
1190 tekscr->cur_X -= TEKWIDTH / 2;
1192 tekscr->cur_Y = l * t->vsize;
1216 TekScreen *tekscr = TekScreenOf(tw);
1218 if (nplot == 0 || T_lastx != tekscr->cur_X || T_lasty != tekscr->cur_Y) {
1224 if (nplot > 0 && tekscr->cur.linetype != SOLIDLINE)
1227 AddToDraw(tw, tekscr->cur_X, tekscr->cur_Y, x, y);
1228 T_lastx = tekscr->cur_X = x;
1229 T_lasty = tekscr->cur_Y = y;
1235 TekScreen *tekscr = TekScreenOf(tw);
1238 XDrawSegments(XtDisplay(tw), TWindow(tekscr),
1239 ((tekscr->cur.linetype == SOLIDLINE)
1240 ? tekscr->TnormalGC
1241 : tekscr->linepat[tekscr->cur.linetype - 1]),
1250 TekScreen *tekscr = TekScreenOf(tw);
1253 XDefineCursor(XtDisplay(tw), TWindow(tekscr), tekscr->arrow);
1256 if (tekscr->TekGIN) {
1257 *tekscr->TekGIN = ANSI_CAN; /* modify recording */
1258 tekscr->TekGIN = NULL;
1265 TekScreen *tekscr = TekScreenOf(tw);
1272 XtDisplay(tw), TWindow(tekscr),
1295 TekScreen *tekscr = TekScreenOf(tw);
1308 if (tekscr->gin_terminator != GIN_TERM_NONE)
1310 if (tekscr->gin_terminator == GIN_TERM_EOT)
1399 TekScreen *tekscr = TekScreenOf((TekWidget) wnew);
1413 memset(tekscr, 0, sizeof(*tekscr));
1435 tekscr->whichTwin = &(tekscr->fullTwin);
1447 tekscr->arrow = make_colored_cursor(XC_left_ptr,
1559 tekscr->cur.fontsize = TEK_FONT_LARGE;
1563 tekscr->cur.fontsize = result;
1565 TRACE(("Tek cur.fontsize=%d\n", tekscr->cur.fontsize));
1570 tekscr->gin_terminator = GIN_TERM_NONE;
1572 tekscr->gin_terminator = GIN_TERM_CR;
1574 tekscr->gin_terminator = GIN_TERM_EOT;
1578 TRACE(("Tek gin_terminator=%d\n", tekscr->gin_terminator));
1589 TekScreen *tekscr = TekScreenOf(tw);
1624 XtWindow(tw) = TWindow(tekscr) =
1638 gcv.font = tw->tek.Tfont[tekscr->cur.fontsize]->fid;
1648 tekscr->TnormalGC = XCreateGC(XtDisplay(tw), TWindow(tekscr),
1658 tekscr->TcursorGC = XCreateGC(XtDisplay(tw), TWindow(tekscr),
1665 tekscr->linepat[i] = XCreateGC(XtDisplay(tw), TWindow(tekscr),
1667 XSetDashes(XtDisplay(tw), tekscr->linepat[i], 0,
1673 tekscr->margin = MARGIN1; /* Margin 1 */
1674 tekscr->TekGIN = NULL; /* GIN off */
1676 XDefineCursor(XtDisplay(tw), TWindow(tekscr), tekscr->arrow);
1720 tek->fontsize = (unsigned short) tekscr->cur.fontsize;
1724 tekscr->cur_X = 0;
1725 tekscr->cur_Y = TEKHOME;
1728 tekscr->page = tekscr->cur;
1760 TekScreen *tekscr = TekScreenOf(tw);
1761 int oldsize = tekscr->cur.fontsize;
1773 tekscr->cur.fontsize = newsize;
1776 tekscr->page.fontsize = newsize;
1784 GCFont, tekscr->TnormalGC);
1786 XSetFont(XtDisplay(tw), tekscr->TnormalGC, fid);
1808 TekScreen *tekscr = TekScreenOf(tw);
1828 XSetForeground(XtDisplay(tw), tekscr->TnormalGC,
1830 XSetBackground(XtDisplay(tw), tekscr->TnormalGC,
1842 XSetForeground(XtDisplay(tw), tekscr->linepat[i],
1848 XChangeGC(XtDisplay(tw), tekscr->TcursorGC, GCPlaneMask, &gcv);
1859 TekScreen *tekscr = TekScreenOf(tw);
1868 XSetForeground(XtDisplay(tw), tekscr->TnormalGC, T_COLOR(screen, TEK_FG));
1869 XSetBackground(XtDisplay(tw), tekscr->TnormalGC, T_COLOR(screen, TEK_BG));
1881 XSetForeground(XtDisplay(tw), tekscr->linepat[i],
1887 XChangeGC(XtDisplay(tw), tekscr->TcursorGC, GCPlaneMask, &gcv);
1895 TekScreen *tekscr = TekScreenOf(tw);
1897 if (TWindow(tekscr))
1898 XSetWindowBackground(XtDisplay(tw), TWindow(tekscr),
1908 TekScreen *tekscr;
1915 if ((tekscr = TekScreenOf(tw)) == NULL)
1923 c = tekscr->cur.fontsize;
1928 x = (int) ScaledX(tw, tekscr->cur_X);
1929 y = (int) ScaledY(tw, tekscr->cur_Y) - tw->tek.tobaseline[c];
1934 XFillRectangle(XtDisplay(tw), TWindow(tekscr),
1935 tekscr->TcursorGC, x, y,
1938 XDrawRectangle(XtDisplay(tw), TWindow(tekscr),
1939 tekscr->TcursorGC, x, y,
1949 XClearArea(XtDisplay(tw), TWindow(tekscr), x, y,
1970 TekScreen *tekscr = TekScreenOf(tw);
1973 memset(&tekscr->cur, 0, sizeof tekscr->cur);
1977 tekscr->cur_X = 0;
1978 tekscr->cur_Y = TEKHOME;
1989 TekScreen *tekscr = TekScreenOf(tw);
2012 ANSI_ESC, (char) (tekscr->page.fontsize + '8'),
2013 ANSI_ESC, (char) (tekscr->page.linetype + '`'));
2038 TekScreen *tekscr = TekScreenOf(tw);
2040 if (tekscr->TekGIN && *nparamsp == 1) {