home *** CD-ROM | disk | FTP | other *** search
- #include <intuition/intuition.h>
- #include "execdef.h"
- #include "intuidef.h"
- #include "loadrecord.h"
- #include "windowinfo.h"
-
- #include "DrawScaleReferenceLines.proto"
-
- #include <graphics/proto.h>
-
- void
- DrawScaleReferenceLines(window, record, xleft)
- Window *window;
- LoadRecord *record;
- short xleft;
- {
- WindowInfo *window_info;
- register short y, deltay, moduloy;
-
- /* Draw scale reference lines from xleft to rightedge. */
-
- window_info = WINDOWINFO(window);
- SetAPen(window->RPort, record->ref_pen_num);
- xleft += window_info->leftedge;
- deltay = record->deltay;
- moduloy = record->moduloy;
- for (y = window_info->height; (y -= deltay) > 0;)
- {
- if (moduloy-- > 0)
- y--;
- Move(window->RPort, xleft, y);
- Draw(window->RPort, window_info->rightedge, y);
- }
- }
-