2024-11-05 16:34:07 -07:00
|
|
|
#pragma once
|
2010-07-14 15:21:20 -06:00
|
|
|
|
2010-07-21 15:54:46 -06:00
|
|
|
#include <stdio.h>
|
|
|
|
|
|
2010-07-22 18:08:55 -06:00
|
|
|
#ifndef TAU
|
|
|
|
|
#define TAU 6.28318530717958647692
|
|
|
|
|
#endif
|
|
|
|
|
|
2010-07-21 15:54:46 -06:00
|
|
|
/* Debugging */
|
2024-12-04 18:40:53 -07:00
|
|
|
#define DUMPf(fmt, args...) \
|
|
|
|
|
fprintf(stderr, "%s:%s:%d " fmt "\n", __FILE__, __FUNCTION__, __LINE__, \
|
|
|
|
|
##args)
|
2010-07-14 15:21:20 -06:00
|
|
|
#define DUMP() DUMPf("")
|
|
|
|
|
#define DUMP_d(v) DUMPf("%s = %d", #v, v)
|
|
|
|
|
#define DUMP_x(v) DUMPf("%s = 0x%x", #v, v)
|
|
|
|
|
#define DUMP_s(v) DUMPf("%s = %s", #v, v)
|
|
|
|
|
#define DUMP_c(v) DUMPf("%s = %c", #v, v)
|
|
|
|
|
#define DUMP_f(v) DUMPf("%s = %f", #v, v)
|
|
|
|
|
#define DUMP_p(v) DUMPf("%s = %p", #v, v)
|
|
|
|
|
#define DUMP_xy(v) DUMPf("%s = (%f, %f)", #v, v[0], v[1]);
|
2024-12-04 18:40:53 -07:00
|
|
|
#define DUMP_angle(v) DUMPf("%s = %.3fτ", #v, (v / TAU));
|
2010-07-14 15:21:20 -06:00
|
|
|
|
2010-07-21 15:54:46 -06:00
|
|
|
/* Tektronix 4014 drawing */
|
|
|
|
|
#define TEK_ENABLE "\033[?38h"
|
|
|
|
|
#define TEK_DISABLE "\033\003"
|
|
|
|
|
#define TEK(fmt, args...) fprintf(stderr, TEK_ENABLE fmt TEK_DISABLE, ##args)
|
2024-12-04 18:40:53 -07:00
|
|
|
#define TEK_coord(x, y) \
|
|
|
|
|
((int)y / 32) + 32, ((int)y % 32) + 96, ((int)x / 32) + 32, ((int)x % 32) + 64
|
2010-07-21 15:54:46 -06:00
|
|
|
|
|
|
|
|
#define TEK_cls() TEK("\033\014")
|
2024-12-04 18:40:53 -07:00
|
|
|
#define TEK_line(x1, y1, x2, y2) \
|
|
|
|
|
TEK("\035%c%c%c%c%c%c%c%c", TEK_coord(x1, y1), TEK_coord(x2, y2))
|
2010-07-21 15:54:46 -06:00
|
|
|
#define TEK_point(x, y) TEK("\034%c%c%c%c", TEK_coord(x, y))
|
|
|
|
|
#define TEK_text(x, y, s) TEK("\035%c%c%c%c\037%s", TEK_coord(x, y), s)
|
