48 lines
1.4 KiB
Racket
48 lines
1.4 KiB
Racket
#lang racket/base
|
|
(provide DEF-WINDOW-WIDTH
|
|
DEF-WINDOW-HEIGHT
|
|
RT-THREAD-ID
|
|
MIN-SEG-WIDTH
|
|
STROKE-WIDTH
|
|
MIN-SEG-INNER-WIDTH
|
|
DEFAULT-TIME-INTERVAL
|
|
TIMELINE-HEADER-OPACITY
|
|
CONNECTION-LINE-HAT-THRESHOLD
|
|
HAT-HEIGHT
|
|
CREATE-GRAPH-NODE-DIAMETER
|
|
CREATE-GRAPH-PADDING
|
|
CREATE-GRAPH-MIN-ZOOM
|
|
CREATE-GRAPH-MAX-ZOOM
|
|
CREATE-GRAPH-DEFAULT-ZOOM
|
|
CREATE-GRAPH-ZOOM-FACTOR
|
|
TIMELINE-ROW-HEIGHT
|
|
TIMELINE-MIN-TICK-PADDING
|
|
HEADER-PADDING
|
|
DEFAULT-TIMELINE-WIDTH
|
|
HEADER-HEIGHT
|
|
TOOLTIP-MARGIN)
|
|
|
|
(define DEF-WINDOW-WIDTH 1500)
|
|
(define DEF-WINDOW-HEIGHT 1000)
|
|
(define RT-THREAD-ID 0)
|
|
(define MIN-SEG-WIDTH 10)
|
|
(define STROKE-WIDTH 2)
|
|
(define MIN-SEG-INNER-WIDTH (- MIN-SEG-WIDTH STROKE-WIDTH))
|
|
;Default time interval (in MS) between ticks on the timeline
|
|
(define DEFAULT-TIME-INTERVAL (/ 1 10))
|
|
(define TIMELINE-HEADER-OPACITY 0.6)
|
|
(define CONNECTION-LINE-HAT-THRESHOLD 20)
|
|
(define HAT-HEIGHT 9)
|
|
(define CREATE-GRAPH-NODE-DIAMETER 30)
|
|
(define CREATE-GRAPH-PADDING 5)
|
|
(define CREATE-GRAPH-MIN-ZOOM 1)
|
|
(define CREATE-GRAPH-MAX-ZOOM 5)
|
|
(define CREATE-GRAPH-DEFAULT-ZOOM 3)
|
|
(define CREATE-GRAPH-ZOOM-FACTOR .4)
|
|
(define TIMELINE-ROW-HEIGHT 100)
|
|
(define TIMELINE-MIN-TICK-PADDING 10)
|
|
(define HEADER-PADDING 5)
|
|
(define DEFAULT-TIMELINE-WIDTH 1000)
|
|
(define HEADER-HEIGHT 30)
|
|
(define TOOLTIP-MARGIN 5)
|