cslib.shar

书名:C语言科学与艺术,以前交钱下载的

X/* Exported entries */
X
X/* Section 1 -- Basic functions from graphics.h */
X
X/*
X * Function: InitGraphics
X * ----------------------
X * The implementation below hides considerable complexity underneath
X * the InitXHandler call.  If you are trying to modify or maintain
X * this implementation, it is important to understand how that
X * function is implemented.  For details, see the xhandler.c
X * implementation.
X */
X
Xvoid InitGraphics(void)
X{
X    if (initialized) {
X        XMSendCommand(ClearCmd, "");
X    } else {
X        initialized = TRUE;
X        ProtectVariable(stateStack);
X        ProtectVariable(windowTitle);
X        ProtectVariable(textFont);
X        XDSetWindowSize(windowWidth, windowHeight);
X        XMInitialize(windowTitle);
X        InitColors();
X    }
X    InitGraphicsState();
X}
X
Xvoid MovePen(double x, double y)
X{
X    InitCheck();
X    if (regionState == RegionActive) regionState = PenHasMoved;
X    cx = x;
X    cy = y;
X}
X
Xvoid DrawLine(double dx, double dy)
X{
X    InitCheck();
X    switch (regionState) {
X      case NoRegion: case RegionActive:
X        break;
X      case RegionStarting:
X        regionState = RegionActive;
X        break;
X      case PenHasMoved:
X        Error("Region segments must be contiguous");
X    }
X    sprintf(cmdBuffer, "%.12g %.12g %.12g %.12g", cx, cy, dx, dy);
X    XMSendCommand(LineCmd, cmdBuffer);
X    cx += dx;
X    cy += dy;
X}
X
Xvoid DrawArc(double r, double start, double sweep)
X{
X    DrawEllipticalArc(r, r, start, sweep);
X}
X
Xdouble GetWindowWidth(void)
X{
X    return (windowWidth);
X}
X
Xdouble GetWindowHeight(void)
X{
X    return (windowHeight);
X}
X
Xdouble GetCurrentX(void)
X{
X    InitCheck();
X    return (cx);
X}
X
Xdouble GetCurrentY(void)
X{
X    InitCheck();
X    return (cy);
X}
X
X/* Section 2 -- Elliptical arcs */
X
Xvoid DrawEllipticalArc(double rx, double ry,
X                       double start, double sweep)
X{
X    double x, y;
X
X    InitCheck();
X    switch (regionState) {
X      case NoRegion: case RegionActive:
X        break;
X      case RegionStarting:
X        regionState = RegionActive;
X        break;
X      case PenHasMoved:
X        Error("Region segments must be contiguous");
X    }
X    x = cx + rx * cos(GLRadians(start + 180));
X    y = cy + ry * sin(GLRadians(start + 180));
X    sprintf(cmdBuffer, "%.12g %.12g %.12g %.12g %.12g %.12g",
X                       x, y, rx, ry, start, sweep);
X    XMSendCommand(ArcCmd, cmdBuffer);
X    cx = x + rx * cos(GLRadians(start + sweep));
X    cy = y + ry * sin(GLRadians(start + sweep));
X}
X
X/* Section 3 -- Graphical structures */
X
Xvoid StartFilledRegion(double density)
X{
X    InitCheck();
X    if (regionState != NoRegion) {
X        Error("Region is already in progress");
X    }
X    if (density < 0 || density > 1) {
X        Error("Density for regions must be between 0 and 1");
X    }
X    regionState = RegionStarting;
X    sprintf(cmdBuffer, "%.12g", density);
X    XMSendCommand(StartRegionCmd, cmdBuffer);
X}
X
Xvoid EndFilledRegion(void)
X{
X    InitCheck();
X    if (regionState == NoRegion) {
X        Error("EndFilledRegion without StartFilledRegion");
X    }
X    regionState = NoRegion;
X    XMSendCommand(EndRegionCmd, "");
X}
X
X/* Section 4 -- String functions */
X
Xvoid DrawTextString(string text)
X{
X    InitCheck();
X    if (regionState != NoRegion) {
X        Error("Text strings are illegal inside a region");
X    }
X    if (strlen(text) > MaxTextString) {
X        Error("Text string too long");
X    }
X    InstallFont();
X    sprintf(cmdBuffer, "%.12g %.12g %s", cx, cy, text);
X    XMSendCommand(TextCmd, cmdBuffer);
X    cx += TextStringWidth(text);
X}
X
Xdouble TextStringWidth(string text)
X{
X    double result;
X
X    InitCheck();
X    if (strlen(text) > MaxTextString) {
X        Error("Text string too long");
X    }
X    InstallFont();
X    sprintf(cmdBuffer, "%s", text);
X    XMSendCommand(WidthCmd, cmdBuffer);
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%lg", &result);
X    return (result);
X}
X
Xvoid SetFont(string font)
X{
X    InitCheck();
X    if (strlen(font) > MaxFontName) Error("Font name too long");
X    textFont = CopyString(font);
X    fontChanged = TRUE;
X}
X
Xstring GetFont(void)
X{
X    InitCheck();
X    InstallFont();
X    return (CopyString(textFont));
X}
X
Xvoid SetPointSize(int size)
X{
X    InitCheck();
X    pointSize = size;
X    fontChanged = TRUE;
X}
X
Xint GetPointSize(void)
X{
X    InitCheck();
X    InstallFont();
X    return (pointSize);
X}
X
Xvoid SetStyle(int style)
X{
X    InitCheck();
X    textStyle = style;
X    fontChanged = TRUE;
X}
X
Xint GetStyle(void)
X{
X    InitCheck();
X    InstallFont();
X    return (textStyle);
X}
X
Xdouble GetFontAscent(void)
X{
X    double ascent;
X
X    InitCheck();
X    InstallFont();
X    XMSendCommand(FontMetricsCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%lg", &ascent);
X    return (ascent);
X}
X
Xdouble GetFontDescent(void)
X{
X    double descent;
X
X    InitCheck();
X    InstallFont();
X    XMSendCommand(FontMetricsCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%*lg %lg", &descent);
X    return (descent);
X}
X
Xdouble GetFontHeight(void)
X{
X    double height;
X
X    InitCheck();
X    InstallFont();
X    XMSendCommand(FontMetricsCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%*lg %*lg %lg", &height);
X    return (height);
X}
X
X/* Section 5 -- Mouse support */
X
Xdouble GetMouseX(void)
X{
X    double x, y;
X    int state;
X
X    InitCheck();
X    XMSendCommand(GetMouseCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%d, %lg, %lg", &state, &x, &y);
X    return (x);
X}
X
Xdouble GetMouseY(void)
X{
X    string line;
X    double x, y;
X    int state;
X
X    InitCheck();
X    XMSendCommand(GetMouseCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%d, %lg, %lg", &state, &x, &y);
X    return (y);
X}
X
Xbool MouseButtonIsDown(void)
X{
X    string line;
X    double x, y;
X    int state;
X
X    InitCheck();
X    XMSendCommand(GetMouseCmd, "");
X    XMGetResponse(cmdBuffer);
X    (void) sscanf(cmdBuffer, "%d, %lg, %lg", &state, &x, &y);
X    return (state != 0);
X}
X
Xvoid WaitForMouseDown(void)
X{
X    InitCheck();
X    XMSendCommand(WaitForMouseCmd, "D");
X    XMGetResponse(cmdBuffer);
X}
X
Xvoid WaitForMouseUp(void)
X{
X    InitCheck();
X    XMSendCommand(WaitForMouseCmd, "U");
X    XMGetResponse(cmdBuffer);
X}
X
X/* Section 6 -- Color support */
X
Xbool HasColor(void)
X{
X    InitCheck();
X    return (colorOK);
X}
X
Xvoid SetPenColor(string color)
X{
X    int cindex;
X
X    InitCheck();
X    cindex = FindColorName(color);
X    if (cindex == -1) Error("Undefined color: %s", color);
X    penColor = cindex;
X    if (penColor == lastColor) return;
X    lastColor = penColor;
X    if (HasColor()) {
X        sprintf(cmdBuffer, "%g %g %g\n",
X                colorTable[cindex].red,
X                colorTable[cindex].green,
X                colorTable[cindex].blue);
X        XMSendCommand(SetColorCmd, cmdBuffer);
X    } else {
X        SetEraseMode(eraseMode);
X    }
X}
X
Xstring GetPenColor(void)
X{
X    InitCheck();
X    return (colorTable[penColor].name);
X}
X
Xvoid DefineColor(string name,
X                 double red, double green, double blue)
X{
X    int cindex;
X
X    InitCheck();
X    if (red < 0 || red > 1 || green < 0 || green > 1 || blue < 0 || blue > 1) {
X        Error("DefineColor: All color intensities must be between 0 and 1");
X    }
X    cindex = FindColorName(name);
X    if (cindex == -1) {
X        if (nColors == MaxColors) Error("DefineColor: Too many colors");
X        cindex = nColors++;
X    }
X    colorTable[cindex].name = CopyString(name);
X    colorTable[cindex].red = red;
X    colorTable[cindex].green = green;
X    colorTable[cindex].blue = blue;
X}
X
X/* Section 7 -- Miscellaneous functions */
X
Xvoid SetEraseMode(bool mode)
X{
X    InitCheck();
X    eraseMode = mode;
X    sprintf(cmdBuffer, "%d", (int) (mode || ShouldBeWhite()));
X    XMSendCommand(SetEraseCmd, cmdBuffer);
X}
X
Xbool GetEraseMode(void)
X{
X    InitCheck();
X    return (eraseMode);
X}
X
Xvoid SetWindowTitle(string title)
X{
X    windowTitle = CopyString(title);
X    if (initialized) {
X        sprintf(cmdBuffer, "%s", windowTitle);
X        XMSendCommand(SetTitleCmd, cmdBuffer);
X    }
X}
X
Xstring GetWindowTitle(void)
X{
X    return (CopyString(windowTitle));
X}
X
Xvoid UpdateDisplay(void)
X{
X    int cnt;
X
X    InitCheck();
X    XMSendCommand(UpdateCmd, "");
X}
X
Xvoid Pause(double seconds)
X{
X    if (initialized) UpdateDisplay();
X    USleep((unsigned) (seconds * 1000000));
X}
X
Xvoid ExitGraphics(void)
X{
X    XMSendCommand(ExitGraphicsCmd, "");
X    exit(0);
X}
X
Xvoid SaveGraphicsState(void)
X{
X    graphicsStateT sb;
X
X    InitCheck();
X    sb = New(graphicsStateT);
X    sb->cx = cx;
X    sb->cy = cy;
X    sb->font = textFont;
X    sb->size = pointSize;
X    sb->style = textStyle;
X    sb->erase = eraseMode;
X    sb->color = penColor;
X    sb->link = stateStack;
X    stateStack = sb;
X}
X
Xvoid RestoreGraphicsState(void)
X{
X    graphicsStateT sb;
X
X    InitCheck();
X    if (stateStack == NULL) {
X        Error("RestoreGraphicsState called before SaveGraphicsState");
X    }
X    sb = stateStack;
X    cx = sb->cx;
X    cy = sb->cy;
X    textFont = sb->font;
X    pointSize = sb->size;
X    textStyle = sb->style;
X    eraseMode = sb->erase;
X    penColor = sb->color;
X    stateStack = sb->link;
X    FreeBlock(sb);
X    fontChanged = TRUE;
X    SetEraseMode(eraseMode);
X    SetPenColor(colorTable[penColor].name);
X}
X
Xdouble GetFullScreenWidth(void)
X{
X    double screenWidth, screenHeight;
X
X    XDG