Coverage report: /home/runner/work/geb/geb/src/gui/shapes.lisp

KindCoveredAll%
expression091 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (in-package :geb-gui)
2
 
3
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
 ;; Shapes
5
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
 
7
 (defun cross-circle (stream radius)
8
   (draw-line* stream 0      0       (* radius 2) (* radius 2))
9
   (draw-line* stream 0 (* radius 2) (* radius 2) 0)
10
   (draw-circle* stream radius radius (+ 3 radius) :filled nil))
11
 
12
 (defun plus-circle (stream radius)
13
   (draw-line* stream    0   radius (* radius 2) radius)
14
   (draw-line* stream radius    0      radius   (* radius 2))
15
   (draw-circle* stream radius radius radius :filled nil))
16
 
17
 (defun draw-text-arrow* (sheet text x1 y1 x2 y2 &rest rest-args &key &allow-other-keys)
18
   ;; 10 / length
19
   ;; resize it better plz
20
   (format sheet "~A~A"
21
           (make-string (+ (floor (- (abs (- x2 x1))
22
                                     (text-size sheet text))
23
                                  10)
24
                           1)
25
                        :initial-element #\space)
26
           text)
27
   (apply #'draw-arrow* sheet x1 y1 x2 y2 rest-args))
28
 
29
 (defun xbar (stream)
30
   "Draw an x with a bar over it"
31
   (with-room-for-graphics (stream)
32
     (with-text-face (stream :italic)
33
       (princ #\x stream)
34
       (draw-line* stream 0 0 (text-size stream #\x) 0))))
35