;; phase sprites
(cond ((string=? color "yellow")
(list
- (list s_yellow_new_moon 0 "new")
- (list s_yellow_wax_quarter_moon 16 "1/4 waxing")
- (list s_yellow_wax_half_moon 32 "1/2 waxing")
- (list s_yellow_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_yellow_full_moon 96 "full")
- (list s_yellow_wane_three_quarter_moon 64 "3/4 waning")
- (list s_yellow_wane_half_moon 32 "1/2 waning")
- (list s_yellow_wane_quarter_moon 16 "1/4 waning")))
+ (list s_yellow_new_moon 0 "¿··î")
+ (list s_yellow_wax_quarter_moon 16 "»°Æü·î")
+ (list s_yellow_wax_half_moon 32 "¾å¸¹")
+ (list s_yellow_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_yellow_full_moon 96 "Ëþ·î")
+ (list s_yellow_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_yellow_wane_half_moon 32 "²¼¸¹")
+ (list s_yellow_wane_quarter_moon 16 "Æó½½»°Æü·î")))
((string=? color "blue")
(list
- (list s_blue_new_moon 0 "new")
- (list s_blue_wax_quarter_moon 16 "1/4 waxing")
- (list s_blue_wax_half_moon 32 "1/2 waxing")
- (list s_blue_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_blue_full_moon 96 "full")
- (list s_blue_wane_three_quarter_moon 64 "3/4 waning")
- (list s_blue_wane_half_moon 32 "1/2 waning")
- (list s_blue_wane_quarter_moon 16 "1/4 waning")))
+ (list s_blue_new_moon 0 "¿··î")
+ (list s_blue_wax_quarter_moon 16 "»°Æü·î")
+ (list s_blue_wax_half_moon 32 "¾å¸¹")
+ (list s_blue_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_blue_full_moon 96 "Ëþ·î")
+ (list s_blue_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_blue_wane_half_moon 32 "²¼¸¹")
+ (list s_blue_wane_quarter_moon 16 "Æó½½»°Æü·î")))
(else
(list
- (list s_new_moon 0 "new")
- (list s_wax_quarter_moon 16 "1/4 waxing")
- (list s_wax_half_moon 32 "1/2 waxing")
- (list s_wax_three_quarter_moon 64 "3/4 waxing")
- (list s_full_moon 96 "full")
- (list s_wane_three_quarter_moon 64 "3/4 waning")
- (list s_wane_half_moon 32 "1/2 waning")
- (list s_wane_quarter_moon 16 "1/4 waning")))))
+ (list s_new_moon 0 "¿··î")
+ (list s_wax_quarter_moon 16 "»°Æü·î")
+ (list s_wax_half_moon 32 "¾å¸¹")
+ (list s_wax_three_quarter_moon 64 "¶åÆü·î")
+ (list s_full_moon 96 "Ëþ·î")
+ (list s_wane_three_quarter_moon 64 "Æó½½Æü·î")
+ (list s_wane_half_moon 32 "²¼¸¹")
+ (list s_wane_quarter_moon 16 "Æó½½»°Æü·î")))))
gates))