New icons, standardized lighting

collects/icons/main.rkt

@@ -21,6 +21,7 @@
           bar-icon bar-icon-pict
           back-icon back-icon-pict
           stop-icon stop-icon-pict
+          record-icon record-icon-pict
           step-icon step-icon-pict
           step-back-icon step-back-icon-pict
           continue-icon continue-icon-pict
@@ -34,6 +35,8 @@
           magnifying-glass-icon magnifying-glass-icon-pict
           magnifying-glass-left-icon magnifying-glass-left-icon-pict
           disk-icon disk-icon-pict
+          standing-icon standing-icon-pict
+          running-icon running-icon-pict
           up-arrow-icon up-arrow-icon-pict
           down-arrow-icon down-arrow-icon-pict
           left-arrow-icon left-arrow-icon-pict
@@ -43,5 +46,6 @@
           moon-icon moon-icon-pict
           hash-quote-icon hash-quote-icon-pict
           plus-icon plus-icon-pict
+          times-icon times-icon-pict
           plt-logo plt-logo-pict
           planet-logo planet-logo-pict))

collects/icons/private/svg.rkt

@@ -88,22 +88,23 @@
 (define-make-colorized-icon-pict
   [go-icon-pict "control" "go"]
   [bar-icon-pict "control" "bar"]
-  [back-icon-pict "control" "back"]
   [stop-icon-pict "control" "stop"]
+  [record-icon-pict "control" "record"]
   [check-icon-pict "check" "check"]
   [x-icon-pict "check" "x"]
   [disk-icon-pict "misc" "disk"]
+  [standing-icon-pict "misc" "standing"]
+  [running-icon-pict "misc" "running"]
   [plus-icon-pict "symbol" "plus"]
+  [times-icon-pict "symbol" "times"]
   [up-arrow-icon-pict "arrow" "up"]
   [down-arrow-icon-pict "arrow" "down"]
-  [left-arrow-icon-pict "arrow" "left"]
   [right-arrow-icon-pict "arrow" "right"]
   )
 
 (define-make-icon-pict
   [stop-sign-icon-pict "sign" "stop"]
   [magnifying-glass-icon-pict "misc" "magnifying-glass"]
-  [magnifying-glass-left-icon-pict "misc" "magnifying-glass-left"]
   [earth-icon-pict "misc" "earth"]
   [moon-icon-pict "misc" "moon"]
   [hash-quote-icon-pict "symbol" "hash-quote"]
@@ -111,6 +112,20 @@
   [planet-logo-pict "logo" "planet"]
   )
 
+(defproc (back-icon-pict [color icon-color/c]
+                         [height (>=/c 0) (default-icon-height)]
+                         [style icon-style/c (default-icon-style)]) pict?
+  (pict-mirror-x (go-icon-pict color height style)))
+
+(defproc (left-arrow-icon-pict [color icon-color/c]
+                               [height (>=/c 0) (default-icon-height)]
+                               [style icon-style/c (default-icon-style)]) pict?
+  (pict-mirror-x (right-arrow-icon-pict color height style)))
+
+(defproc (magnifying-glass-left-icon-pict [height (>=/c 0) (default-icon-height)]
+                                          [style icon-style/c (default-icon-style)]) pict?
+  (pict-mirror-x (magnifying-glass-icon-pict height style)))
+
 (defproc (step-icon-pict [color icon-color/c]
                          [height (>=/c 0) (default-icon-height)]
                          [style icon-style/c (default-icon-style)]) pict?
@@ -189,6 +204,7 @@
   bar-icon
   back-icon
   stop-icon
+  record-icon
   step-icon
   step-back-icon
   continue-icon
@@ -199,7 +215,10 @@
   check-icon
   x-icon
   disk-icon
+  standing-icon
+  running-icon
   plus-icon
+  times-icon
   up-arrow-icon
   down-arrow-icon
   left-arrow-icon