/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / emacs-19.16 / lisp / solar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 4a 75 6c 20 20 36 |du on Tu|e Jul  6|
|00000040| 20 30 30 3a 30 33 3a 35 | 36 20 31 39 39 33 0a 3b | 00:03:5|6 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 73 6f 6c | 61 72 2e 65 6c 0a 3b 3b |lisp/sol|ar.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 31 35 2e 31 36 | 2e 0a 3b 3b 3b 20 62 79 |19.15.16|..;;; by|
|000000a0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 46 |tecomp v|ersion F|
|000000b0| 53 46 20 32 2e 31 30 0a | 3b 3b 3b 20 6f 70 74 69 |SF 2.10.|;;; opti|
|000000c0| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|000000d0| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|000000e0| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|000000f0| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000100| 20 45 6d 61 63 73 20 31 | 38 2e 0a 0a 28 69 66 20 | Emacs 1|8...(if |
|00000110| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000120| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000130| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000140| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|00000150| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|00000160| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|00000170| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|00000180| 6f 6e 20 22 31 39 22 29 | 29 29 0a 20 20 20 20 28 |on "19")|)).    (|
|00000190| 65 72 72 6f 72 20 22 54 | 68 69 73 20 66 69 6c 65 |error "T|his file|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001c0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 83 0d |byte-cod|e "..!..|
|000001d0| 00 c2 c3 21 88 82 11 00 | c4 c5 21 88 c2 c6 21 87 |...!....|..!...!.|
|000001e0| 22 20 5b 66 62 6f 75 6e | 64 70 20 61 74 61 6e 20 |" [fboun|dp atan |
|000001f0| 72 65 71 75 69 72 65 20 | 6c 69 73 70 2d 66 6c 6f |require |lisp-flo|
|00000200| 61 74 2d 74 79 70 65 20 | 65 72 72 6f 72 20 22 53 |at-type |error "S|
|00000210| 6f 6c 61 72 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |olar cal|culation|
|00000220| 73 20 69 6d 70 6f 73 73 | 69 62 6c 65 20 73 69 6e |s imposs|ible sin|
|00000230| 63 65 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |ce float|ing poin|
|00000240| 74 20 69 73 20 75 6e 61 | 76 61 69 6c 61 62 6c 65 |t is una|vailable|
|00000250| 2e 22 20 63 61 6c 2d 64 | 73 74 5d 20 32 29 0a 28 |." cal-d|st] 2).(|
|00000260| 64 65 66 76 61 72 20 63 | 61 6c 65 6e 64 61 72 2d |defvar c|alendar-|
|00000270| 74 69 6d 65 2d 64 69 73 | 70 6c 61 79 2d 66 6f 72 |time-dis|play-for|
|00000280| 6d 20 28 71 75 6f 74 65 | 20 28 31 32 2d 68 6f 75 |m (quote| (12-hou|
|00000290| 72 73 20 22 3a 22 20 6d | 69 6e 75 74 65 73 20 61 |rs ":" m|inutes a|
|000002a0| 6d 2d 70 6d 20 28 69 66 | 20 74 69 6d 65 2d 7a 6f |m-pm (if| time-zo|
|000002b0| 6e 65 20 22 20 28 22 29 | 20 74 69 6d 65 2d 7a 6f |ne " (")| time-zo|
|000002c0| 6e 65 20 28 69 66 20 74 | 69 6d 65 2d 7a 6f 6e 65 |ne (if t|ime-zone|
|000002d0| 20 22 29 22 29 29 29 20 | 22 5c 0a 2a 54 68 65 20 | ")"))) |"\.*The |
|000002e0| 70 73 65 75 64 6f 2d 70 | 61 74 74 65 72 6e 20 74 |pseudo-p|attern t|
|000002f0| 68 61 74 20 67 6f 76 65 | 72 6e 73 20 74 68 65 20 |hat gove|rns the |
|00000300| 77 61 79 20 61 20 74 69 | 6d 65 20 6f 66 20 64 61 |way a ti|me of da|
|00000310| 79 20 69 73 20 66 6f 72 | 6d 61 74 74 65 64 2e 0a |y is for|matted..|
|00000320| 0a 41 20 70 73 65 75 64 | 6f 2d 70 61 74 74 65 72 |.A pseud|o-patter|
|00000330| 6e 20 69 73 20 61 20 6c | 69 73 74 20 6f 66 20 65 |n is a l|ist of e|
|00000340| 78 70 72 65 73 73 69 6f | 6e 73 20 74 68 61 74 20 |xpressio|ns that |
|00000350| 63 61 6e 20 69 6e 76 6f | 6c 76 65 20 74 68 65 20 |can invo|lve the |
|00000360| 6b 65 79 77 6f 72 64 73 | 0a 60 31 32 2d 68 6f 75 |keywords|.`12-hou|
|00000370| 72 73 27 2c 20 60 32 34 | 2d 68 6f 75 72 73 27 2c |rs', `24|-hours',|
|00000380| 20 61 6e 64 20 60 6d 69 | 6e 75 74 65 73 27 2c 20 | and `mi|nutes', |
|00000390| 20 61 6c 6c 20 6e 75 6d | 62 65 72 73 20 69 6e 20 | all num|bers in |
|000003a0| 73 74 72 69 6e 67 20 66 | 6f 72 6d 2c 0a 61 6e 64 |string f|orm,.and|
|000003b0| 20 60 61 6d 2d 70 6d 27 | 20 61 6e 64 20 60 74 69 | `am-pm'| and `ti|
|000003c0| 6d 65 2d 7a 6f 6e 65 27 | 2c 20 20 62 6f 74 68 20 |me-zone'|,  both |
|000003d0| 61 6c 70 68 61 62 65 74 | 69 63 20 73 74 72 69 6e |alphabet|ic strin|
|000003e0| 67 73 2e 0a 0a 46 6f 72 | 20 65 78 61 6d 70 6c 65 |gs...For| example|
|000003f0| 2c 20 74 68 65 20 66 6f | 72 6d 0a 0a 20 20 27 28 |, the fo|rm..  '(|
|00000400| 32 34 2d 68 6f 75 72 73 | 20 5c 22 3a 5c 22 20 6d |24-hours| \":\" m|
|00000410| 69 6e 75 74 65 73 0a 20 | 20 20 20 28 69 66 20 74 |inutes. |   (if t|
|00000420| 69 6d 65 2d 7a 6f 6e 65 | 20 5c 22 20 28 5c 22 29 |ime-zone| \" (\")|
|00000430| 20 74 69 6d 65 2d 7a 6f | 6e 65 20 28 69 66 20 74 | time-zo|ne (if t|
|00000440| 69 6d 65 2d 7a 6f 6e 65 | 20 5c 22 29 5c 22 29 29 |ime-zone| \")\"))|
|00000450| 0a 0a 77 6f 75 6c 64 20 | 67 69 76 65 20 6d 69 6c |..would |give mil|
|00000460| 69 74 61 72 79 2d 73 74 | 79 6c 65 20 74 69 6d 65 |itary-st|yle time|
|00000470| 73 20 6c 69 6b 65 20 60 | 32 31 3a 30 37 20 28 55 |s like `|21:07 (U|
|00000480| 54 43 29 27 2e 22 29 0a | 28 64 65 66 76 61 72 20 |TC)'.").|(defvar |
|00000490| 63 61 6c 65 6e 64 61 72 | 2d 6c 61 74 69 74 75 64 |calendar|-latitud|
|000004a0| 65 20 6e 69 6c 20 22 5c | 0a 2a 4c 61 74 69 74 75 |e nil "\|.*Latitu|
|000004b0| 64 65 20 6f 66 20 60 63 | 61 6c 65 6e 64 61 72 2d |de of `c|alendar-|
|000004c0| 6c 6f 63 61 74 69 6f 6e | 2d 6e 61 6d 65 27 20 69 |location|-name' i|
|000004d0| 6e 20 64 65 67 72 65 65 | 73 2c 20 2b 20 6e 6f 72 |n degree|s, + nor|
|000004e0| 74 68 2c 20 2d 20 73 6f | 75 74 68 2e 0a 46 6f 72 |th, - so|uth..For|
|000004f0| 20 65 78 61 6d 70 6c 65 | 2c 20 34 30 2e 37 20 66 | example|, 40.7 f|
|00000500| 6f 72 20 4e 65 77 20 59 | 6f 72 6b 20 43 69 74 79 |or New Y|ork City|
|00000510| 2e 0a 49 74 20 6d 61 79 | 20 6e 6f 74 20 62 65 20 |..It may| not be |
|00000520| 61 20 67 6f 6f 64 20 69 | 64 65 61 20 74 6f 20 73 |a good i|dea to s|
|00000530| 65 74 20 74 68 69 73 20 | 69 6e 20 61 64 76 61 6e |et this |in advan|
|00000540| 63 65 20 66 6f 72 20 79 | 6f 75 72 20 73 69 74 65 |ce for y|our site|
|00000550| 3b 0a 69 66 20 74 68 65 | 72 65 20 6d 61 79 20 62 |;.if the|re may b|
|00000560| 65 20 75 73 65 72 73 20 | 72 75 6e 6e 69 6e 67 20 |e users |running |
|00000570| 45 6d 61 63 73 20 61 74 | 20 79 6f 75 72 20 73 69 |Emacs at| your si|
|00000580| 74 65 0a 77 68 6f 20 61 | 72 65 20 70 68 79 73 69 |te.who a|re physi|
|00000590| 63 61 6c 6c 79 20 6c 6f | 63 61 74 65 64 20 65 6c |cally lo|cated el|
|000005a0| 73 65 77 68 65 72 65 2c | 20 74 68 65 79 20 77 6f |sewhere,| they wo|
|000005b0| 75 6c 64 20 67 65 74 20 | 74 68 65 20 77 72 6f 6e |uld get |the wron|
|000005c0| 67 0a 76 61 6c 75 65 20 | 61 6e 64 20 6d 69 67 68 |g.value |and migh|
|000005d0| 74 20 6e 6f 74 20 6b 6e | 6f 77 20 68 6f 77 20 74 |t not kn|ow how t|
|000005e0| 6f 20 6f 76 65 72 72 69 | 64 65 20 69 74 2e 22 29 |o overri|de it.")|
|000005f0| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 65 6e 64 61 |.(defvar| calenda|
|00000600| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 20 6e 69 6c 20 |r-longit|ude nil |
|00000610| 22 5c 0a 2a 4c 6f 6e 67 | 69 74 75 64 65 20 6f 66 |"\.*Long|itude of|
|00000620| 20 60 63 61 6c 65 6e 64 | 61 72 2d 6c 6f 63 61 74 | `calend|ar-locat|
|00000630| 69 6f 6e 2d 6e 61 6d 65 | 27 20 69 6e 20 64 65 67 |ion-name|' in deg|
|00000640| 72 65 65 73 2c 20 2b 20 | 65 61 73 74 2c 20 2d 20 |rees, + |east, - |
|00000650| 77 65 73 74 2e 0a 46 6f | 72 20 65 78 61 6d 70 6c |west..Fo|r exampl|
|00000660| 65 2c 20 2d 37 34 2e 30 | 20 66 6f 72 20 4e 65 77 |e, -74.0| for New|
|00000670| 20 59 6f 72 6b 20 43 69 | 74 79 2e 0a 49 74 20 6d | York Ci|ty..It m|
|00000680| 61 79 20 6e 6f 74 20 62 | 65 20 61 20 67 6f 6f 64 |ay not b|e a good|
|00000690| 20 69 64 65 61 20 74 6f | 20 73 65 74 20 74 68 69 | idea to| set thi|
|000006a0| 73 20 69 6e 20 61 64 76 | 61 6e 63 65 20 66 6f 72 |s in adv|ance for|
|000006b0| 20 79 6f 75 72 20 73 69 | 74 65 3b 0a 69 66 20 74 | your si|te;.if t|
|000006c0| 68 65 72 65 20 6d 61 79 | 20 62 65 20 75 73 65 72 |here may| be user|
|000006d0| 73 20 72 75 6e 6e 69 6e | 67 20 45 6d 61 63 73 20 |s runnin|g Emacs |
|000006e0| 61 74 20 79 6f 75 72 20 | 73 69 74 65 0a 77 68 6f |at your |site.who|
|000006f0| 20 61 72 65 20 70 68 79 | 73 69 63 61 6c 6c 79 20 | are phy|sically |
|00000700| 6c 6f 63 61 74 65 64 20 | 65 6c 73 65 77 68 65 72 |located |elsewher|
|00000710| 65 2c 20 74 68 65 79 20 | 77 6f 75 6c 64 20 67 65 |e, they |would ge|
|00000720| 74 20 74 68 65 20 77 72 | 6f 6e 67 0a 76 61 6c 75 |t the wr|ong.valu|
|00000730| 65 20 61 6e 64 20 6d 69 | 67 68 74 20 6e 6f 74 20 |e and mi|ght not |
|00000740| 6b 6e 6f 77 20 68 6f 77 | 20 74 6f 20 6f 76 65 72 |know how| to over|
|00000750| 72 69 64 65 20 69 74 2e | 22 29 0a 28 64 65 66 76 |ride it.|").(defv|
|00000760| 61 72 20 63 61 6c 65 6e | 64 61 72 2d 6c 6f 63 61 |ar calen|dar-loca|
|00000770| 74 69 6f 6e 2d 6e 61 6d | 65 20 28 71 75 6f 74 65 |tion-nam|e (quote|
|00000780| 20 28 6c 65 74 20 28 28 | 66 6c 6f 61 74 2d 6f 75 | (let ((|float-ou|
|00000790| 74 70 75 74 2d 66 6f 72 | 6d 61 74 20 22 25 2e 31 |tput-for|mat "%.1|
|000007a0| 66 22 29 29 20 28 66 6f | 72 6d 61 74 20 22 25 73 |f")) (fo|rmat "%s|
|000007b0| 25 73 2c 20 25 73 25 73 | 22 20 28 61 62 73 20 63 |%s, %s%s|" (abs c|
|000007c0| 61 6c 65 6e 64 61 72 2d | 6c 61 74 69 74 75 64 65 |alendar-|latitude|
|000007d0| 29 20 28 69 66 20 28 3e | 20 63 61 6c 65 6e 64 61 |) (if (>| calenda|
|000007e0| 72 2d 6c 61 74 69 74 75 | 64 65 20 30 29 20 22 4e |r-latitu|de 0) "N|
|000007f0| 22 20 22 53 22 29 20 28 | 61 62 73 20 63 61 6c 65 |" "S") (|abs cale|
|00000800| 6e 64 61 72 2d 6c 6f 6e | 67 69 74 75 64 65 29 20 |ndar-lon|gitude) |
|00000810| 28 69 66 20 28 3e 20 63 | 61 6c 65 6e 64 61 72 2d |(if (> c|alendar-|
|00000820| 6c 6f 6e 67 69 74 75 64 | 65 20 30 29 20 22 45 22 |longitud|e 0) "E"|
|00000830| 20 22 57 22 29 29 29 29 | 20 22 5c 0a 2a 45 78 70 | "W"))))| "\.*Exp|
|00000840| 72 65 73 73 69 6f 6e 20 | 65 76 61 6c 75 61 74 69 |ression |evaluati|
|00000850| 6e 67 20 74 6f 20 6e 61 | 6d 65 20 6f 66 20 60 63 |ng to na|me of `c|
|00000860| 61 6c 65 6e 64 61 72 2d | 6c 6f 6e 67 69 74 75 64 |alendar-|longitud|
|00000870| 65 27 2c 20 63 61 6c 65 | 6e 64 61 72 2d 6c 61 74 |e', cale|ndar-lat|
|00000880| 69 74 75 64 65 27 2e 0a | 44 65 66 61 75 6c 74 20 |itude'..|Default |
|00000890| 76 61 6c 75 65 20 69 73 | 20 6a 75 73 74 20 74 68 |value is| just th|
|000008a0| 65 20 6c 61 74 69 74 75 | 64 65 2c 20 6c 6f 6e 67 |e latitu|de, long|
|000008b0| 69 74 75 64 65 20 70 61 | 69 72 2e 22 29 0a 28 64 |itude pa|ir.").(d|
|000008c0| 65 66 61 6c 69 61 73 20 | 27 73 6f 6c 61 72 2d 73 |efalias |'solar-s|
|000008d0| 65 74 75 70 20 23 5b 6e | 69 6c 20 22 c0 20 88 09 |etup #[n|il ". ..|
|000008e0| 84 0b 00 c2 c3 21 11 0c | 84 13 00 c2 c5 21 14 0e |.....!..|.....!..|
|000008f0| 06 3f 85 1f 00 c2 c7 21 | 89 16 06 87 22 20 5b 62 |.?.....!|...." [b|
|00000900| 65 65 70 20 63 61 6c 65 | 6e 64 61 72 2d 6c 6f 6e |eep cale|ndar-lon|
|00000910| 67 69 74 75 64 65 20 73 | 6f 6c 61 72 2d 67 65 74 |gitude s|olar-get|
|00000920| 2d 6e 75 6d 62 65 72 20 | 22 45 6e 74 65 72 20 6c |-number |"Enter l|
|00000930| 6f 6e 67 69 74 75 64 65 | 20 28 64 65 63 69 6d 61 |ongitude| (decima|
|00000940| 6c 20 66 72 61 63 74 69 | 6f 6e 3b 20 2b 20 65 61 |l fracti|on; + ea|
|00000950| 73 74 2c 20 2d 20 77 65 | 73 74 29 3a 20 22 20 63 |st, - we|st): " c|
|00000960| 61 6c 65 6e 64 61 72 2d | 6c 61 74 69 74 75 64 65 |alendar-|latitude|
|00000970| 20 22 45 6e 74 65 72 20 | 6c 61 74 69 74 75 64 65 | "Enter |latitude|
|00000980| 20 28 64 65 63 69 6d 61 | 6c 20 66 72 61 63 74 69 | (decima|l fracti|
|00000990| 6f 6e 3b 20 2b 20 6e 6f | 72 74 68 2c 20 2d 20 73 |on; + no|rth, - s|
|000009a0| 6f 75 74 68 29 3a 20 22 | 20 63 61 6c 65 6e 64 61 |outh): "| calenda|
|000009b0| 72 2d 74 69 6d 65 2d 7a | 6f 6e 65 20 22 45 6e 74 |r-time-z|one "Ent|
|000009c0| 65 72 20 64 69 66 66 65 | 72 65 6e 63 65 20 66 72 |er diffe|rence fr|
|000009d0| 6f 6d 20 43 6f 6f 72 64 | 69 6e 61 74 65 64 20 55 |om Coord|inated U|
|000009e0| 6e 69 76 65 72 73 61 6c | 20 54 69 6d 65 20 28 69 |niversal| Time (i|
|000009f0| 6e 20 6d 69 6e 75 74 65 | 73 29 3a 20 22 5d 20 32 |n minute|s): "] 2|
|00000a00| 20 22 5c 0a 50 72 6f 6d | 70 74 20 75 73 65 72 20 | "\.Prom|pt user |
|00000a10| 66 6f 72 20 6c 61 74 69 | 74 75 64 65 2c 20 6c 6f |for lati|tude, lo|
|00000a20| 6e 67 69 74 75 64 65 2c | 20 61 6e 64 20 74 69 6d |ngitude,| and tim|
|00000a30| 65 20 7a 6f 6e 65 2e 22 | 5d 29 0a 28 64 65 66 61 |e zone."|]).(defa|
|00000a40| 6c 69 61 73 20 27 73 6f | 6c 61 72 2d 67 65 74 2d |lias 'so|lar-get-|
|00000a50| 6e 75 6d 62 65 72 20 23 | 5b 28 70 72 6f 6d 70 74 |number #|[(prompt|
|00000a60| 29 20 22 c0 09 c2 5c 22 | 89 1b c2 98 3f 85 0f 00 |) "...\"|....?...|
|00000a70| c4 0b 21 29 87 22 20 5b | 72 65 61 64 2d 73 74 72 |..!)." [|read-str|
|00000a80| 69 6e 67 20 70 72 6f 6d | 70 74 20 22 22 20 78 20 |ing prom|pt "" x |
|00000a90| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 5d 20 34 |string-t|o-int] 4|
|00000aa0| 20 22 5c 0a 52 65 74 75 | 72 6e 20 61 20 6e 75 6d | "\.Retu|rn a num|
|00000ab0| 62 65 72 20 66 72 6f 6d | 20 74 68 65 20 6d 69 6e |ber from| the min|
|00000ac0| 69 62 75 66 66 65 72 2c | 20 70 72 6f 6d 70 74 69 |ibuffer,| prompti|
|00000ad0| 6e 67 20 77 69 74 68 20 | 50 52 4f 4d 50 54 2e 0a |ng with |PROMPT..|
|00000ae0| 52 65 74 75 72 6e 73 20 | 6e 69 6c 20 69 66 20 6e |Returns |nil if n|
|00000af0| 6f 74 68 69 6e 67 20 77 | 61 73 20 65 6e 74 65 72 |othing w|as enter|
|00000b00| 65 64 2e 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |ed."]).(|byte-cod|
|00000b10| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 88 c0 |e "...\"|....\"..|
|00000b20| c5 c6 5c 22 87 22 20 5b | 64 65 66 61 6c 69 61 73 |..\"." [|defalias|
|00000b30| 20 73 6f 6c 61 72 2d 73 | 69 6e 2d 64 65 67 72 65 | solar-s|in-degre|
|00000b40| 65 73 20 23 5b 28 78 29 | 20 22 c0 09 c2 5f 21 87 |es #[(x)| "..._!.|
|00000b50| 22 20 5b 73 69 6e 20 78 | 20 2e 30 31 37 34 35 33 |" [sin x| .017453|
|00000b60| 32 39 32 35 31 39 39 34 | 33 32 39 34 38 39 32 5d |29251994|3294892]|
|00000b70| 20 33 5d 20 73 6f 6c 61 | 72 2d 63 6f 73 69 6e 65 | 3] sola|r-cosine|
|00000b80| 2d 64 65 67 72 65 65 73 | 20 23 5b 28 78 29 20 22 |-degrees| #[(x) "|
|00000b90| c0 09 c2 5f 21 87 22 20 | 5b 63 6f 73 20 78 20 2e |..._!." |[cos x .|
|00000ba0| 30 31 37 34 35 33 32 39 | 32 35 31 39 39 34 33 32 |01745329|25199432|
|00000bb0| 39 34 38 39 32 5d 20 33 | 5d 20 73 6f 6c 61 72 2d |94892] 3|] solar-|
|00000bc0| 74 61 6e 67 65 6e 74 2d | 64 65 67 72 65 65 73 20 |tangent-|degrees |
|00000bd0| 23 5b 28 78 29 20 22 c0 | 09 c2 5f 21 87 22 20 5b |#[(x) ".|.._!." [|
|00000be0| 74 61 6e 20 78 20 2e 30 | 31 37 34 35 33 32 39 32 |tan x .0|17453292|
|00000bf0| 35 31 39 39 34 33 32 39 | 34 38 39 32 5d 20 33 5d |51994329|4892] 3]|
|00000c00| 5d 20 33 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 3).(de|falias '|
|00000c10| 73 6f 6c 61 72 2d 78 79 | 2d 74 6f 2d 71 75 61 64 |solar-xy|-to-quad|
|00000c20| 72 61 6e 74 20 23 5b 28 | 78 20 79 29 20 22 08 c1 |rant #[(|x y) "..|
|00000c30| 56 83 10 00 5c 6e c1 56 | 83 0e 00 c3 87 c4 87 5c |V...\n.V|.......\|
|00000c40| 6e c1 56 83 18 00 c5 87 | c6 87 22 20 5b 78 20 30 |n.V.....|.." [x 0|
|00000c50| 20 79 20 31 20 34 20 32 | 20 33 5d 20 32 20 22 5c | y 1 4 2| 3] 2 "\|
|00000c60| 0a 44 65 74 65 72 6d 69 | 6e 65 73 20 74 68 65 20 |.Determi|nes the |
|00000c70| 71 75 61 64 72 61 6e 74 | 20 6f 66 20 74 68 65 20 |quadrant| of the |
|00000c80| 70 6f 69 6e 74 20 58 2c | 20 59 2e 22 5d 29 0a 28 |point X,| Y."]).(|
|00000c90| 64 65 66 61 6c 69 61 73 | 20 27 73 6f 6c 61 72 2d |defalias| 'solar-|
|00000ca0| 64 65 67 72 65 65 73 2d | 74 6f 2d 71 75 61 64 72 |degrees-|to-quadr|
|00000cb0| 61 6e 74 20 23 5b 28 61 | 6e 67 6c 65 29 20 22 c0 |ant #[(a|ngle) ".|
|00000cc0| c1 5c 6e c3 5c 22 c4 a5 | 21 54 87 22 20 5b 74 72 |.\n.\"..|!T." [tr|
|00000cd0| 75 6e 63 61 74 65 20 73 | 6f 6c 61 72 2d 6d 6f 64 |uncate s|olar-mod|
|00000ce0| 20 61 6e 67 6c 65 20 33 | 36 30 2e 30 20 39 30 2e | angle 3|60.0 90.|
|00000cf0| 30 5d 20 34 20 22 5c 0a | 44 65 74 65 72 6d 69 6e |0] 4 "\.|Determin|
|00000d00| 65 73 20 74 68 65 20 71 | 75 61 64 72 61 6e 74 20 |es the q|uadrant |
|00000d10| 6f 66 20 41 4e 47 4c 45 | 2e 22 5d 29 0a 28 64 65 |of ANGLE|."]).(de|
|00000d20| 66 61 6c 69 61 73 20 27 | 73 6f 6c 61 72 2d 61 72 |falias '|solar-ar|
|00000d30| 63 74 61 6e 20 23 5b 28 | 78 20 71 75 61 64 29 20 |ctan #[(|x quad) |
|00000d40| 22 c0 09 21 c2 5f 1b 0c | c5 9a 83 12 00 0b c6 5c |"..!._..|.......\|
|00000d50| 5c 82 2b 00 0c c7 9a 83 | 1e 00 0b c6 5c 5c 82 2b |\.+.....|....\\.+|
|00000d60| 00 0c c8 9a 83 2a 00 0b | c9 5c 5c 82 2b 00 0b 29 |.....*..|.\\.+..)|
|00000d70| 87 22 20 5b 61 74 61 6e | 20 78 20 35 37 2e 32 39 |." [atan| x 57.29|
|00000d80| 35 37 37 39 35 31 33 30 | 38 32 33 32 32 38 36 35 |57795130|82322865|
|00000d90| 20 64 65 67 20 71 75 61 | 64 20 32 20 31 38 30 20 | deg qua|d 2 180 |
|00000da0| 33 20 34 20 33 36 30 5d | 20 32 20 22 5c 0a 41 72 |3 4 360]| 2 "\.Ar|
|00000db0| 63 74 61 6e 67 65 6e 74 | 20 6f 66 20 58 20 69 6e |ctangent| of X in|
|00000dc0| 20 71 75 61 64 72 61 6e | 74 20 51 55 41 44 2e 22 | quadran|t QUAD."|
|00000dd0| 5d 29 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |]).(byte|-code ".|
|00000de0| c1 c2 5c 22 88 c0 c3 c4 | 5c 22 87 22 20 5b 64 65 |..\"....|\"." [de|
|00000df0| 66 61 6c 69 61 73 20 73 | 6f 6c 61 72 2d 61 72 63 |falias s|olar-arc|
|00000e00| 63 6f 73 20 23 5b 28 78 | 29 20 22 c0 c1 5c 6e 89 |cos #[(x|) "..\n.|
|00000e10| 5f 5a 21 1b c4 0b 5c 6e | a5 c5 5c 6e 0b 5c 22 5c |_Z!...\n|..\n.\"\|
|00000e20| 22 29 87 22 20 5b 73 71 | 72 74 20 31 20 78 20 79 |")." [sq|rt 1 x y|
|00000e30| 20 73 6f 6c 61 72 2d 61 | 72 63 74 61 6e 20 73 6f | solar-a|rctan so|
|00000e40| 6c 61 72 2d 78 79 2d 74 | 6f 2d 71 75 61 64 72 61 |lar-xy-t|o-quadra|
|00000e50| 6e 74 5d 20 35 5d 20 73 | 6f 6c 61 72 2d 61 72 63 |nt] 5] s|olar-arc|
|00000e60| 73 69 6e 20 23 5b 28 79 | 29 20 22 c0 c1 5c 6e 89 |sin #[(y|) "..\n.|
|00000e70| 5f 5a 21 1b c4 5c 6e 0b | a5 c5 0b 5c 6e 5c 22 5c |_Z!..\n.|...\n\"\|
|00000e80| 22 29 87 22 20 5b 73 71 | 72 74 20 31 20 79 20 78 |")." [sq|rt 1 y x|
|00000e90| 20 73 6f 6c 61 72 2d 61 | 72 63 74 61 6e 20 73 6f | solar-a|rctan so|
|00000ea0| 6c 61 72 2d 78 79 2d 74 | 6f 2d 71 75 61 64 72 61 |lar-xy-t|o-quadra|
|00000eb0| 6e 74 5d 20 35 5d 5d 20 | 33 29 0a 28 64 65 66 61 |nt] 5]] |3).(defa|
|00000ec0| 6c 69 61 73 20 27 73 6f | 6c 61 72 2d 6d 6f 64 20 |lias 'so|lar-mod |
|00000ed0| 23 5b 28 78 20 79 29 20 | 22 08 09 a6 1a c3 5c 6e |#[(x y) |".....\n|
|00000ee0| 56 83 10 00 5c 6e 09 5c | 5c 82 11 00 5c 6e 29 87 |V...\n.\|\...\n).|
|00000ef0| 22 20 5b 78 20 79 20 76 | 20 30 5d 20 32 20 22 5c |" [x y v| 0] 2 "\|
|00000f00| 0a 52 65 74 75 72 6e 73 | 20 58 20 6d 6f 64 20 59 |.Returns| X mod Y|
|00000f10| 3b 20 76 61 6c 75 65 20 | 69 73 20 2a 61 6c 77 61 |; value |is *alwa|
|00000f20| 79 73 2a 20 6e 6f 6e 2d | 6e 65 67 61 74 69 76 65 |ys* non-|negative|
|00000f30| 2e 22 5d 29 0a 28 64 65 | 66 63 6f 6e 73 74 20 73 |."]).(de|fconst s|
|00000f40| 6f 6c 61 72 2d 65 61 72 | 74 68 2d 69 6e 63 6c 69 |olar-ear|th-incli|
|00000f50| 6e 61 74 69 6f 6e 20 32 | 33 2e 34 34 31 38 38 34 |nation 2|3.441884|
|00000f60| 30 30 30 30 30 30 30 30 | 31 37 32 20 22 5c 0a 49 |00000000|172 "\.I|
|00000f70| 6e 63 6c 69 6e 61 74 69 | 6f 6e 20 6f 66 20 65 61 |nclinati|on of ea|
|00000f80| 72 74 68 27 73 20 65 71 | 75 61 74 6f 72 20 74 6f |rth's eq|uator to|
|00000f90| 20 69 74 73 20 73 6f 6c | 61 72 20 6f 72 62 69 74 | its sol|ar orbit|
|00000fa0| 20 69 6e 20 64 65 67 72 | 65 65 73 2e 22 29 0a 28 | in degr|ees.").(|
|00000fb0| 64 65 66 63 6f 6e 73 74 | 20 73 6f 6c 61 72 2d 63 |defconst| solar-c|
|00000fc0| 6f 73 2d 69 6e 63 6c 69 | 6e 61 74 69 6f 6e 20 28 |os-incli|nation (|
|00000fd0| 73 6f 6c 61 72 2d 63 6f | 73 69 6e 65 2d 64 65 67 |solar-co|sine-deg|
|00000fe0| 72 65 65 73 20 73 6f 6c | 61 72 2d 65 61 72 74 68 |rees sol|ar-earth|
|00000ff0| 2d 69 6e 63 6c 69 6e 61 | 74 69 6f 6e 29 20 22 5c |-inclina|tion) "\|
|00001000| 0a 43 6f 73 69 6e 65 20 | 6f 66 20 65 61 72 74 68 |.Cosine |of earth|
|00001010| 27 73 20 69 6e 63 6c 69 | 6e 61 74 69 6f 6e 2e 22 |'s incli|nation."|
|00001020| 29 0a 28 64 65 66 63 6f | 6e 73 74 20 73 6f 6c 61 |).(defco|nst sola|
|00001030| 72 2d 73 69 6e 2d 69 6e | 63 6c 69 6e 61 74 69 6f |r-sin-in|clinatio|
|00001040| 6e 20 28 73 6f 6c 61 72 | 2d 73 69 6e 2d 64 65 67 |n (solar|-sin-deg|
|00001050| 72 65 65 73 20 73 6f 6c | 61 72 2d 65 61 72 74 68 |rees sol|ar-earth|
|00001060| 2d 69 6e 63 6c 69 6e 61 | 74 69 6f 6e 29 20 22 5c |-inclina|tion) "\|
|00001070| 0a 53 69 6e 65 20 6f 66 | 20 65 61 72 74 68 27 73 |.Sine of| earth's|
|00001080| 20 69 6e 63 6c 69 6e 61 | 74 69 6f 6e 2e 22 29 0a | inclina|tion.").|
|00001090| 28 64 65 66 63 6f 6e 73 | 74 20 73 6f 6c 61 72 2d |(defcons|t solar-|
|000010a0| 65 61 72 74 68 2d 6f 72 | 62 69 74 2d 65 63 63 65 |earth-or|bit-ecce|
|000010b0| 6e 74 72 69 63 69 74 79 | 20 2e 30 31 36 37 31 37 |ntricity| .016717|
|000010c0| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 37 32 20 |99999999|9999972 |
|000010d0| 22 5c 0a 45 63 63 65 6e | 74 72 69 63 69 74 79 20 |"\.Eccen|tricity |
|000010e0| 6f 66 20 6f 72 62 69 74 | 20 6f 66 20 74 68 65 20 |of orbit| of the |
|000010f0| 65 61 72 74 68 20 61 72 | 6f 75 6e 64 20 74 68 65 |earth ar|ound the|
|00001100| 20 73 75 6e 2e 22 29 0a | 28 62 79 74 65 2d 63 6f | sun.").|(byte-co|
|00001110| 64 65 20 22 c0 c1 c2 5c | 22 88 c0 c3 c4 5c 22 87 |de "...\|"....\".|
|00001120| 22 20 5b 64 65 66 61 6c | 69 61 73 20 73 6f 6c 61 |" [defal|ias sola|
|00001130| 72 2d 64 65 67 72 65 65 | 73 2d 74 6f 2d 68 6f 75 |r-degree|s-to-hou|
|00001140| 72 73 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 64 |rs (macr|o . #[(d|
|00001150| 65 67 29 20 22 c0 09 c2 | 45 87 22 20 5b 2f 20 64 |eg) "...|E." [/ d|
|00001160| 65 67 20 31 35 5d 20 33 | 5d 29 20 73 6f 6c 61 72 |eg 15] 3|]) solar|
|00001170| 2d 68 6f 75 72 73 2d 74 | 6f 2d 64 61 79 73 20 28 |-hours-t|o-days (|
|00001180| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 68 6f 75 72 29 |macro . |#[(hour)|
|00001190| 20 22 c0 09 c2 45 87 22 | 20 5b 2f 20 68 6f 75 72 | "...E."| [/ hour|
|000011a0| 20 32 34 5d 20 33 5d 29 | 5d 20 33 29 0a 28 64 65 | 24] 3])|] 3).(de|
|000011b0| 66 61 6c 69 61 73 20 27 | 73 6f 6c 61 72 2d 6c 6f |falias '|solar-lo|
|000011c0| 6e 67 69 74 75 64 65 2d | 6f 66 2d 73 75 6e 20 23 |ngitude-|of-sun #|
|000011d0| 5b 28 64 61 79 29 20 22 | 08 c1 5f c2 5a 1b c4 0b |[(day) "|.._.Z...|
|000011e0| c5 0b 21 c6 5f c5 0b 89 | 5c 5c 21 c7 5f c8 5c 5c |..!._...|\\!._.\\|
|000011f0| 5c 5c 5c 5c c9 5c 22 29 | 87 22 20 5b 64 61 79 20 |\\\\.\")|." [day |
|00001200| 2e 39 38 35 35 39 39 39 | 39 39 39 39 39 39 39 39 |.9855999|99999999|
|00001210| 39 38 37 32 31 20 33 2e | 32 38 39 30 30 30 30 30 |98721 3.|28900000|
|00001220| 30 30 30 30 30 30 30 31 | 34 35 37 20 6d 65 61 6e |00000001|457 mean|
|00001230| 2d 61 6e 6f 6d 61 6c 79 | 20 73 6f 6c 61 72 2d 6d |-anomaly| solar-m|
|00001240| 6f 64 20 73 6f 6c 61 72 | 2d 73 69 6e 2d 64 65 67 |od solar|-sin-deg|
|00001250| 72 65 65 73 20 31 2e 39 | 31 36 30 30 30 30 30 30 |rees 1.9|16000000|
|00001260| 30 30 30 30 30 30 30 31 | 34 32 20 2e 30 32 20 32 |00000001|42 .02 2|
|00001270| 38 32 2e 36 33 34 30 30 | 30 30 30 30 30 30 30 30 |82.63400|00000000|
|00001280| 31 34 35 35 20 33 36 30 | 5d 20 36 20 22 5c 0a 4c |1455 360|] 6 "\.L|
|00001290| 6f 6e 67 69 74 75 64 65 | 20 6f 66 20 74 68 65 20 |ongitude| of the |
|000012a0| 73 75 6e 20 61 74 20 44 | 41 59 20 69 6e 20 74 68 |sun at D|AY in th|
|000012b0| 65 20 79 65 61 72 2e 22 | 5d 29 0a 28 64 65 66 61 |e year."|]).(defa|
|000012c0| 6c 69 61 73 20 27 73 6f | 6c 61 72 2d 72 69 67 68 |lias 'so|lar-righ|
|000012d0| 74 2d 61 73 63 65 6e 73 | 69 6f 6e 20 23 5b 28 6c |t-ascens|ion #[(l|
|000012e0| 6f 6e 67 69 74 75 64 65 | 29 20 22 c0 09 c2 0b 21 |ongitude|) "....!|
|000012f0| 5f c4 0b 21 5c 22 c5 a5 | 87 22 20 5b 73 6f 6c 61 |_..!\"..|." [sola|
|00001300| 72 2d 61 72 63 74 61 6e | 20 73 6f 6c 61 72 2d 63 |r-arctan| solar-c|
|00001310| 6f 73 2d 69 6e 63 6c 69 | 6e 61 74 69 6f 6e 20 73 |os-incli|nation s|
|00001320| 6f 6c 61 72 2d 74 61 6e | 67 65 6e 74 2d 64 65 67 |olar-tan|gent-deg|
|00001330| 72 65 65 73 20 6c 6f 6e | 67 69 74 75 64 65 20 73 |rees lon|gitude s|
|00001340| 6f 6c 61 72 2d 64 65 67 | 72 65 65 73 2d 74 6f 2d |olar-deg|rees-to-|
|00001350| 71 75 61 64 72 61 6e 74 | 20 31 35 5d 20 34 20 22 |quadrant| 15] 4 "|
|00001360| 5c 0a 52 69 67 68 74 20 | 61 73 63 65 6e 73 69 6f |\.Right |ascensio|
|00001370| 6e 20 6f 66 20 74 68 65 | 20 73 75 6e 2c 20 67 69 |n of the| sun, gi|
|00001380| 76 65 6e 20 69 74 73 20 | 4c 4f 4e 47 49 54 55 44 |ven its |LONGITUD|
|00001390| 45 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |E."]).(d|efalias |
|000013a0| 27 73 6f 6c 61 72 2d 64 | 65 63 6c 69 6e 61 74 69 |'solar-d|eclinati|
|000013b0| 6f 6e 20 23 5b 28 6c 6f | 6e 67 69 74 75 64 65 29 |on #[(lo|ngitude)|
|000013c0| 20 22 c0 09 c2 0b 21 5f | 21 87 22 20 5b 73 6f 6c | "....!_|!." [sol|
|000013d0| 61 72 2d 61 72 63 73 69 | 6e 20 73 6f 6c 61 72 2d |ar-arcsi|n solar-|
|000013e0| 73 69 6e 2d 69 6e 63 6c | 69 6e 61 74 69 6f 6e 20 |sin-incl|ination |
|000013f0| 73 6f 6c 61 72 2d 73 69 | 6e 2d 64 65 67 72 65 65 |solar-si|n-degree|
|00001400| 73 20 6c 6f 6e 67 69 74 | 75 64 65 5d 20 34 20 22 |s longit|ude] 4 "|
|00001410| 5c 0a 44 65 63 6c 69 6e | 61 74 69 6f 6e 20 6f 66 |\.Declin|ation of|
|00001420| 20 74 68 65 20 73 75 6e | 2c 20 67 69 76 65 6e 20 | the sun|, given |
|00001430| 69 74 73 20 4c 4f 4e 47 | 49 54 55 44 45 2e 22 5d |its LONG|ITUDE."]|
|00001440| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6f 6c |).(defal|ias 'sol|
|00001450| 61 72 2d 73 75 6e 72 69 | 73 65 20 23 5b 28 64 61 |ar-sunri|se #[(da|
|00001460| 74 65 29 20 22 08 40 19 | 08 41 40 1a 08 41 41 40 |te) ".@.|.A@..AA@|
|00001470| 1b 5c 6e 09 53 c4 5f 5c | 5c 1d 09 c6 56 83 3e 00 |.\n.S._\|\...V.>.|
|00001480| 0d 09 c7 5f c8 5c 5c c9 | a5 5a 15 0b c7 a6 ca 55 |..._.\\.|.Z.....U|
|00001490| 83 3e 00 0b cb a6 ca 55 | 83 3b 00 0b cc a6 ca 55 |.>.....U|.;.....U|
|000014a0| 83 3e 00 0d 54 15 0d 2c | 89 1d cd 0e 0e cf a5 5a |.>..T..,|.......Z|
|000014b0| d0 a5 5c 5c 1e 11 d2 0e | 11 21 1e 13 d4 0e 13 21 |..\\....|.!.....!|
|000014c0| 1e 15 d6 0e 13 21 1e 17 | d8 d9 da a5 db 5c 5c 21 |.....!..|.....\\!|
|000014d0| dc 0e 17 21 dc 0e 1d 21 | 5f 5a d8 0e 17 21 d8 0e |...!...!|_Z...!..|
|000014e0| 1d 21 5f a5 89 1e 1e 89 | 1e 1f ca 59 83 8a 00 0e |.!_.....|...Y....|
|000014f0| 1f 82 8d 00 0e 1f 5b 29 | e0 58 85 ba 00 e1 e2 0e |......[)|.X......|
|00001500| 1e 21 5a cf a5 1e 23 e4 | 0e 23 0e 15 5c 5c 0e 11 |.!Z...#.|.#..\\..|
|00001510| e5 5f e6 5c 5c 5a d0 5c | 22 89 1e 27 0e 0e cf a5 |._.\\Z.\|"..'....|
|00001520| 5a 0e 28 e9 a5 5c 5c 2a | 2e 06 87 22 20 5b 64 61 |Z.(..\\*|..." [da|
|00001530| 74 65 20 6d 6f 6e 74 68 | 20 64 61 79 20 79 65 61 |te month| day yea|
|00001540| 72 20 33 31 20 64 61 79 | 2d 6f 66 2d 79 65 61 72 |r 31 day|-of-year|
|00001550| 20 32 20 34 20 32 33 20 | 31 30 20 30 20 31 30 30 | 2 4 23 |10 0 100|
|00001560| 20 34 30 30 20 36 20 63 | 61 6c 65 6e 64 61 72 2d | 400 6 c|alendar-|
|00001570| 6c 6f 6e 67 69 74 75 64 | 65 20 31 35 20 32 34 20 |longitud|e 15 24 |
|00001580| 61 70 70 72 6f 78 2d 73 | 75 6e 72 69 73 65 20 73 |approx-s|unrise s|
|00001590| 6f 6c 61 72 2d 6c 6f 6e | 67 69 74 75 64 65 2d 6f |olar-lon|gitude-o|
|000015a0| 66 2d 73 75 6e 20 73 6f | 6c 61 72 2d 6c 6f 6e 67 |f-sun so|lar-long|
|000015b0| 69 74 75 64 65 2d 6f 66 | 2d 73 75 6e 2d 61 74 2d |itude-of|-sun-at-|
|000015c0| 73 75 6e 72 69 73 65 20 | 73 6f 6c 61 72 2d 72 69 |sunrise |solar-ri|
|000015d0| 67 68 74 2d 61 73 63 65 | 6e 73 69 6f 6e 20 73 6f |ght-asce|nsion so|
|000015e0| 6c 61 72 2d 72 69 67 68 | 74 2d 61 73 63 65 6e 73 |lar-righ|t-ascens|
|000015f0| 69 6f 6e 2d 61 74 2d 73 | 75 6e 72 69 73 65 20 73 |ion-at-s|unrise s|
|00001600| 6f 6c 61 72 2d 64 65 63 | 6c 69 6e 61 74 69 6f 6e |olar-dec|lination|
|00001610| 20 73 6f 6c 61 72 2d 64 | 65 63 6c 69 6e 61 74 69 | solar-d|eclinati|
|00001620| 6f 6e 2d 61 74 2d 73 75 | 6e 72 69 73 65 20 73 6f |on-at-su|nrise so|
|00001630| 6c 61 72 2d 63 6f 73 69 | 6e 65 2d 64 65 67 72 65 |lar-cosi|ne-degre|
|00001640| 65 73 20 35 30 2e 30 20 | 36 30 2e 30 20 39 30 20 |es 50.0 |60.0 90 |
|00001650| 73 6f 6c 61 72 2d 73 69 | 6e 2d 64 65 67 72 65 65 |solar-si|n-degree|
|00001660| 73 20 63 61 6c 65 6e 64 | 61 72 2d 6c 61 74 69 74 |s calend|ar-latit|
|00001670| 75 64 65 20 63 6f 73 2d | 6c 6f 63 61 6c 2d 73 75 |ude cos-|local-su|
|00001680| 6e 72 69 73 65 20 6e 20 | 31 20 33 36 30 20 73 6f |nrise n |1 360 so|
|00001690| 6c 61 72 2d 61 72 63 63 | 6f 73 20 6c 6f 63 61 6c |lar-arcc|os local|
|000016a0| 2d 73 75 6e 72 69 73 65 | 20 73 6f 6c 61 72 2d 6d |-sunrise| solar-m|
|000016b0| 6f 64 20 2e 30 36 35 37 | 30 39 39 39 39 39 39 39 |od .0657|09999999|
|000016c0| 39 39 39 39 39 37 33 20 | 36 2e 36 32 31 39 39 39 |9999973 |6.621999|
|000016d0| 39 39 39 39 39 39 39 39 | 39 38 38 36 33 20 6c 6f |99999999|98863 lo|
|000016e0| 63 61 6c 2d 6d 65 61 6e | 2d 73 75 6e 72 69 73 65 |cal-mean|-sunrise|
|000016f0| 20 63 61 6c 65 6e 64 61 | 72 2d 74 69 6d 65 2d 7a | calenda|r-time-z|
|00001700| 6f 6e 65 20 36 30 2e 30 | 5d 20 35 20 22 5c 0a 43 |one 60.0|] 5 "\.C|
|00001710| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 2a 73 |alculate|s the *s|
|00001720| 74 61 6e 64 61 72 64 2a | 20 74 69 6d 65 20 6f 66 |tandard*| time of|
|00001730| 20 73 75 6e 72 69 73 65 | 20 66 6f 72 20 47 72 65 | sunrise| for Gre|
|00001740| 67 6f 72 69 61 6e 20 44 | 41 54 45 20 66 6f 72 20 |gorian D|ATE for |
|00001750| 6c 6f 63 61 74 69 6f 6e | 0a 67 69 76 65 6e 20 62 |location|.given b|
|00001760| 79 20 60 63 61 6c 65 6e | 64 61 72 2d 6c 61 74 69 |y `calen|dar-lati|
|00001770| 74 75 64 65 27 20 61 6e | 64 20 60 63 61 6c 65 6e |tude' an|d `calen|
|00001780| 64 61 72 2d 6c 6f 6e 67 | 69 74 75 64 65 27 2e 20 |dar-long|itude'. |
|00001790| 20 52 65 74 75 72 6e 73 | 20 61 20 64 65 63 69 6d | Returns| a decim|
|000017a0| 61 6c 20 66 72 61 63 74 | 69 6f 6e 0a 6f 66 20 68 |al fract|ion.of h|
|000017b0| 6f 75 72 73 2e 20 20 52 | 65 74 75 72 6e 73 20 6e |ours.  R|eturns n|
|000017c0| 69 6c 20 69 66 20 74 68 | 65 20 73 75 6e 20 64 6f |il if th|e sun do|
|000017d0| 65 73 20 6e 6f 74 20 72 | 69 73 65 20 61 74 20 74 |es not r|ise at t|
|000017e0| 68 61 74 20 6c 6f 63 61 | 74 69 6f 6e 20 6f 6e 20 |hat loca|tion on |
|000017f0| 74 68 61 74 20 64 61 79 | 2e 22 5d 29 0a 28 64 65 |that day|."]).(de|
|00001800| 66 61 6c 69 61 73 20 27 | 73 6f 6c 61 72 2d 73 75 |falias '|solar-su|
|00001810| 6e 73 65 74 20 23 5b 28 | 64 61 74 65 29 20 22 08 |nset #[(|date) ".|
|00001820| 40 19 08 41 40 1a 08 41 | 41 40 1b 5c 6e 09 53 c4 |@..A@..A|A@.\n.S.|
|00001830| 5f 5c 5c 1d 09 c6 56 83 | 3e 00 0d 09 c7 5f c8 5c |_\\...V.|>...._.\|
|00001840| 5c c9 a5 5a 15 0b c7 a6 | ca 55 83 3e 00 0b cb a6 |\..Z....|.U.>....|
|00001850| ca 55 83 3b 00 0b cc a6 | ca 55 83 3e 00 0d 54 15 |.U.;....|.U.>..T.|
|00001860| 0d 2c 89 1d cd 0e 0e cf | a5 5a d0 a5 5c 5c 1e 11 |.,......|.Z..\\..|
|00001870| d2 0e 11 21 1e 13 d4 0e | 13 21 1e 15 d6 0e 13 21 |...!....|.!.....!|
|00001880| 1e 17 d8 d9 da a5 db 5c | 5c 21 dc 0e 17 21 dc 0e |.......\|\!...!..|
|00001890| 1d 21 5f 5a d8 0e 17 21 | d8 0e 1d 21 5f a5 89 1e |.!_Z...!|...!_...|
|000018a0| 1e 89 1e 1f ca 59 83 8a | 00 0e 1f 82 8d 00 0e 1f |.....Y..|........|
|000018b0| 5b 29 e0 58 85 b8 00 e1 | 0e 1e 21 cf a5 1e 5c 22 |[).X....|..!...\"|
|000018c0| e3 0e 5c 22 0e 15 5c 5c | 0e 11 e4 5f e5 5c 5c 5a |..\"..\\|..._.\\Z|
|000018d0| d0 5c 22 89 1e 26 0e 0e | cf a5 5a 0e 27 e8 a5 5c |.\"..&..|..Z.'..\|
|000018e0| 5c 2a 2e 06 87 22 20 5b | 64 61 74 65 20 6d 6f 6e |\*..." [|date mon|
|000018f0| 74 68 20 64 61 79 20 79 | 65 61 72 20 33 31 20 64 |th day y|ear 31 d|
|00001900| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|00001910| 33 20 31 30 20 30 20 31 | 30 30 20 34 30 30 20 31 |3 10 0 1|00 400 1|
|00001920| 38 20 63 61 6c 65 6e 64 | 61 72 2d 6c 6f 6e 67 69 |8 calend|ar-longi|
|00001930| 74 75 64 65 20 31 35 20 | 32 34 20 61 70 70 72 6f |tude 15 |24 appro|
|00001940| 78 2d 73 75 6e 73 65 74 | 20 73 6f 6c 61 72 2d 6c |x-sunset| solar-l|
|00001950| 6f 6e 67 69 74 75 64 65 | 2d 6f 66 2d 73 75 6e 20 |ongitude|-of-sun |
|00001960| 73 6f 6c 61 72 2d 6c 6f | 6e 67 69 74 75 64 65 2d |solar-lo|ngitude-|
|00001970| 6f 66 2d 73 75 6e 2d 61 | 74 2d 73 75 6e 73 65 74 |of-sun-a|t-sunset|
|00001980| 20 73 6f 6c 61 72 2d 72 | 69 67 68 74 2d 61 73 63 | solar-r|ight-asc|
|00001990| 65 6e 73 69 6f 6e 20 73 | 6f 6c 61 72 2d 72 69 67 |ension s|olar-rig|
|000019a0| 68 74 2d 61 73 63 65 6e | 73 69 6f 6e 2d 61 74 2d |ht-ascen|sion-at-|
|000019b0| 73 75 6e 73 65 74 20 73 | 6f 6c 61 72 2d 64 65 63 |sunset s|olar-dec|
|000019c0| 6c 69 6e 61 74 69 6f 6e | 20 73 6f 6c 61 72 2d 64 |lination| solar-d|
|000019d0| 65 63 6c 69 6e 61 74 69 | 6f 6e 2d 61 74 2d 73 75 |eclinati|on-at-su|
|000019e0| 6e 73 65 74 20 73 6f 6c | 61 72 2d 63 6f 73 69 6e |nset sol|ar-cosin|
|000019f0| 65 2d 64 65 67 72 65 65 | 73 20 35 30 2e 30 20 36 |e-degree|s 50.0 6|
|00001a00| 30 2e 30 20 39 30 20 73 | 6f 6c 61 72 2d 73 69 6e |0.0 90 s|olar-sin|
|00001a10| 2d 64 65 67 72 65 65 73 | 20 63 61 6c 65 6e 64 61 |-degrees| calenda|
|00001a20| 72 2d 6c 61 74 69 74 75 | 64 65 20 63 6f 73 2d 6c |r-latitu|de cos-l|
|00001a30| 6f 63 61 6c 2d 73 75 6e | 73 65 74 20 6e 20 31 20 |ocal-sun|set n 1 |
|00001a40| 73 6f 6c 61 72 2d 61 72 | 63 63 6f 73 20 6c 6f 63 |solar-ar|ccos loc|
|00001a50| 61 6c 2d 73 75 6e 73 65 | 74 20 73 6f 6c 61 72 2d |al-sunse|t solar-|
|00001a60| 6d 6f 64 20 2e 30 36 35 | 37 30 39 39 39 39 39 39 |mod .065|70999999|
|00001a70| 39 39 39 39 39 39 37 33 | 20 36 2e 36 32 31 39 39 |99999973| 6.62199|
|00001a80| 39 39 39 39 39 39 39 39 | 39 39 38 38 36 33 20 6c |99999999|998863 l|
|00001a90| 6f 63 61 6c 2d 6d 65 61 | 6e 2d 73 75 6e 73 65 74 |ocal-mea|n-sunset|
|00001aa0| 20 63 61 6c 65 6e 64 61 | 72 2d 74 69 6d 65 2d 7a | calenda|r-time-z|
|00001ab0| 6f 6e 65 20 36 30 2e 30 | 5d 20 35 20 22 5c 0a 43 |one 60.0|] 5 "\.C|
|00001ac0| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 2a 73 |alculate|s the *s|
|00001ad0| 74 61 6e 64 61 72 64 2a | 20 74 69 6d 65 20 6f 66 |tandard*| time of|
|00001ae0| 20 73 75 6e 73 65 74 20 | 66 6f 72 20 47 72 65 67 | sunset |for Greg|
|00001af0| 6f 72 69 61 6e 20 44 41 | 54 45 20 66 6f 72 20 6c |orian DA|TE for l|
|00001b00| 6f 63 61 74 69 6f 6e 0a | 67 69 76 65 6e 20 62 79 |ocation.|given by|
|00001b10| 20 60 63 61 6c 65 6e 64 | 61 72 2d 6c 61 74 69 74 | `calend|ar-latit|
|00001b20| 75 64 65 27 20 61 6e 64 | 20 60 63 61 6c 65 6e 64 |ude' and| `calend|
|00001b30| 61 72 2d 6c 6f 6e 67 69 | 74 75 64 65 27 2e 20 20 |ar-longi|tude'.  |
|00001b40| 52 65 74 75 72 6e 73 20 | 61 20 64 65 63 69 6d 61 |Returns |a decima|
|00001b50| 6c 20 66 72 61 63 74 69 | 6f 6e 73 0a 6f 66 20 68 |l fracti|ons.of h|
|00001b60| 6f 75 72 73 2e 20 20 52 | 65 74 75 72 6e 73 20 6e |ours.  R|eturns n|
|00001b70| 69 6c 20 69 66 20 74 68 | 65 20 73 75 6e 20 64 6f |il if th|e sun do|
|00001b80| 65 73 20 6e 6f 74 20 73 | 65 74 20 61 74 20 74 68 |es not s|et at th|
|00001b90| 61 74 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 6e 20 74 |at locat|ion on t|
|00001ba0| 68 61 74 20 64 61 79 2e | 22 5d 29 0a 28 64 65 66 |hat day.|"]).(def|
|00001bb0| 61 6c 69 61 73 20 27 73 | 6f 6c 61 72 2d 74 69 6d |alias 's|olar-tim|
|00001bc0| 65 2d 73 74 72 69 6e 67 | 20 23 5b 28 74 69 6d 65 |e-string| #[(time|
|00001bd0| 20 64 61 74 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 | date &o|ptional |
|00001be0| 73 74 79 6c 65 29 20 22 | 08 41 41 40 19 c2 0b c4 |style) "|.AA@....|
|00001bf0| 5f 21 1b 08 41 41 40 19 | 08 40 1d 08 41 40 1e 06 |_!..AA@.|.@..A@..|
|00001c00| 08 41 41 40 19 0e 06 0d | 53 c7 5f 5c 5c 1e 08 0d |.AA@....|S._\\...|
|00001c10| c9 56 83 55 00 0e 08 0d | ca 5f cb 5c 5c cc a5 5a |.V.U....|._.\\..Z|
|00001c20| 16 08 09 ca a6 cd 55 83 | 55 00 09 ce a6 cd 55 83 |......U.|U.....U.|
|00001c30| 50 00 09 cf a6 cd 55 83 | 55 00 0e 08 54 16 08 0e |P.....U.|U...T...|
|00001c40| 08 2c 09 53 d0 5f 09 53 | ca a5 09 53 ce a5 5b 09 |.,.S._.S|...S..[.|
|00001c50| 53 cf a5 5c 5c 5c 5c 5c | 5c 5c 5c 29 0b d1 a5 5c |S..\\\\\|\\\)...\|
|00001c60| 5c 1e 12 0e 13 85 ed 00 | d4 0e 13 21 41 41 40 19 |\.......|...!AA@.|
|00001c70| d4 0e 13 21 40 1d d4 0e | 13 21 41 40 1e 06 d4 0e |...!@...|.!A@....|
|00001c80| 13 21 41 41 40 19 0e 06 | 0d 53 c7 5f 5c 5c 1e 08 |.!AA@...|.S._\\..|
|00001c90| 0d c9 56 83 cf 00 0e 08 | 0d ca 5f cb 5c 5c cc a5 |..V.....|.._.\\..|
|00001ca0| 5a 16 08 09 ca a6 cd 55 | 83 cf 00 09 ce a6 cd 55 |Z......U|.......U|
|00001cb0| 83 ca 00 09 cf a6 cd 55 | 83 cf 00 0e 08 54 16 08 |.......U|.....T..|
|00001cc0| 0e 08 2c 09 53 d0 5f 09 | 53 ca a5 09 53 ce a5 5b |..,.S._.|S...S..[|
|00001cd0| 09 53 cf a5 5c 5c 5c 5c | 5c 5c 5c 5c 29 0e 15 d6 |.S..\\\\|\\\\)...|
|00001ce0| a5 5c 5c 1e 17 0e 18 85 | 6b 01 d4 0e 18 21 41 41 |.\\.....|k....!AA|
|00001cf0| 40 19 d4 0e 18 21 40 1d | d4 0e 18 21 41 40 1e 06 |@....!@.|...!A@..|
|00001d00| d4 0e 18 21 41 41 40 19 | 0e 06 0d 53 c7 5f 5c 5c |...!AA@.|...S._\\|
|00001d10| 1e 08 0d c9 56 83 4a 01 | 0e 08 0d ca 5f cb 5c 5c |....V.J.|...._.\\|
|00001d20| cc a5 5a 16 08 09 ca a6 | cd 55 83 4a 01 09 ce a6 |..Z.....|.U.J....|
|00001d30| cd 55 83 45 01 09 cf a6 | cd 55 83 4a 01 0e 08 54 |.U.E....|.U.J...T|
|00001d40| 16 08 0e 08 2c 09 53 d0 | 5f 09 53 ca a5 09 53 ce |....,.S.|_.S...S.|
|00001d50| a5 5b 09 53 cf a5 5c 5c | 5c 5c 5c 5c 5c 5c 29 0e |.[.S..\\|\\\\\\).|
|00001d60| 15 0e 19 5a da a5 5c 5c | 1e 1b 0e 1c dd 3d 3f 85 |...Z..\\|.....=?.|
|00001d70| d8 01 0e 1c de 3d 86 d8 | 01 0e 17 83 b6 01 0e 1b |.....=..|........|
|00001d80| 83 b6 01 0e 17 0e 1b 57 | 83 9e 01 0e 17 0e 12 58 |.......W|.......X|
|00001d90| 83 9e 01 0e 12 0e 1b 57 | 86 d8 01 0e 1b 0e 17 57 |.......W|.......W|
|00001da0| 83 b6 01 0e 12 0e 1b 57 | 86 d8 01 0e 17 0e 12 58 |.......W|.......X|
|00001db0| 86 d8 01 0e 17 83 c8 01 | 0e 1b 84 c8 01 0e 17 0e |........|........|
|00001dc0| 12 58 86 d8 01 0e 1b 85 | d8 01 0e 17 3f 85 d8 01 |.X......|....?...|
|00001dd0| 0e 12 0e 1b 57 89 1e 1f | 83 e3 01 0e 20 82 e5 01 |....W...|.... ...|
|00001de0| 0e 21 1e 5c 22 0b 0e 1f | 83 f2 01 0e 19 82 f3 01 |.!.\"...|........|
|00001df0| cd 5c 5c 89 1b c4 a5 1e | 23 e4 e5 0b c4 a6 5c 22 |.\\.....|#.....\"|
|00001e00| 1e 26 e4 e7 0e 23 e8 5c | 5c e9 a6 54 5c 22 1e 2a |.&...#.\|\..T\".*|
|00001e10| 0e 23 e9 59 83 19 02 eb | 82 1a 02 ec 1e 2d e4 e5 |.#.Y....|.....-..|
|00001e20| 0e 23 5c 22 1e 23 ee d4 | 0e 2f f0 23 2e 0d 87 22 |.#\".#..|./.#..."|
|00001e30| 20 5b 64 61 74 65 20 79 | 65 61 72 20 72 6f 75 6e | [date y|ear roun|
|00001e40| 64 20 74 69 6d 65 20 36 | 30 20 6d 6f 6e 74 68 20 |d time 6|0 month |
|00001e50| 64 61 79 20 33 31 20 64 | 61 79 2d 6f 66 2d 79 65 |day 31 d|ay-of-ye|
|00001e60| 61 72 20 32 20 34 20 32 | 33 20 31 30 20 30 20 31 |ar 2 4 2|3 10 0 1|
|00001e70| 30 30 20 34 30 30 20 33 | 36 35 20 31 34 34 30 2e |00 400 3|65 1440.|
|00001e80| 30 20 72 6f 75 6e 64 65 | 64 2d 61 62 73 2d 64 61 |0 rounde|d-abs-da|
|00001e90| 74 65 20 63 61 6c 65 6e | 64 61 72 2d 64 61 79 6c |te calen|dar-dayl|
|00001ea0| 69 67 68 74 2d 73 61 76 | 69 6e 67 73 2d 73 74 61 |ight-sav|ings-sta|
|00001eb0| 72 74 73 20 65 76 61 6c | 20 63 61 6c 65 6e 64 61 |rts eval| calenda|
|00001ec0| 72 2d 64 61 79 6c 69 67 | 68 74 2d 73 61 76 69 6e |r-daylig|ht-savin|
|00001ed0| 67 73 2d 73 77 69 74 63 | 68 6f 76 65 72 2d 74 69 |gs-switc|hover-ti|
|00001ee0| 6d 65 20 31 34 34 30 2e | 30 20 64 73 74 2d 73 74 |me 1440.|0 dst-st|
|00001ef0| 61 72 74 73 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |arts cal|endar-da|
|00001f00| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 65 |ylight-s|avings-e|
|00001f10| 6e 64 73 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |nds cale|ndar-day|
|00001f20| 6c 69 67 68 74 2d 74 69 | 6d 65 2d 6f 66 66 73 65 |light-ti|me-offse|
|00001f30| 74 20 31 34 34 30 2e 30 | 20 64 73 74 2d 65 6e 64 |t 1440.0| dst-end|
|00001f40| 73 20 73 74 79 6c 65 20 | 73 74 61 6e 64 61 72 64 |s style |standard|
|00001f50| 20 64 61 79 6c 69 67 68 | 74 20 64 73 74 20 63 61 | dayligh|t dst ca|
|00001f60| 6c 65 6e 64 61 72 2d 64 | 61 79 6c 69 67 68 74 2d |lendar-d|aylight-|
|00001f70| 74 69 6d 65 2d 7a 6f 6e | 65 2d 6e 61 6d 65 20 63 |time-zon|e-name c|
|00001f80| 61 6c 65 6e 64 61 72 2d | 73 74 61 6e 64 61 72 64 |alendar-|standard|
|00001f90| 2d 74 69 6d 65 2d 7a 6f | 6e 65 2d 6e 61 6d 65 20 |-time-zo|ne-name |
|00001fa0| 74 69 6d 65 2d 7a 6f 6e | 65 20 32 34 2d 68 6f 75 |time-zon|e 24-hou|
|00001fb0| 72 73 20 66 6f 72 6d 61 | 74 20 22 25 30 32 64 22 |rs forma|t "%02d"|
|00001fc0| 20 6d 69 6e 75 74 65 73 | 20 22 25 64 22 20 31 31 | minutes| "%d" 11|
|00001fd0| 20 31 32 20 31 32 2d 68 | 6f 75 72 73 20 22 70 6d | 12 12-h|ours "pm|
|00001fe0| 22 20 22 61 6d 22 20 61 | 6d 2d 70 6d 20 6d 61 70 |" "am" a|m-pm map|
|00001ff0| 63 6f 6e 63 61 74 20 63 | 61 6c 65 6e 64 61 72 2d |concat c|alendar-|
|00002000| 74 69 6d 65 2d 64 69 73 | 70 6c 61 79 2d 66 6f 72 |time-dis|play-for|
|00002010| 6d 20 22 22 5d 20 37 20 | 22 5c 0a 50 72 69 6e 74 |m ""] 7 |"\.Print|
|00002020| 61 62 6c 65 20 66 6f 72 | 6d 20 66 6f 72 20 64 65 |able for|m for de|
|00002030| 63 69 6d 61 6c 20 66 72 | 61 63 74 69 6f 6e 20 2a |cimal fr|action *|
|00002040| 73 74 61 6e 64 61 72 64 | 2a 20 54 49 4d 45 20 6f |standard|* TIME o|
|00002050| 6e 20 44 41 54 45 2e 0a | 4f 70 74 69 6f 6e 61 6c |n DATE..|Optional|
|00002060| 20 70 61 72 61 6d 65 74 | 65 72 20 53 54 59 4c 45 | paramet|er STYLE|
|00002070| 20 66 6f 72 63 65 73 20 | 74 68 65 20 74 69 6d 65 | forces |the time|
|00002080| 20 74 6f 20 62 65 20 73 | 74 61 6e 64 61 72 64 20 | to be s|tandard |
|00002090| 74 69 6d 65 20 77 68 65 | 6e 20 69 74 73 20 76 61 |time whe|n its va|
|000020a0| 6c 75 65 0a 69 73 20 27 | 73 74 61 6e 64 61 72 64 |lue.is '|standard|
|000020b0| 20 61 6e 64 20 64 61 79 | 6c 69 67 68 74 20 73 61 | and day|light sa|
|000020c0| 76 69 6e 67 73 20 74 69 | 6d 65 20 28 69 66 20 61 |vings ti|me (if a|
|000020d0| 76 61 69 6c 61 62 6c 65 | 29 20 77 68 65 6e 20 69 |vailable|) when i|
|000020e0| 74 73 20 76 61 6c 75 65 | 20 69 73 0a 27 64 61 79 |ts value| is.'day|
|000020f0| 6c 69 67 68 74 2e 0a 0a | 46 6f 72 6d 61 74 20 75 |light...|Format u|
|00002100| 73 65 64 20 69 73 20 67 | 69 76 65 6e 20 62 79 20 |sed is g|iven by |
|00002110| 60 63 61 6c 65 6e 64 61 | 72 2d 74 69 6d 65 2d 64 |`calenda|r-time-d|
|00002120| 69 73 70 6c 61 79 2d 66 | 6f 72 6d 27 2e 20 20 43 |isplay-f|orm'.  C|
|00002130| 6f 6e 76 65 72 74 65 64 | 20 74 6f 20 64 61 79 6c |onverted| to dayl|
|00002140| 69 67 68 74 0a 73 61 76 | 69 6e 67 73 20 74 69 6d |ight.sav|ings tim|
|00002150| 65 20 61 63 63 6f 72 64 | 69 6e 67 20 74 6f 20 60 |e accord|ing to `|
|00002160| 63 61 6c 65 6e 64 61 72 | 2d 64 61 79 6c 69 67 68 |calendar|-dayligh|
|00002170| 74 2d 73 61 76 69 6e 67 | 73 2d 73 74 61 72 74 73 |t-saving|s-starts|
|00002180| 27 2c 0a 60 63 61 6c 65 | 6e 64 61 72 2d 64 61 79 |',.`cale|ndar-day|
|00002190| 6c 69 67 68 74 2d 73 61 | 76 69 6e 67 73 2d 65 6e |light-sa|vings-en|
|000021a0| 64 73 27 2c 20 60 63 61 | 6c 65 6e 64 61 72 2d 64 |ds', `ca|lendar-d|
|000021b0| 61 79 6c 69 67 68 74 2d | 73 77 69 74 63 68 6f 76 |aylight-|switchov|
|000021c0| 65 72 2d 74 69 6d 65 27 | 2c 20 61 6e 64 0a 60 63 |er-time'|, and.`c|
|000021d0| 61 6c 65 6e 64 61 72 2d | 64 61 79 6c 69 67 68 74 |alendar-|daylight|
|000021e0| 2d 73 61 76 69 6e 67 73 | 2d 6f 66 66 73 65 74 27 |-savings|-offset'|
|000021f0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|00002200| 73 6f 6c 61 72 2d 73 75 | 6e 72 69 73 65 2d 73 75 |solar-su|nrise-su|
|00002210| 6e 73 65 74 20 23 5b 28 | 64 61 74 65 29 20 22 c0 |nset #[(|date) ".|
|00002220| 09 21 c2 09 21 1b 1c c5 | c6 0c 83 17 00 c7 c8 0c |.!..!...|........|
|00002230| 09 5c 22 50 82 18 00 c9 | 0b 83 25 00 ca c8 0b 09 |.\"P....|..%.....|
|00002240| 5c 22 50 82 26 00 cb cc | 0e 0d 21 24 2a 87 22 20 |\"P.&...|..!$*." |
|00002250| 5b 73 6f 6c 61 72 2d 73 | 75 6e 72 69 73 65 20 64 |[solar-s|unrise d|
|00002260| 61 74 65 20 73 6f 6c 61 | 72 2d 73 75 6e 73 65 74 |ate sola|r-sunset|
|00002270| 20 73 65 74 20 72 69 73 | 65 20 66 6f 72 6d 61 74 | set ris|e format|
|00002280| 20 22 25 73 2c 20 25 73 | 20 61 74 20 25 73 22 20 | "%s, %s| at %s" |
|00002290| 22 53 75 6e 72 69 73 65 | 20 22 20 73 6f 6c 61 72 |"Sunrise| " solar|
|000022a0| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 20 22 4e 6f |-time-st|ring "No|
|000022b0| 20 73 75 6e 72 69 73 65 | 22 20 22 73 75 6e 73 65 | sunrise|" "sunse|
|000022c0| 74 20 22 20 22 6e 6f 20 | 73 75 6e 73 65 74 22 20 |t " "no |sunset" |
|000022d0| 65 76 61 6c 20 63 61 6c | 65 6e 64 61 72 2d 6c 6f |eval cal|endar-lo|
|000022e0| 63 61 74 69 6f 6e 2d 6e | 61 6d 65 5d 20 37 20 22 |cation-n|ame] 7 "|
|000022f0| 5c 0a 53 74 72 69 6e 67 | 20 67 69 76 69 6e 67 20 |\.String| giving |
|00002300| 6c 6f 63 61 6c 20 74 69 | 6d 65 73 20 6f 66 20 73 |local ti|mes of s|
|00002310| 75 6e 72 69 73 65 20 61 | 6e 64 20 73 75 6e 73 65 |unrise a|nd sunse|
|00002320| 74 20 6f 6e 20 47 72 65 | 67 6f 72 69 61 6e 20 44 |t on Gre|gorian D|
|00002330| 41 54 45 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ATE."]).|(defalia|
|00002340| 73 20 27 73 6f 6c 61 72 | 2d 61 70 70 61 72 65 6e |s 'solar|-apparen|
|00002350| 74 2d 6c 6f 6e 67 69 74 | 75 64 65 2d 6f 66 2d 73 |t-longit|ude-of-s|
|00002360| 75 6e 20 23 5b 28 64 61 | 74 65 29 20 22 08 41 41 |un #[(da|te) ".AA|
|00002370| 40 19 08 40 1a 08 41 40 | 1b 08 41 41 40 19 0b 5c |@..@..A@|..AA@..\|
|00002380| 6e 53 c4 5f 5c 5c 1d 5c | 6e c6 56 83 43 00 0d 5c |nS._\\.\|n.V.C..\|
|00002390| 6e c7 5f c8 5c 5c c9 a5 | 5a 15 09 c7 a6 ca 55 83 |n._.\\..|Z.....U.|
|000023a0| 43 00 09 cb a6 ca 55 83 | 40 00 09 cc a6 ca 55 83 |C.....U.|@.....U.|
|000023b0| 43 00 0d 54 15 0d 2c 09 | 53 cd 5f 09 53 c7 a5 09 |C..T..,.|S._.S...|
|000023c0| 53 cb a5 5b 09 53 cc a5 | 5c 5c 5c 5c 5c 5c 5c 5c |S..[.S..|\\\\\\\\|
|000023d0| 29 ce 19 cf 1a d0 1b ce | 19 0b 5c 6e 53 c4 5f 5c |).......|..\nS._\|
|000023e0| 5c 1d 5c 6e c6 56 83 95 | 00 0d 5c 6e c7 5f c8 5c |\.\n.V..|..\n._.\|
|000023f0| 5c c9 a5 5a 15 09 c7 a6 | ca 55 83 95 00 09 cb a6 |\..Z....|.U......|
|00002400| ca 55 83 92 00 09 cc a6 | ca 55 83 95 00 0d 54 15 |.U......|.U....T.|
|00002410| 0d 2c 09 53 cd 5f 09 53 | c7 a5 09 53 cb a5 5b 09 |.,.S._.S|...S..[.|
|00002420| 53 cc a5 5c 5c 5c 5c 5c | 5c 5c 5c 29 5a d1 a5 89 |S..\\\\\|\\\)Z...|
|00002430| 1e 12 d3 5f 0e 12 89 d4 | 5f 5f d5 5c 5c 5c 5c 1e |..._....|__.\\\\.|
|00002440| 16 0e 12 d7 5f 0e 12 89 | d8 5f 5f 0e 12 89 89 d9 |...._...|.__.....|
|00002450| 5f 5f 5f da 5c 5c 5c 5c | 5c 5c 1e 1b 0e 12 dc 5f |___.\\\\|\\....._|
|00002460| 0e 12 89 dd 5f 5f de 5c | 5c 5c 5c df 0e 1b 21 5f |....__.\|\\\...!_|
|00002470| 0e 12 e0 5f e1 5c 5c df | 0e 1b 89 5c 5c 21 5f df |..._.\\.|...\\!_.|
|00002480| 0e 1b e2 5f 21 e3 5f 5c | 5c 5c 5c 1e 24 0e 16 0e |..._!._\|\\\.$...|
|00002490| 24 5c 5c 1e 25 0e 12 e6 | 5f e7 5c 5c 1e 28 0e 25 |$\\.%...|_.\\.(.%|
|000024a0| df 0e 28 21 e9 5f ea 5c | 5c 5c 5c 2e 06 87 22 20 |..(!._.\|\\\..." |
|000024b0| 5b 64 61 74 65 20 79 65 | 61 72 20 6d 6f 6e 74 68 |[date ye|ar month|
|000024c0| 20 64 61 79 20 33 31 20 | 64 61 79 2d 6f 66 2d 79 | day 31 |day-of-y|
|000024d0| 65 61 72 20 32 20 34 20 | 32 33 20 31 30 20 30 20 |ear 2 4 |23 10 0 |
|000024e0| 31 30 30 20 34 30 30 20 | 33 36 35 20 31 39 30 30 |100 400 |365 1900|
|000024f0| 20 31 20 2e 35 20 33 36 | 35 32 35 20 74 69 6d 65 | 1 .5 36|525 time|
|00002500| 20 33 36 30 30 30 2e 37 | 36 38 39 32 30 30 30 30 | 36000.7|68920000|
|00002510| 30 30 32 32 35 34 20 2e | 30 30 30 33 30 32 34 39 |002254 .|00030249|
|00002520| 39 39 39 39 39 39 39 39 | 39 39 39 39 31 31 32 20 |99999999|9999112 |
|00002530| 32 37 39 2e 36 39 36 36 | 38 30 30 30 30 30 30 30 |279.6966|80000000|
|00002540| 30 31 34 38 34 20 6c 20 | 33 35 39 39 39 2e 30 34 |01484 l |35999.04|
|00002550| 39 37 34 39 39 39 39 39 | 39 38 33 31 32 20 2d 2e |97499999|98312 -.|
|00002560| 30 30 30 31 34 39 39 39 | 39 39 39 39 39 39 39 39 |00014999|99999999|
|00002570| 39 39 39 35 35 35 39 20 | 2d 33 2e 33 30 30 30 30 |9995559 |-3.30000|
|00002580| 30 30 30 30 30 30 30 30 | 30 30 32 36 36 35 65 2d |00000000|002665e-|
|00002590| 30 30 36 20 33 35 38 2e | 34 37 35 38 32 39 39 39 |006 358.|47582999|
|000025a0| 39 39 39 39 39 37 33 35 | 35 20 6d 20 2d 2e 30 30 |99999735|5 m -.00|
|000025b0| 34 37 38 38 39 39 39 39 | 39 39 39 39 39 39 39 39 |47889999|99999999|
|000025c0| 37 30 31 36 20 2d 31 2e | 33 39 39 39 39 39 39 39 |7016 -1.|39999999|
|000025d0| 39 39 39 39 39 39 39 39 | 31 31 32 65 2d 30 30 35 |99999999|112e-005|
|000025e0| 20 31 2e 39 31 39 34 35 | 39 39 39 39 39 39 39 39 | 1.91945|99999999|
|000025f0| 39 39 39 34 34 20 73 6f | 6c 61 72 2d 73 69 6e 2d |99944 so|lar-sin-|
|00002600| 64 65 67 72 65 65 73 20 | 2d 2e 30 30 30 31 20 2e |degrees |-.0001 .|
|00002610| 30 32 30 30 39 34 30 30 | 30 30 30 30 30 30 30 30 |02009400|00000000|
|00002620| 30 32 39 37 20 33 20 2e | 30 30 30 32 39 33 30 30 |0297 3 .|00029300|
|00002630| 30 30 30 30 30 30 30 30 | 30 30 30 36 30 34 20 63 |00000000|000604 c|
|00002640| 20 4c 20 2d 31 39 33 34 | 2e 31 34 32 30 30 30 30 | L -1934|.1420000|
|00002650| 30 30 30 30 30 30 35 32 | 38 20 32 35 39 2e 31 38 |00000052|8 259.18|
|00002660| 30 30 30 30 30 30 30 30 | 30 30 30 30 36 38 32 20 |00000000|0000682 |
|00002670| 6f 6d 65 67 61 20 2d 2e | 30 30 34 37 39 30 30 30 |omega -.|00479000|
|00002680| 30 30 30 30 30 30 30 30 | 30 30 30 33 35 35 20 2d |00000000|000355 -|
|00002690| 2e 30 30 35 36 38 39 39 | 39 39 39 39 39 39 39 39 |.0056899|99999999|
|000026a0| 39 39 39 35 30 32 36 5d | 20 38 20 22 5c 0a 41 70 |9995026]| 8 "\.Ap|
|000026b0| 70 61 72 65 6e 74 20 6c | 6f 6e 67 69 74 75 64 65 |parent l|ongitude|
|000026c0| 20 6f 66 20 74 68 65 20 | 73 75 6e 20 6f 6e 20 47 | of the |sun on G|
|000026d0| 72 65 67 6f 72 69 61 6e | 20 44 41 54 45 2e 22 5d |regorian| DATE."]|
|000026e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 6f 6c |).(defal|ias 'sol|
|000026f0| 61 72 2d 65 70 68 65 6d | 65 72 69 73 2d 63 6f 72 |ar-ephem|eris-cor|
|00002700| 72 65 63 74 69 6f 6e 20 | 23 5b 28 79 65 61 72 29 |rection |#[(year)|
|00002710| 20 22 08 c1 5a c2 a5 89 | 1b c4 5f 0b 89 c5 5f 5f | "..Z...|.._...__|
|00002720| c6 5c 5c 5c 5c 29 87 22 | 20 5b 79 65 61 72 20 31 |.\\\\)."| [year 1|
|00002730| 39 30 30 20 31 30 30 2e | 30 20 54 20 31 2e 32 30 |900 100.|0 T 1.20|
|00002740| 35 33 30 30 30 30 30 30 | 30 30 30 30 30 30 33 38 |53000000|00000038|
|00002750| 20 2e 34 39 39 31 39 39 | 39 39 39 39 39 39 39 39 | .499199|99999999|
|00002760| 39 39 39 39 32 39 20 2e | 34 30 39 39 39 39 39 39 |999929 .|40999999|
|00002770| 39 39 39 39 39 39 39 39 | 36 34 34 37 5d 20 35 20 |99999999|6447] 5 |
|00002780| 22 5c 0a 44 69 66 66 65 | 72 65 6e 63 65 20 69 6e |"\.Diffe|rence in|
|00002790| 20 6d 69 6e 75 74 65 73 | 20 62 65 74 77 65 65 6e | minutes| between|
|000027a0| 20 45 70 68 65 6d 65 72 | 69 73 20 74 69 6d 65 20 | Ephemer|is time |
|000027b0| 61 6e 64 20 55 54 43 20 | 69 6e 20 59 45 41 52 2e |and UTC |in YEAR.|
|000027c0| 0a 56 61 6c 75 65 20 69 | 73 20 6f 6e 6c 79 20 61 |.Value i|s only a|
|000027d0| 6e 20 61 70 70 72 6f 78 | 69 6d 61 74 69 6f 6e 2e |n approx|imation.|
|000027e0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 73 |"]).(def|alias 's|
|000027f0| 6f 6c 61 72 2d 65 71 75 | 69 6e 6f 78 65 73 2f 73 |olar-equ|inoxes/s|
|00002800| 6f 6c 73 74 69 63 65 73 | 20 23 5b 28 6b 20 79 65 |olstices| #[(k ye|
|00002810| 61 72 29 20 22 08 c1 5f | c1 5c 5c c2 0b 45 c4 c5 |ar) ".._|.\\..E..|
|00002820| 1e 06 1e 07 1e 08 0e 06 | c9 56 83 3d 00 ca cb 0e |........|.V.=....|
|00002830| 08 21 cc 5c 22 16 07 cd | 08 ce 5f 0e 07 5a 21 cf |.!.\"...|.._..Z!.|
|00002840| 5f 16 06 0e 08 40 0e 08 | 41 40 0e 06 5c 5c 0b 45 |_....@..|A@..\\.E|
|00002850| 16 08 82 10 00 0e 08 40 | 0e 08 41 40 0e 10 d1 a5 |.......@|..A@....|
|00002860| d2 0b 21 d3 a5 5b 5c 5c | 5c 5c 0b 45 2b 87 22 20 |..!..[\\|\\.E+." |
|00002870| 5b 6b 20 33 20 32 31 20 | 79 65 61 72 20 6e 69 6c |[k 3 21 |year nil|
|00002880| 20 31 30 30 30 20 63 6f | 72 72 65 63 74 69 6f 6e | 1000 co|rrection|
|00002890| 20 61 70 70 20 64 61 74 | 65 20 31 65 2d 30 30 35 | app dat|e 1e-005|
|000028a0| 20 73 6f 6c 61 72 2d 6d | 6f 64 20 73 6f 6c 61 72 | solar-m|od solar|
|000028b0| 2d 61 70 70 61 72 65 6e | 74 2d 6c 6f 6e 67 69 74 |-apparen|t-longit|
|000028c0| 75 64 65 2d 6f 66 2d 73 | 75 6e 20 33 36 30 2e 30 |ude-of-s|un 360.0|
|000028d0| 20 73 6f 6c 61 72 2d 73 | 69 6e 2d 64 65 67 72 65 | solar-s|in-degre|
|000028e0| 65 73 20 39 30 20 35 38 | 20 63 61 6c 65 6e 64 61 |es 90 58| calenda|
|000028f0| 72 2d 74 69 6d 65 2d 7a | 6f 6e 65 20 31 34 34 30 |r-time-z|one 1440|
|00002900| 2e 30 20 73 6f 6c 61 72 | 2d 65 70 68 65 6d 65 72 |.0 solar|-ephemer|
|00002910| 69 73 2d 63 6f 72 72 65 | 63 74 69 6f 6e 20 31 34 |is-corre|ction 14|
|00002920| 34 30 2e 30 5d 20 35 20 | 22 5c 0a 44 61 74 65 20 |40.0] 5 |"\.Date |
|00002930| 6f 66 20 65 71 75 69 6e | 6f 78 2f 73 6f 6c 73 74 |of equin|ox/solst|
|00002940| 69 63 65 20 4b 20 66 6f | 72 20 59 45 41 52 2e 20 |ice K fo|r YEAR. |
|00002950| 20 4b 3d 30 2c 20 73 70 | 72 69 6e 67 20 65 71 75 | K=0, sp|ring equ|
|00002960| 69 6e 6f 78 3b 20 4b 3d | 31 2c 20 73 75 6d 6d 65 |inox; K=|1, summe|
|00002970| 72 0a 73 6f 6c 73 74 69 | 63 65 3b 20 4b 3d 32 2c |r.solsti|ce; K=2,|
|00002980| 20 66 61 6c 6c 20 65 71 | 75 69 6e 6f 78 3b 20 4b | fall eq|uinox; K|
|00002990| 3d 33 2c 20 77 69 6e 74 | 65 72 20 73 6f 6c 73 74 |=3, wint|er solst|
|000029a0| 69 63 65 2e 20 20 41 63 | 63 75 72 61 74 65 20 74 |ice.  Ac|curate t|
|000029b0| 6f 20 77 69 74 68 69 6e | 0a 73 65 76 65 72 61 6c |o within|.several|
|000029c0| 20 6d 69 6e 75 74 65 73 | 2e 22 5d 29 0a 28 64 65 | minutes|."]).(de|
|000029d0| 66 61 6c 69 61 73 20 27 | 73 75 6e 72 69 73 65 2d |falias '|sunrise-|
|000029e0| 73 75 6e 73 65 74 20 23 | 5b 28 26 6f 70 74 69 6f |sunset #|[(&optio|
|000029f0| 6e 61 6c 20 61 72 67 29 | 20 22 08 c1 57 83 15 00 |nal arg)| "..W...|
|00002a00| 5c 6e 83 12 00 0b 83 12 | 00 0c 84 15 00 c5 20 88 |\n......|...... .|
|00002a10| 08 c1 57 83 1f 00 0b 82 | 5c 22 00 c6 c7 21 1b 08 |..W.....|\"...!..|
|00002a20| c1 57 83 2d 00 5c 6e 82 | 30 00 c6 c8 21 1a 08 c1 |.W.-.\n.|0...!...|
|00002a30| 57 83 3b 00 0c 82 3e 00 | c6 c9 21 1c 08 c1 57 83 |W.;...>.|..!...W.|
|00002a40| 4a 00 0e 5c 6e 82 8b 00 | cb 1e 0c cd ce 5c 6e 89 |J..\n...|.....\n.|
|00002a50| 1e 0f d0 59 83 5d 00 0e | 0f 82 60 00 0e 0f 5b 29 |...Y.]..|..`...[)|
|00002a60| 5c 6e d0 56 83 6b 00 d1 | 82 6c 00 d2 0b 89 1e 0f |\n.V.k..|.l......|
|00002a70| d0 59 83 7a 00 0e 0f 82 | 7d 00 0e 0f 5b 29 0b d0 |.Y.z....|}...[)..|
|00002a80| 56 83 88 00 d3 82 89 00 | d4 25 29 1e 5c 6e 08 c1 |V.......|.%).\n..|
|00002a90| 57 83 98 00 0e 15 82 b3 | 00 0c d0 55 83 a2 00 d6 |W.......|...U....|
|00002aa0| 82 b3 00 0c d0 57 83 af | 00 cd d7 0c 5c 22 82 b3 |.....W..|....\"..|
|00002ab0| 00 cd d8 0c 5c 22 1e 15 | 08 c1 57 85 bd 00 0e 19 |....\"..|..W.....|
|00002ac0| 1e 19 08 c1 57 85 c7 00 | 0e 1a 1e 1a 08 db 57 83 |....W...|......W.|
|00002ad0| d4 00 dc 20 82 d6 00 dd | 20 1e 1e df 0e 1e e0 5c |... ....| ......\|
|00002ae0| 22 1e 21 e2 0e 1e 21 1e | 23 cd e4 0e 21 0e 23 23 |".!...!.|#...!.##|
|00002af0| 1e 25 e6 e0 21 1e 27 0e | 25 47 e8 20 58 83 03 01 |.%..!.'.|%G. X...|
|00002b00| e9 0e 25 21 82 26 01 ea | 90 eb 0e 21 ec 0e 23 51 |..%!.&..|...!..#Q|
|00002b10| 21 91 88 e9 ed 0e 27 83 | 23 01 0e 2e 83 1f 01 ef |!.....'.|#.......|
|00002b20| 82 24 01 f0 82 24 01 f1 | 21 21 2e 0c 87 22 20 5b |.$...$..|!!..." [|
|00002b30| 61 72 67 20 31 36 20 63 | 61 6c 65 6e 64 61 72 2d |arg 16 c|alendar-|
|00002b40| 6c 61 74 69 74 75 64 65 | 20 63 61 6c 65 6e 64 61 |latitude| calenda|
|00002b50| 72 2d 6c 6f 6e 67 69 74 | 75 64 65 20 63 61 6c 65 |r-longit|ude cale|
|00002b60| 6e 64 61 72 2d 74 69 6d | 65 2d 7a 6f 6e 65 20 73 |ndar-tim|e-zone s|
|00002b70| 6f 6c 61 72 2d 73 65 74 | 75 70 20 73 6f 6c 61 72 |olar-set|up solar|
|00002b80| 2d 67 65 74 2d 6e 75 6d | 62 65 72 20 22 45 6e 74 |-get-num|ber "Ent|
|00002b90| 65 72 20 6c 6f 6e 67 69 | 74 75 64 65 20 28 64 65 |er longi|tude (de|
|00002ba0| 63 69 6d 61 6c 20 66 72 | 61 63 74 69 6f 6e 3b 20 |cimal fr|action; |
|00002bb0| 2b 20 65 61 73 74 2c 20 | 2d 20 77 65 73 74 29 3a |+ east, |- west):|
|00002bc0| 20 22 20 22 45 6e 74 65 | 72 20 6c 61 74 69 74 75 | " "Ente|r latitu|
|00002bd0| 64 65 20 28 64 65 63 69 | 6d 61 6c 20 66 72 61 63 |de (deci|mal frac|
|00002be0| 74 69 6f 6e 3b 20 2b 20 | 6e 6f 72 74 68 2c 20 2d |tion; + |north, -|
|00002bf0| 20 73 6f 75 74 68 29 3a | 20 22 20 22 45 6e 74 65 | south):| " "Ente|
|00002c00| 72 20 64 69 66 66 65 72 | 65 6e 63 65 20 66 72 6f |r differ|ence fro|
|00002c10| 6d 20 43 6f 6f 72 64 69 | 6e 61 74 65 64 20 55 6e |m Coordi|nated Un|
|00002c20| 69 76 65 72 73 61 6c 20 | 54 69 6d 65 20 28 69 6e |iversal |Time (in|
|00002c30| 20 6d 69 6e 75 74 65 73 | 29 3a 20 22 20 63 61 6c | minutes|): " cal|
|00002c40| 65 6e 64 61 72 2d 6c 6f | 63 61 74 69 6f 6e 2d 6e |endar-lo|cation-n|
|00002c50| 61 6d 65 20 22 25 2e 31 | 66 22 20 66 6c 6f 61 74 |ame "%.1|f" float|
|00002c60| 2d 6f 75 74 70 75 74 2d | 66 6f 72 6d 61 74 20 66 |-output-|format f|
|00002c70| 6f 72 6d 61 74 20 22 25 | 73 25 73 2c 20 25 73 25 |ormat "%|s%s, %s%|
|00002c80| 73 22 20 6e 20 30 20 22 | 4e 22 20 22 53 22 20 22 |s" n 0 "|N" "S" "|
|00002c90| 45 22 20 22 57 22 20 63 | 61 6c 65 6e 64 61 72 2d |E" "W" c|alendar-|
|00002ca0| 73 74 61 6e 64 61 72 64 | 2d 74 69 6d 65 2d 7a 6f |standard|-time-zo|
|00002cb0| 6e 65 2d 6e 61 6d 65 20 | 22 55 54 43 22 20 22 55 |ne-name |"UTC" "U|
|00002cc0| 54 43 25 64 6d 69 6e 22 | 20 22 55 54 43 2b 25 64 |TC%dmin"| "UTC+%d|
|00002cd0| 6d 69 6e 22 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |min" cal|endar-da|
|00002ce0| 79 6c 69 67 68 74 2d 73 | 61 76 69 6e 67 73 2d 73 |ylight-s|avings-s|
|00002cf0| 74 61 72 74 73 20 63 61 | 6c 65 6e 64 61 72 2d 64 |tarts ca|lendar-d|
|00002d00| 61 79 6c 69 67 68 74 2d | 73 61 76 69 6e 67 73 2d |aylight-|savings-|
|00002d10| 65 6e 64 73 20 34 20 63 | 61 6c 65 6e 64 61 72 2d |ends 4 c|alendar-|
|00002d20| 63 75 72 72 65 6e 74 2d | 64 61 74 65 20 63 61 6c |current-|date cal|
|00002d30| 65 6e 64 61 72 2d 72 65 | 61 64 2d 64 61 74 65 20 |endar-re|ad-date |
|00002d40| 64 61 74 65 20 63 61 6c | 65 6e 64 61 72 2d 64 61 |date cal|endar-da|
|00002d50| 74 65 2d 73 74 72 69 6e | 67 20 74 20 64 61 74 65 |te-strin|g t date|
|00002d60| 2d 73 74 72 69 6e 67 20 | 73 6f 6c 61 72 2d 73 75 |-string |solar-su|
|00002d70| 6e 72 69 73 65 2d 73 75 | 6e 73 65 74 20 74 69 6d |nrise-su|nset tim|
|00002d80| 65 2d 73 74 72 69 6e 67 | 20 22 25 73 3a 20 25 73 |e-string| "%s: %s|
|00002d90| 22 20 6d 73 67 20 6f 6e | 65 2d 77 69 6e 64 6f 77 |" msg on|e-window|
|00002da0| 2d 70 20 6f 6e 65 2d 77 | 69 6e 64 6f 77 20 73 63 |-p one-w|indow sc|
|00002db0| 72 65 65 6e 2d 77 69 64 | 74 68 20 6d 65 73 73 61 |reen-wid|th messa|
|00002dc0| 67 65 20 22 2a 74 65 6d | 70 2a 22 20 70 72 69 6e |ge "*tem|p*" prin|
|00002dd0| 63 20 22 5c 6e 22 20 73 | 75 62 73 74 69 74 75 74 |c "\n" s|ubstitut|
|00002de0| 65 2d 63 6f 6d 6d 61 6e | 64 2d 6b 65 79 73 20 70 |e-comman|d-keys p|
|00002df0| 6f 70 2d 75 70 2d 77 69 | 6e 64 6f 77 73 20 22 54 |op-up-wi|ndows "T|
|00002e00| 79 70 65 20 5c 5c 5b 64 | 65 6c 65 74 65 2d 6f 74 |ype \\[d|elete-ot|
|00002e10| 68 65 72 2d 77 69 6e 64 | 6f 77 73 5d 20 74 6f 20 |her-wind|ows] to |
|00002e20| 72 65 6d 6f 76 65 20 74 | 65 6d 70 20 77 69 6e 64 |remove t|emp wind|
|00002e30| 6f 77 2e 22 20 22 54 79 | 70 65 20 5c 5c 5b 73 77 |ow." "Ty|pe \\[sw|
|00002e40| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 5d 20 |itch-to-|buffer] |
|00002e50| 52 45 54 20 74 6f 20 72 | 65 6d 6f 76 65 20 74 65 |RET to r|emove te|
|00002e60| 6d 70 20 77 69 6e 64 6f | 77 2e 22 20 22 54 79 70 |mp windo|w." "Typ|
|00002e70| 65 20 5c 5c 5b 73 77 69 | 74 63 68 2d 74 6f 2d 62 |e \\[swi|tch-to-b|
|00002e80| 75 66 66 65 72 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |uffer-ot|her-wind|
|00002e90| 6f 77 5d 20 52 45 54 20 | 74 6f 20 72 65 73 74 6f |ow] RET |to resto|
|00002ea0| 72 65 20 6f 6c 64 20 63 | 6f 6e 74 65 6e 74 73 20 |re old c|ontents |
|00002eb0| 6f 66 20 74 65 6d 70 20 | 77 69 6e 64 6f 77 2e 22 |of temp |window."|
|00002ec0| 5d 20 38 20 22 5c 0a 4c | 6f 63 61 6c 20 74 69 6d |] 8 "\.L|ocal tim|
|00002ed0| 65 20 6f 66 20 73 75 6e | 72 69 73 65 20 61 6e 64 |e of sun|rise and|
|00002ee0| 20 73 75 6e 73 65 74 20 | 66 6f 72 20 74 6f 64 61 | sunset |for toda|
|00002ef0| 79 2e 20 20 41 63 63 75 | 72 61 74 65 20 74 6f 20 |y.  Accu|rate to |
|00002f00| 2b 2f 2d 20 32 20 6d 69 | 6e 75 74 65 73 2e 0a 49 |+/- 2 mi|nutes..I|
|00002f10| 66 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 61 6e |f called| with an|
|00002f20| 20 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 66 69 78 | optiona|l prefix|
|00002f30| 20 61 72 67 75 6d 65 6e | 74 2c 20 70 72 6f 6d 70 | argumen|t, promp|
|00002f40| 74 73 20 66 6f 72 20 64 | 61 74 65 2e 0a 0a 49 66 |ts for d|ate...If|
|00002f50| 20 63 61 6c 6c 65 64 20 | 77 69 74 68 20 61 6e 20 | called |with an |
|00002f60| 6f 70 74 69 6f 6e 61 6c | 20 64 6f 75 62 6c 65 20 |optional| double |
|00002f70| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 2c |prefix a|rgument,|
|00002f80| 20 70 72 6f 6d 70 74 73 | 20 66 6f 72 20 6c 6f 6e | prompts| for lon|
|00002f90| 67 69 74 75 64 65 2c 0a | 6c 61 74 69 74 75 64 65 |gitude,.|latitude|
|00002fa0| 2c 20 74 69 6d 65 20 7a | 6f 6e 65 2c 20 61 6e 64 |, time z|one, and|
|00002fb0| 20 64 61 74 65 2e 0a 0a | 54 68 69 73 20 66 75 6e | date...|This fun|
|00002fc0| 63 74 69 6f 6e 20 69 73 | 20 73 75 69 74 61 62 6c |ction is| suitabl|
|00002fd0| 65 20 66 6f 72 20 65 78 | 65 63 75 74 69 6f 6e 20 |e for ex|ecution |
|00002fe0| 69 6e 20 61 20 2e 65 6d | 61 63 73 20 66 69 6c 65 |in a .em|acs file|
|00002ff0| 2e 22 20 22 70 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "p"])|.(defali|
|00003000| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 73 75 6e |as 'cale|ndar-sun|
|00003010| 72 69 73 65 2d 73 75 6e | 73 65 74 20 23 5b 6e 69 |rise-sun|set #[ni|
|00003020| 6c 20 22 08 83 0c 00 09 | 83 0c 00 5c 6e 84 0f 00 |l ".....|...\n...|
|00003030| c3 20 88 c4 c5 c6 20 86 | 19 00 c7 c8 21 21 21 87 |. .... .|....!!!.|
|00003040| 22 20 5b 63 61 6c 65 6e | 64 61 72 2d 6c 61 74 69 |" [calen|dar-lati|
|00003050| 74 75 64 65 20 63 61 6c | 65 6e 64 61 72 2d 6c 6f |tude cal|endar-lo|
|00003060| 6e 67 69 74 75 64 65 20 | 63 61 6c 65 6e 64 61 72 |ngitude |calendar|
|00003070| 2d 74 69 6d 65 2d 7a 6f | 6e 65 20 73 6f 6c 61 72 |-time-zo|ne solar|
|00003080| 2d 73 65 74 75 70 20 6d | 65 73 73 61 67 65 20 73 |-setup m|essage s|
|00003090| 6f 6c 61 72 2d 73 75 6e | 72 69 73 65 2d 73 75 6e |olar-sun|rise-sun|
|000030a0| 73 65 74 20 63 61 6c 65 | 6e 64 61 72 2d 63 75 72 |set cale|ndar-cur|
|000030b0| 73 6f 72 2d 74 6f 2d 64 | 61 74 65 20 65 72 72 6f |sor-to-d|ate erro|
|000030c0| 72 20 22 43 75 72 73 6f | 72 20 69 73 20 6e 6f 74 |r "Curso|r is not|
|000030d0| 20 6f 6e 20 61 20 64 61 | 74 65 21 22 5d 20 34 20 | on a da|te!"] 4 |
|000030e0| 22 5c 0a 4c 6f 63 61 6c | 20 74 69 6d 65 20 6f 66 |"\.Local| time of|
|000030f0| 20 73 75 6e 72 69 73 65 | 20 61 6e 64 20 73 75 6e | sunrise| and sun|
|00003100| 73 65 74 20 66 6f 72 20 | 64 61 74 65 20 75 6e 64 |set for |date und|
|00003110| 65 72 20 63 75 72 73 6f | 72 2e 0a 41 63 63 75 72 |er curso|r..Accur|
|00003120| 61 74 65 20 74 6f 20 2b | 2f 2d 20 32 20 6d 69 6e |ate to +|/- 2 min|
|00003130| 75 74 65 73 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |utes." n|il]).(de|
|00003140| 66 61 6c 69 61 73 20 27 | 64 69 61 72 79 2d 73 75 |falias '|diary-su|
|00003150| 6e 72 69 73 65 2d 73 75 | 6e 73 65 74 20 23 5b 6e |nrise-su|nset #[n|
|00003160| 69 6c 20 22 08 83 0c 00 | 09 83 0c 00 5c 6e 84 0f |il "....|....\n..|
|00003170| 00 c3 20 88 c4 0d 21 87 | 22 20 5b 63 61 6c 65 6e |.. ...!.|" [calen|
|00003180| 64 61 72 2d 6c 61 74 69 | 74 75 64 65 20 63 61 6c |dar-lati|tude cal|
|00003190| 65 6e 64 61 72 2d 6c 6f | 6e 67 69 74 75 64 65 20 |endar-lo|ngitude |
|000031a0| 63 61 6c 65 6e 64 61 72 | 2d 74 69 6d 65 2d 7a 6f |calendar|-time-zo|
|000031b0| 6e 65 20 73 6f 6c 61 72 | 2d 73 65 74 75 70 20 73 |ne solar|-setup s|
|000031c0| 6f 6c 61 72 2d 73 75 6e | 72 69 73 65 2d 73 75 6e |olar-sun|rise-sun|
|000031d0| 73 65 74 20 64 61 74 65 | 5d 20 32 20 22 5c 0a 4c |set date|] 2 "\.L|
|000031e0| 6f 63 61 6c 20 74 69 6d | 65 20 6f 66 20 73 75 6e |ocal tim|e of sun|
|000031f0| 72 69 73 65 20 61 6e 64 | 20 73 75 6e 73 65 74 20 |rise and| sunset |
|00003200| 61 73 20 61 20 64 69 61 | 72 79 20 65 6e 74 72 79 |as a dia|ry entry|
|00003210| 2e 0a 41 63 63 75 72 61 | 74 65 20 74 6f 20 2b 2f |..Accura|te to +/|
|00003220| 2d 20 32 20 6d 69 6e 75 | 74 65 73 2e 22 5d 29 0a |- 2 minu|tes."]).|
|00003230| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 61 72 79 |(defalia|s 'diary|
|00003240| 2d 73 61 62 62 61 74 68 | 2d 63 61 6e 64 6c 65 73 |-sabbath|-candles|
|00003250| 20 23 5b 6e 69 6c 20 22 | 08 83 0c 00 09 83 0c 00 | #[nil "|........|
|00003260| 5c 6e 84 0f 00 c3 20 88 | 0c 41 41 40 1d 0c 40 1e |\n.... .|.AA@..@.|
|00003270| 06 0c 41 40 1e 07 0c 41 | 41 40 1d 0e 07 0e 06 53 |..A@...A|A@.....S|
|00003280| c8 5f 5c 5c 1e 09 0e 06 | ca 56 83 5d 00 0e 09 0e |._\\....|.V.]....|
|00003290| 06 cb 5f cc 5c 5c cd a5 | 5a 16 09 0d cb a6 ce 55 |.._.\\..|Z......U|
|000032a0| 83 5d 00 0d cf a6 ce 55 | 83 58 00 0d d0 a6 ce 55 |.].....U|.X.....U|
|000032b0| 83 5d 00 0e 09 54 16 09 | 0e 09 2c 0d 53 d1 5f 0d |.]...T..|..,.S._.|
|000032c0| 53 cb a5 0d 53 cf a5 5b | 0d 53 d0 a5 5c 5c 5c 5c |S...S..[|.S..\\\\|
|000032d0| 5c 5c 5c 5c 29 d2 a6 d3 | 55 85 9b 00 d4 0c 21 89 |\\\\)...|U.....!.|
|000032e0| 1e 15 85 8c 00 0e 15 d6 | d7 a5 5a 89 1e 18 85 9a |........|..Z.....|
|000032f0| 00 d9 da db 0e 18 0c 5c | 22 5c 22 2a 87 22 20 5b |.......\|"\"*." [|
|00003300| 63 61 6c 65 6e 64 61 72 | 2d 6c 61 74 69 74 75 64 |calendar|-latitud|
|00003310| 65 20 63 61 6c 65 6e 64 | 61 72 2d 6c 6f 6e 67 69 |e calend|ar-longi|
|00003320| 74 75 64 65 20 63 61 6c | 65 6e 64 61 72 2d 74 69 |tude cal|endar-ti|
|00003330| 6d 65 2d 7a 6f 6e 65 20 | 73 6f 6c 61 72 2d 73 65 |me-zone |solar-se|
|00003340| 74 75 70 20 64 61 74 65 | 20 79 65 61 72 20 6d 6f |tup date| year mo|
|00003350| 6e 74 68 20 64 61 79 20 | 33 31 20 64 61 79 2d 6f |nth day |31 day-o|
|00003360| 66 2d 79 65 61 72 20 32 | 20 34 20 32 33 20 31 30 |f-year 2| 4 23 10|
|00003370| 20 30 20 31 30 30 20 34 | 30 30 20 33 36 35 20 37 | 0 100 4|00 365 7|
|00003380| 20 35 20 73 6f 6c 61 72 | 2d 73 75 6e 73 65 74 20 | 5 solar|-sunset |
|00003390| 73 75 6e 73 65 74 20 31 | 38 2e 30 20 36 30 2e 30 |sunset 1|8.0 60.0|
|000033a0| 20 6c 69 67 68 74 20 66 | 6f 72 6d 61 74 20 22 25 | light f|ormat "%|
|000033b0| 73 20 53 61 62 62 61 74 | 68 20 63 61 6e 64 6c 65 |s Sabbat|h candle|
|000033c0| 20 6c 69 67 68 74 69 6e | 67 22 20 73 6f 6c 61 72 | lightin|g" solar|
|000033d0| 2d 74 69 6d 65 2d 73 74 | 72 69 6e 67 5d 20 37 20 |-time-st|ring] 7 |
|000033e0| 22 5c 0a 4c 6f 63 61 6c | 20 74 69 6d 65 20 6f 66 |"\.Local| time of|
|000033f0| 20 63 61 6e 64 6c 65 20 | 6c 69 67 68 74 69 6e 67 | candle |lighting|
|00003400| 20 64 69 61 72 79 20 65 | 6e 74 72 79 2d 2d 61 70 | diary e|ntry--ap|
|00003410| 70 6c 69 65 73 20 69 66 | 20 64 61 74 65 20 69 73 |plies if| date is|
|00003420| 20 61 20 46 72 69 64 61 | 79 2e 0a 4e 6f 20 64 69 | a Frida|y..No di|
|00003430| 61 72 79 20 65 6e 74 72 | 79 20 69 66 20 74 68 65 |ary entr|y if the|
|00003440| 72 65 20 69 73 20 6e 6f | 20 73 75 6e 73 65 74 20 |re is no| sunset |
|00003450| 6f 6e 20 74 68 61 74 20 | 64 61 74 65 2e 22 5d 29 |on that |date."])|
|00003460| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 73 6f 6c 61 |.(defali|as 'sola|
|00003470| 72 2d 65 71 75 69 6e 6f | 78 65 73 2d 73 6f 6c 73 |r-equino|xes-sols|
|00003480| 74 69 63 65 73 20 23 5b | 6e 69 6c 20 22 08 09 1a |tices #[|nil "...|
|00003490| 1b 5c 6e c4 5f 0b 89 c5 | a6 c6 55 83 14 00 c7 82 |.\n._...|..U.....|
|000034a0| 21 00 0b c5 a6 c8 55 83 | 20 00 c6 82 21 00 c9 c7 |!.....U.| ...!...|
|000034b0| 5c 5c 5c 5c 5c 5c 89 1e | 5c 6e c4 a6 54 13 0e 5c |\\\\\\..|\n..T..\|
|000034c0| 6e c4 a5 12 29 0e 0b 83 | 3c 00 0e 0c 82 3d 00 cd |n...)...|<....=..|
|000034d0| 1e 0c 0e 0b 85 46 00 0e | 0e 1e 0e 0e 0b 85 4f 00 |.....F..|......O.|
|000034e0| 0e 0f 1e 0f 0e 0b 83 5b | 00 0e 0b 82 5c 5c 00 c9 |.......[|....\\..|
|000034f0| 1e 0b 0b c5 a5 53 1e 10 | d1 0e 10 5c 6e 5c 22 89 |.....S..|...\n\".|
|00003500| 1e 12 41 40 89 1e 13 d4 | 0e 13 21 5a d5 5f 1e 16 |..A@....|..!Z._..|
|00003510| 0e 12 40 d4 0e 13 21 0e | 12 41 41 40 45 89 1e 12 |..@...!.|.AA@E...|
|00003520| d7 d8 0e 10 c9 55 83 97 | 00 d9 82 b5 00 0e 10 c6 |.....U..|........|
|00003530| 55 83 a2 00 da 82 b5 00 | 0e 10 c8 55 83 ad 00 db |U.......|...U....|
|00003540| 82 b5 00 0e 10 c5 55 85 | b5 00 dc dd 0e 16 0e 12 |......U.|........|
|00003550| 5c 22 23 2e 0b 44 43 87 | 22 20 5b 64 69 73 70 6c |\"#..DC.|" [displ|
|00003560| 61 79 65 64 2d 6d 6f 6e | 74 68 20 64 69 73 70 6c |ayed-mon|th displ|
|00003570| 61 79 65 64 2d 79 65 61 | 72 20 79 20 6d 20 31 32 |ayed-yea|r y m 12|
|00003580| 20 33 20 31 20 2d 31 20 | 32 20 30 20 6d 61 63 72 | 3 1 -1 |2 0 macr|
|00003590| 6f 2d 79 20 63 61 6c 65 | 6e 64 61 72 2d 74 69 6d |o-y cale|ndar-tim|
|000035a0| 65 2d 7a 6f 6e 65 20 63 | 61 6c 65 6e 64 61 72 2d |e-zone c|alendar-|
|000035b0| 73 74 61 6e 64 61 72 64 | 2d 74 69 6d 65 2d 7a 6f |standard|-time-zo|
|000035c0| 6e 65 2d 6e 61 6d 65 20 | 22 55 54 43 22 20 63 61 |ne-name |"UTC" ca|
|000035d0| 6c 65 6e 64 61 72 2d 64 | 61 79 6c 69 67 68 74 2d |lendar-d|aylight-|
|000035e0| 73 61 76 69 6e 67 73 2d | 73 74 61 72 74 73 20 63 |savings-|starts c|
|000035f0| 61 6c 65 6e 64 61 72 2d | 64 61 79 6c 69 67 68 74 |alendar-|daylight|
|00003600| 2d 73 61 76 69 6e 67 73 | 2d 65 6e 64 73 20 6b 20 |-savings|-ends k |
|00003610| 73 6f 6c 61 72 2d 65 71 | 75 69 6e 6f 78 65 73 2f |solar-eq|uinoxes/|
|00003620| 73 6f 6c 73 74 69 63 65 | 73 20 64 61 74 65 20 64 |solstice|s date d|
|00003630| 61 79 20 74 72 75 6e 63 | 61 74 65 20 32 34 20 74 |ay trunc|ate 24 t|
|00003640| 69 6d 65 20 66 6f 72 6d | 61 74 20 22 25 73 20 25 |ime form|at "%s %|
|00003650| 73 22 20 22 56 65 72 6e | 61 6c 20 45 71 75 69 6e |s" "Vern|al Equin|
|00003660| 6f 78 22 20 22 53 75 6d | 6d 65 72 20 53 6f 6c 73 |ox" "Sum|mer Sols|
|00003670| 74 69 63 65 22 20 22 46 | 61 6c 6c 20 45 71 75 69 |tice" "F|all Equi|
|00003680| 6e 6f 78 22 20 22 57 69 | 6e 74 65 72 20 53 6f 6c |nox" "Wi|nter Sol|
|00003690| 73 74 69 63 65 22 20 73 | 6f 6c 61 72 2d 74 69 6d |stice" s|olar-tim|
|000036a0| 65 2d 73 74 72 69 6e 67 | 5d 20 38 20 22 5c 0a 44 |e-string|] 8 "\.D|
|000036b0| 61 74 65 20 61 6e 64 20 | 74 69 6d 65 20 6f 66 20 |ate and |time of |
|000036c0| 65 71 75 69 6e 6f 78 65 | 73 20 61 6e 64 20 73 6f |equinoxe|s and so|
|000036d0| 6c 73 74 69 63 65 73 2c | 20 69 66 20 76 69 73 69 |lstices,| if visi|
|000036e0| 62 6c 65 20 69 6e 20 74 | 68 65 20 63 61 6c 65 6e |ble in t|he calen|
|000036f0| 64 61 72 20 77 69 6e 64 | 6f 77 2e 0a 52 65 71 75 |dar wind|ow..Requ|
|00003700| 69 72 65 73 20 66 6c 6f | 61 74 69 6e 67 20 70 6f |ires flo|ating po|
|00003710| 69 6e 74 2e 22 5d 29 0a | 28 70 72 6f 76 69 64 65 |int."]).|(provide|
|00003720| 20 28 71 75 6f 74 65 20 | 73 6f 6c 61 72 29 29 0a | (quote |solar)).|
+--------+-------------------------+-------------------------+--------+--------+