-
Notifications
You must be signed in to change notification settings - Fork 0
/
Matheminesweeper.nb
11416 lines (11258 loc) · 560 KB
/
Matheminesweeper.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 573706, 11408]
NotebookOptionsPosition[ 559481, 11155]
NotebookOutlinePosition[ 559883, 11171]
CellTagsIndexPosition[ 559840, 11168]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[StyleBox["Graphics", "Chapter"]], "Chapter",
CellChangeTimes->{{3.7955353193448606`*^9, 3.79553532262963*^9}, {
3.7963855284283056`*^9,
3.7963855299663334`*^9}},ExpressionUUID->"f85d76d1-fec0-445a-95c4-\
711131d11a5e"],
Cell[BoxData[
RowBox[{
RowBox[{"RepeatableGraphics", "[",
RowBox[{"x_", ",", "y_", ",", "size_"}], "]"}], ":=",
RowBox[{"(*",
RowBox[{
RowBox[{
"function", " ", "to", " ", "create", " ", "a", " ", "graphic", " ", "of",
" ", "one", " ", "segment", " ", "of", " ", "the", " ", "tesselation",
RowBox[{"(",
RowBox[{
"dodecagon", " ", "and", " ", "surrounding", " ", "hexagons", " ",
"and", " ", "squares"}], ")"}]}], ",", " ",
RowBox[{"given", " ", "an", " ",
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], " ", "coordinate", " ", "for", " ",
"the", " ",
RowBox[{"segment", "'"}], "s", " ", "center", " ", "and", " ", "the",
" ", "size", " ", "of", " ", "the", " ", "whole", " ", "board"}]}],
"*)"}], "\[IndentingNewLine]",
RowBox[{"Module", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "=",
RowBox[{"2.19", "x"}]}], ",",
RowBox[{"offsetY", "=",
RowBox[{
RowBox[{"2.53834", "y"}], "+",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"2.53834", "/", "2"}], ")"}],
RowBox[{"Abs", "[", "x", "]"}]}], ")"}]}]}], ",",
RowBox[{"colorLst", "=",
RowBox[{"If", "[",
RowBox[{
RowBox[{"board", "\[Equal]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"Table", "[",
RowBox[{"LightGray", ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"TrueQ", "@", "showMines"}], ",",
RowBox[{"colorMineLst", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}], ",",
RowBox[{"colorFlagLst", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}]}], "]"}]}],
"]"}]}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"(*",
RowBox[{
RowBox[{
"all", " ", "of", " ", "the", " ", "hard", " ", "coded", " ", "values",
" ", "are", " ", "relative", " ", "values", " ", "for", " ",
"placement", " ", "of", " ", "shapes", " ", "in", " ", "a", " ",
"single", " ", "segment"}], ",", " ",
RowBox[{"they", " ",
RowBox[{"don", "'"}], "t", " ", "need", " ", "to", " ", "be", " ",
"changed"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"central", " ", "dodecagon"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"EdgeForm", "[", "Thick", "]"}], ",",
RowBox[{"colorLst", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{"offsetX", ",", "offsetY"}], "}"}], ",", "1.04", ",", "12"}],
"]"}], ",", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{
"All", " ", "of", " ", "the", " ", "surrounding", " ", "shapes", " ",
"in", " ", "clockwise", " ", "order"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "2", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{"offsetX", ",",
RowBox[{"offsetY", "+", "1", "+",
RowBox[{"(",
RowBox[{".538344", "/", "2"}], ")"}]}]}], "}"}], ",",
RowBox[{".761333", "/", "2"}], ",", "4"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "3", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+", ".73"}], ",",
RowBox[{"offsetY", "+", "1", "+",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "4", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+", "1.095"}], ",",
RowBox[{"offsetY", "+", "0.634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".380667", ",",
RowBox[{
RowBox[{"-", "\[Pi]"}], "/", "12"}]}], "}"}], ",", "4"}], "]"}],
",", "\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "5", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+", "1.46"}], ",", "offsetY"}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "6", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+", "1.095"}], ",",
RowBox[{"offsetY", "-", "0.634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".380667", ",",
RowBox[{"\[Pi]", "/", "12"}]}], "}"}], ",", "4"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "7", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+", ".73"}], ",",
RowBox[{"offsetY", "-", "1", "-",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "8", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{"offsetX", ",",
RowBox[{"offsetY", "-", "1", "-",
RowBox[{"(",
RowBox[{".538344", "/", "2"}], ")"}]}]}], "}"}], ",",
RowBox[{".761333", "/", "2"}], ",", "4"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "9", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "-", ".73"}], ",",
RowBox[{"offsetY", "-", "1", "-",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "10", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "-", "1.095"}], ",",
RowBox[{"offsetY", "-", "0.634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".380667", ",",
RowBox[{
RowBox[{"-", "\[Pi]"}], "/", "12"}]}], "}"}], ",", "4"}], "]"}],
",", "\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "11", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "-", "1.46"}], ",", "offsetY"}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "12", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "-", "1.095"}], ",",
RowBox[{"offsetY", "+", "0.634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".380667", ",",
RowBox[{"\[Pi]", "/", "12"}]}], "}"}], ",", "4"}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"colorLst", "[",
RowBox[{"[", "13", "]"}], "]"}], ",",
RowBox[{"RegularPolygon", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "-", ".73"}], ",",
RowBox[{"offsetY", "+", "1", "+",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".53", ",",
RowBox[{"\[Pi]", "/", "2"}]}], "}"}], ",", "6"}], "]"}]}],
"\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7955346397907996`*^9, 3.7955346408855743`*^9}, {
3.7955346969904304`*^9, 3.7955348092996497`*^9}, {3.7955348500095453`*^9,
3.7955350402528563`*^9}, {3.795535097520024*^9, 3.7955352640169487`*^9},
3.795535345123804*^9, {3.7955354161956816`*^9, 3.7955354178910007`*^9}, {
3.7955358925508204`*^9, 3.7955359124739947`*^9}, {3.79553596947464*^9,
3.7955359721473713`*^9}, 3.795536288774293*^9, {3.7955363231320677`*^9,
3.7955363576370687`*^9}, {3.795536394990549*^9, 3.7955363966599827`*^9}, {
3.7955365949034605`*^9, 3.7955366851565685`*^9}, {3.7955367164714947`*^9,
3.795536760798554*^9}, {3.7955371045883665`*^9, 3.7955373686237974`*^9}, {
3.795537411086116*^9, 3.795537444027072*^9}, {3.795538248307883*^9,
3.7955382733818502`*^9}, {3.7955383367861977`*^9,
3.7955383770905657`*^9}, {3.7955384078422165`*^9, 3.795538434941738*^9}, {
3.7955386529707837`*^9, 3.7955386766181183`*^9}, {3.795538780761285*^9,
3.7955387832985215`*^9}, {3.7955390231059113`*^9, 3.795539025777221*^9}, {
3.795539080978036*^9, 3.7955390822281866`*^9}, 3.795539375383108*^9, {
3.7955400475999126`*^9, 3.7955401615733857`*^9}, {3.795540224063579*^9,
3.7955402449338694`*^9}, {3.795545901300959*^9, 3.795545921897908*^9}, {
3.7959659665398097`*^9, 3.795966145455112*^9}, {3.7959662277171507`*^9,
3.7959663029111757`*^9}, {3.797683498464216*^9, 3.797683510926322*^9}, {
3.7976838874187365`*^9, 3.7976839155415363`*^9}, {3.797684045234324*^9,
3.7976840578918934`*^9}, {3.797684965712964*^9, 3.797684967942912*^9}, {
3.7976850552804413`*^9, 3.7976850723312535`*^9}, {3.7976851459591565`*^9,
3.7976851477785215`*^9}, {3.797686311940805*^9, 3.7976864344180083`*^9}, {
3.797702876367384*^9, 3.7977028946984496`*^9}, {3.7977039049222765`*^9,
3.797703934306177*^9}, {3.79770469718717*^9, 3.7977047046872005`*^9},
3.797705316005581*^9, {3.7977167635574894`*^9, 3.7977168082665997`*^9}, {
3.7977169212880936`*^9, 3.797716923817131*^9}, {3.797717230305089*^9,
3.7977173764131727`*^9}, {3.7977175340691843`*^9,
3.7977175395587716`*^9}, {3.797718443370648*^9, 3.797718444548763*^9}, {
3.797767716553664*^9, 3.7977677177827525`*^9}, {3.797768096116979*^9,
3.7977680995617404`*^9}, {3.797961426101991*^9, 3.7979614440551233`*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"e4aacc25-8c91-4d1a-b6cf-48258bcbcba5"],
Cell[BoxData[
RowBox[{
RowBox[{"textLst", "[",
RowBox[{"x_", ",", "y_", ",", "size_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"(*",
RowBox[{
RowBox[{
"creates", " ", "a", " ", "list", " ", "of", " ", "text", " ", "objects",
" ", "and", " ", "their", " ", "coordinates", " ", "if", " ", "the",
" ", "tile", " ", "they", " ", "are", " ", "in", " ", "has", " ",
"been", " ", "opened"}], ",", " ",
RowBox[{"and", " ", "if", " ", "so"}], ",", " ",
RowBox[{
"also", " ", "attributes", " ", "a", " ", "color", " ", "to", " ", "the",
" ", "number", " ", "such", " ", "that", " ", "1", " ", "is", " ",
"blue"}], ",", " ",
RowBox[{"2", " ", "is", " ", "gree"}], ",", " ",
RowBox[{"3", " ", "is", " ", "red"}], ",", " ",
RowBox[{"4", " ", "is", " ", "crimson"}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"polar", "=",
RowBox[{"polarConv", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}]}], ",",
"coordLst", ",",
RowBox[{"graphicsLst", "=",
RowBox[{"{", "}"}]}], ",",
RowBox[{"font", "=",
RowBox[{"fontSize", "[", "size", "]"}]}], ",",
RowBox[{"(*",
RowBox[{
"this", " ", "list", " ", "holds", " ", "all", " ", "the", " ",
"local", " ", "coordinates", " ", "for", " ", "the", " ", "center",
" ", "of", " ", "tiles", " ", "in", " ", "a", " ",
"RepeatableGraphics"}], "*)"}],
RowBox[{"locLst", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"1", "+",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".73", ",",
RowBox[{"1", "+",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.095", ",", ".634586"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.46", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1.095", ",",
RowBox[{"-", ".634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{".73", ",",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", ".73"}], ",",
RowBox[{
RowBox[{"-", "1"}], "-",
RowBox[{".538344", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.095"}], ",",
RowBox[{"-", ".634586"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.46"}], ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1.095"}], ",", ".634586"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", ".73"}], ",",
RowBox[{"1", "+",
RowBox[{".538344", "/", "2"}]}]}], "}"}]}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"offsetX", "=",
RowBox[{"2.19", "x"}]}], ",",
RowBox[{"offsetY", "=",
RowBox[{
RowBox[{"2.53834", "y"}], "+",
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"2.53834", "/", "2"}], ")"}],
RowBox[{"Abs", "[", "x", "]"}]}], ")"}]}]}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"coordLst", "=",
RowBox[{"Prepend", "[",
RowBox[{
RowBox[{"northMostTile", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}], ",",
"polar"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{"(*",
RowBox[{
"adds", " ", "only", " ", "the", " ", "numbers", " ", "and", " ",
"coordinates", " ", "of", " ", "tiles", " ", "that", " ", "are", " ",
"open", " ",
RowBox[{"(",
RowBox[{
RowBox[{"meaning", " ", "they", " ", "are", " ",
RowBox[{"not", " ", "'"}],
RowBox[{"unknown", "'"}], " ", "tiles"}], ",", " ",
RowBox[{
"the", " ", "player", " ", "has", " ", "determined", " ", "them",
" ", "to", " ", "be", " ", "not", " ", "mines"}]}], ")"}]}],
"*)"}],
RowBox[{
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"getNum", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}], "\[NotEqual]", "0"}], "&&",
RowBox[{"TrueQ", "[",
RowBox[{"getOpen", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}], "]"}]}], ",",
RowBox[{"AppendTo", "[",
RowBox[{"graphicsLst", ",", "\[IndentingNewLine]",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Switch", "[",
RowBox[{
RowBox[{"getNum", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}], ",", "\[IndentingNewLine]", "1", ",", "Blue", ",",
"\[IndentingNewLine]", "2", ",", "Green", ",",
"\[IndentingNewLine]", "3", ",", "Red", ",",
"\[IndentingNewLine]", "_", ",",
RowBox[{"Darker", "[", "Red", "]"}]}], "\[IndentingNewLine]",
"]"}], ",", "\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"!",
RowBox[{"TrueQ", "@",
RowBox[{"getMine", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}]}]}], ",",
RowBox[{"Text", "[",
RowBox[{
RowBox[{"Style", "[",
RowBox[{
RowBox[{"getNum", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}], ",", "font"}], "]"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"offsetX", "+",
RowBox[{"locLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"offsetY", "+",
RowBox[{"locLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}]}], "}"}]}],
"]"}]}], "]"}]}], "}"}]}], "]"}]}], "]"}], ";"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Return", "[", "graphicsLst", "]"}]}]}], "\[IndentingNewLine]",
"]"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.797702902633396*^9, 3.7977029203105946`*^9},
3.7977029805713835`*^9, {3.797703041068261*^9, 3.7977030721915855`*^9}, {
3.7977031380282216`*^9, 3.797703148026169*^9}, {3.7977031835134144`*^9,
3.797703350009893*^9}, {3.7977037155731525`*^9, 3.797703884260292*^9}, {
3.797703996446369*^9, 3.7977040387096977`*^9}, {3.79770410020933*^9,
3.797704174832157*^9}, {3.7977042107073617`*^9, 3.7977042305603433`*^9}, {
3.797704284287345*^9, 3.7977042942383113`*^9}, {3.797704326056402*^9,
3.797704634741151*^9}, {3.7977046803742456`*^9, 3.7977046812333097`*^9}, {
3.797704831379669*^9, 3.797704862227109*^9}, {3.7977051272190175`*^9,
3.7977051273530283`*^9}, {3.7977052077240105`*^9, 3.797705290170018*^9}, {
3.797705416959812*^9, 3.7977054874860215`*^9}, {3.7977055190820017`*^9,
3.797705568055001*^9}, {3.7977096625654173`*^9, 3.797709675619378*^9}, {
3.797710076663498*^9, 3.7977100829849215`*^9}, 3.797711683021409*^9, {
3.7977119869102945`*^9, 3.7977119916542425`*^9}, {3.797712488449438*^9,
3.797712521750348*^9}, 3.797712995453705*^9, {3.7977132804579496`*^9,
3.7977133252419453`*^9}, {3.7977133632734594`*^9, 3.797713366277074*^9}, {
3.797713416652988*^9, 3.797713471895409*^9}, 3.797714168607251*^9,
3.797714548888626*^9, {3.7977146568705997`*^9, 3.797714805713004*^9}, {
3.7977159705140543`*^9, 3.797715978804422*^9}, {3.797716096500712*^9,
3.797716266667419*^9}, {3.797716312859971*^9, 3.7977164385144186`*^9}, {
3.7977166464963975`*^9, 3.797716660675716*^9}, {3.7977176951190214`*^9,
3.797717730673229*^9}, {3.7977184201872015`*^9, 3.7977184367279887`*^9}, {
3.797767496704132*^9, 3.797767517188487*^9}, {3.797768104322276*^9,
3.797768120307424*^9}, {3.7979614772071257`*^9, 3.7979614873131356`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"84c65409-e446-43c8-b425-91327b6a2173"],
Cell[BoxData[
RowBox[{
RowBox[{"colorFlagLst", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "size_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"(*",
RowBox[{
RowBox[{
"creates", " ", "a", " ", "list", " ", "that", " ", "specifies", " ",
"the", " ", "color", " ", "of", " ", "each", " ", "tile", " ", "in",
" ", "a", " ", "RepeatableGraphics", " ", "section"}], ",", " ",
RowBox[{
"LightGray", " ", "if", " ", "the", " ", "tile", " ", "has", " ", "not",
" ", "been", " ", "clicked"}], ",", " ",
RowBox[{
"White", " ", "if", " ", "it", " ", "has", " ", "been", " ", "clicked",
" ", "to", " ", "open", " ", "to", " ", "see", " ", "the", " ",
"number"}], ",", " ",
RowBox[{
"and", " ", "Red", " ", "if", " ", "the", " ", "tile", " ", "was", " ",
"marked", " ", "as", " ", "a", " ", "flag"}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"polar", "=",
RowBox[{"polarConv", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}]}], ",",
"coordLst"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"coordLst", "=",
RowBox[{"Prepend", "[",
RowBox[{
RowBox[{"northMostTile", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}], ",",
"polar"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"getFlag", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}],
",", "Red", ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"!",
RowBox[{"getOpen", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}]}], ",", "LightGray", ",", "White"}], "]"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7976852349294376`*^9, 3.797685369336759*^9}, {
3.797685428658122*^9, 3.797685463533146*^9}, 3.797685501624374*^9, {
3.7976855536452737`*^9, 3.797685604937047*^9}, {3.7976857108901234`*^9,
3.7976857114561653`*^9}, {3.7976861425470695`*^9, 3.797686142709078*^9}, {
3.7976869125807705`*^9, 3.7976869147231035`*^9}, {3.7977138226920996`*^9,
3.7977138598522024`*^9}, {3.797714259748003*^9, 3.797714389739176*^9}, {
3.7977145586369915`*^9, 3.797714640345744*^9}, {3.7977159823056364`*^9,
3.7977159870645328`*^9}, {3.797716304352476*^9, 3.7977163087073417`*^9}, {
3.7977166378798633`*^9, 3.7977166416217375`*^9}, {3.797718408884655*^9,
3.7977184133951273`*^9}, {3.7977675272390313`*^9, 3.797767537473573*^9}, {
3.7977681248860483`*^9, 3.797768129960188*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"72581321-7418-4c80-b4d9-c3061919e4e2"],
Cell[BoxData[
RowBox[{
RowBox[{"colorMineLst", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x_", ",", "y_"}], "}"}], ",", "size_"}], "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"(*",
RowBox[{
"creates", " ", "a", " ", "list", " ", "that", " ", "specifies", " ",
"the", " ", "color", " ", "of", " ", "each", " ", "mine", " ", "in", " ",
"a", " ", "RepeatableGraphics", " ", "section", " ", "as", " ", "black",
" ", "when", " ", "the", " ", "game", " ", "is", " ", "lost"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"polar", "=",
RowBox[{"polarConv", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}]}], ",",
"coordLst"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"coordLst", "=",
RowBox[{"Prepend", "[",
RowBox[{
RowBox[{"northMostTile", "[",
RowBox[{
RowBox[{"{",
RowBox[{"x", ",", "y"}], "}"}], ",", "size"}], "]"}], ",",
"polar"}], "]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"If", "[",
RowBox[{
RowBox[{"TrueQ", "@",
RowBox[{"getMine", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}]}], ",", "Black", ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"getFlag", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}], "]"}],
",", "Red", ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"!",
RowBox[{"getOpen", "[",
RowBox[{"board", "[",
RowBox[{"[",
RowBox[{
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"coordLst", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "]"}], "]"}],
"]"}]}], ",", "LightGray", ",", "White"}], "]"}]}], "]"}]}],
"]"}], ",",
RowBox[{"{",
RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}]}]}],
"\[IndentingNewLine]", "]"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.797717366782457*^9, 3.797717455359133*^9}, {
3.797717560088729*^9, 3.797717561652976*^9}, {3.797717627620245*^9,
3.797717663418182*^9}, {3.797718391959034*^9, 3.797718400227146*^9}, {
3.79776754709254*^9, 3.7977675583832164`*^9}, {3.797768132798778*^9,
3.7977681525580144`*^9}},
CellLabel->"In[4]:=",ExpressionUUID->"4a3e44a9-fcf8-4819-876e-8250293f1437"],
Cell[BoxData[
RowBox[{
RowBox[{"boardOfSize", "[", "size_", "]"}], ":=",
RowBox[{"Module", "[",
RowBox[{"(*",
RowBox[{
RowBox[{
"creates", " ", "a", " ", "board", " ", "of", " ", "a", " ", "given",
" ", "size"}], ",", " ",
RowBox[{
"where", " ", "size", " ", "is", " ", "the", " ", "number", " ", "of",
" ", "RepeatableGraphics", " ", "along", " ", "a", " ", "side", " ",
"of", " ", "the", " ", "board"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"tiles", "=",
RowBox[{"{", "}"}]}], ",",
RowBox[{"numbers", "=",
RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Table", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"AppendTo", "[",
RowBox[{"tiles", ",",
RowBox[{"RepeatableGraphics", "[",
RowBox[{"k", ",", "j", ",", "size"}], "]"}]}], "]"}], ";",
RowBox[{"(*",
RowBox[{
"The", " ", "tiles", " ", "for", " ", "the", " ", "board", " ",
"are", " ", "created", " ", "here"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"If", "[",
RowBox[{
RowBox[{"board", "\[NotEqual]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"AppendTo", "[",
RowBox[{"numbers", ",",
RowBox[{"textLst", "[",
RowBox[{"k", ",", "j", ",", "size"}], "]"}]}], "]"}]}], "]"}],
";"}], ",",
RowBox[{"{",
RowBox[{"j", ",",
RowBox[{"0", "-",
RowBox[{"(",
RowBox[{"size", "-", "1"}], ")"}]}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"(",
RowBox[{"2", "*", "size"}], ")"}], "-", "2"}], ")"}], "-",
RowBox[{"Abs", "[", "k", "]"}], "-",
RowBox[{"(",
RowBox[{"size", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",",
RowBox[{"(*",
RowBox[{
"the", " ", "numbers", " ", "to", " ", "be", " ", "displayed", " ",
"in", " ", "the", " ", "tiles", " ", "are", " ", "created", " ",
"here"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"k", ",",
RowBox[{"0", "-",
RowBox[{"(",
RowBox[{"size", "-", "1"}], ")"}]}], ",",
RowBox[{"size", "-", "1"}]}], "}"}]}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Return", "[",
RowBox[{"AppendTo", "[",
RowBox[{"tiles", ",", "numbers"}], "]"}], "]"}]}]}],
"\[IndentingNewLine]", "]"}]}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7955375712558775`*^9, 3.7955375836832523`*^9}, {
3.7955376230196047`*^9, 3.7955376290890207`*^9}, {3.7955377818366833`*^9,
3.795537800530964*^9}, {3.795539492308111*^9, 3.795539505130128*^9}, {
3.795539570381424*^9, 3.7955396055405364`*^9}, {3.7955397487036037`*^9,
3.795539764497987*^9}, {3.7955399240981193`*^9, 3.7955399352400064`*^9}, {
3.79554002549222*^9, 3.795540026537634*^9}, 3.795540202142745*^9, {
3.7955403249608965`*^9, 3.795540329385185*^9}, {3.7955404184252234`*^9,
3.7955404592330065`*^9}, {3.7955405454074802`*^9,
3.7955405495210705`*^9}, {3.7955406571567698`*^9,
3.7955406776946135`*^9}, {3.7955407517675276`*^9, 3.79554076570639*^9}, {
3.795540814442687*^9, 3.7955408145476923`*^9}, {3.795540864539592*^9,
3.7955409079175806`*^9}, {3.795541089985647*^9, 3.795541090519424*^9}, {
3.7977048855310535`*^9, 3.7977050193334556`*^9}, 3.7977138898148127`*^9, {
3.7977139983183146`*^9, 3.797714075052845*^9}, {3.797716847846286*^9,
3.797716864560493*^9}, {3.7977183516079025`*^9, 3.7977183534878798`*^9}, {
3.7977675638038626`*^9, 3.7977675659480243`*^9}, {3.7977681425688066`*^9,
3.797768143770915*^9}, {3.797962095872959*^9, 3.7979621079050617`*^9}, {
3.797964890598686*^9, 3.7979648920880857`*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"0547e3fa-beb4-45dd-8268-d1da3d4228ed"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Graphics", "@",
RowBox[{"boardOfSize", "[", "3", "]"}]}]], "Input",
CellChangeTimes->{{3.7955368417089853`*^9, 3.7955368754903793`*^9}, {
3.795537760190386*^9, 3.7955377724565077`*^9}, {3.7955409247548866`*^9,
3.7955409362688704`*^9}, {3.795541097231513*^9, 3.79554112765695*^9}, {
3.795541520027594*^9, 3.7955415201673675`*^9}, {3.7955416333685265`*^9,
3.795541633500537*^9}, {3.7955416701252537`*^9, 3.795541670297741*^9}, {
3.7955421237473755`*^9, 3.795542123846383*^9}, {3.7955421856545897`*^9,
3.7955421858166075`*^9}, {3.795542284333808*^9, 3.795542284525832*^9}, {
3.7955425409909897`*^9, 3.7955425421553164`*^9}, {3.795543066797207*^9,
3.795543066959199*^9}, {3.7955432646453323`*^9, 3.7955432647693415`*^9}, {
3.795543309645689*^9, 3.7955433096964674`*^9}, {3.795543719390436*^9,
3.795543719538237*^9}, {3.7955437700442696`*^9, 3.7955437701258984`*^9}, {
3.795948393575058*^9, 3.7959483936760654`*^9}, {3.7977141009058757`*^9,
3.797714108009766*^9}, {3.797714160501251*^9, 3.797714160599765*^9}, {
3.7977143476727457`*^9, 3.7977143477407503`*^9}, {3.797716475386089*^9,
3.797716478234786*^9}, {3.797716514058735*^9, 3.7977165169112577`*^9},
3.79771655579148*^9, {3.7977166321972632`*^9, 3.797716634018404*^9}, {
3.7977675692060833`*^9, 3.797767569275092*^9}, {3.797767661088607*^9,
3.797767675998274*^9}, {3.7977677245393853`*^9, 3.797767724658413*^9}, {
3.797768166548793*^9, 3.7977681665797944`*^9}, {3.7977744062519827`*^9,
3.7977744063089867`*^9}, {3.797781036986246*^9, 3.7977810582922673`*^9}, {
3.7977818336880608`*^9, 3.797781834075325*^9}, {3.7979398875629597`*^9,
3.7979398876269655`*^9}, {3.7979621242010655`*^9, 3.7979621277328777`*^9}},
CellLabel->
"In[483]:=",ExpressionUUID->"3fc42165-6a89-411e-9fcb-9c7229f808d6"],
Cell[BoxData[
GraphicsBox[{
{GrayLevel[0.85], EdgeForm[Thickness[Large]],
InterpretationBox[
PolygonBox[{{-4.110828193093378, -3.542902859340631}, \
{-3.6446089475659904`, -3.2737310524340093`}, {-3.375437140659369, \
-2.8075118069066214`}, {-3.375437140659369, -2.2691681930933782`}, \
{-3.6446089475659904`, -1.8029489475659906`}, {-4.110828193093377, \
-1.5337771406593688`}, {-4.6491718069066215`, -1.5337771406593688`}, \
{-5.115391052434009, -1.8029489475659903`}, {-5.3845628593406305`, \
-2.2691681930933774`}, {-5.384562859340631, -2.807511806906621}, \
{-5.11539105243401, -3.2737310524340084`}, {-4.649171806906623, \
-3.5429028593406304`}}],
RegularPolygon[{-4.38, -2.53834}, 1.04, 12]],
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-4.110828136479451, -1.5383398635205487`}, \
{-4.110828136479451, -0.999996136479451}, {-4.649171863520548, \
-0.999996136479451}, {-4.649171863520549, -1.5383398635205487`}}],
RegularPolygon[{-4.38, -1.2691679999999999`}, 0.3806665, 4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-3.65, -0.7391679999999998}, {-4.108993464005752, \
-1.0041679999999997`}, {-4.108993464005753, -1.5341679999999998`}, {-3.65, \
-1.7991679999999999`}, {-3.1910065359942474`, -1.5341680000000002`}, \
{-3.191006535994247, -1.0041680000000002`}}],
RegularPolygon[{-3.65, -1.2691679999999999`}, {0.53, Rational[1, 2] Pi},
6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.9173039134840195`, -2.002277869442041}, \
{-3.186476130557959, -1.536057913484019}, {-3.6526960865159808`, \
-1.8052301305579583`}, {-3.3835238694420413`, -2.2714500865159803`}}],
RegularPolygon[{-3.285, -1.9037539999999997`}, {
0.380667, Rational[-1, 12] Pi}, 4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.92, -2.0083399999999996`}, {-3.3789934640057524`, \
-2.2733399999999997`}, {-3.3789934640057524`, -2.8033399999999995`}, {-2.92, \
-3.06834}, {-2.4610065359942475`, -2.80334}, {-2.4610065359942475`, \
-2.27334}}],
RegularPolygon[{-2.92, -2.53834}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.9173039134840195`, -3.0744021305579587`}, \
{-3.3835238694420413`, -2.8052299134840193`}, {-3.6526960865159808`, \
-3.271449869442041}, {-3.186476130557959, -3.5406220865159805`}}],
RegularPolygon[{-3.285, -3.172926}, {0.380667, Rational[1, 12] Pi},
4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-3.65, -3.2775119999999998`}, {-4.108993464005752, \
-3.542512}, {-4.108993464005753, -4.072512}, {-3.65, -4.337512}, \
{-3.1910065359942474`, -4.072512000000001}, {-3.191006535994247, \
-3.5425120000000003`}}],
RegularPolygon[{-3.65, -3.807512}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-4.110828136479451, -4.076683863520549}, \
{-4.110828136479451, -3.538340136479451}, {-4.649171863520548, \
-3.538340136479451}, {-4.649171863520549, -4.0766838635205485`}}],
RegularPolygon[{-4.38, -3.807512}, 0.3806665, 4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-5.109999999999999, -3.2775119999999998`}, \
{-5.568993464005752, -3.542512}, {-5.568993464005752, -4.072512}, \
{-5.109999999999999, -4.337512}, {-4.651006535994247, -4.072512000000001}, \
{-4.651006535994247, -3.5425120000000003`}}],
RegularPolygon[{-5.109999999999999, -3.807512}, {
0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-5.107303913484019, -3.271449869442041}, \
{-5.3764761305579585`, -2.8052299134840193`}, {-5.84269608651598, \
-3.0744021305579587`}, {-5.573523869442041, -3.5406220865159805`}}],
RegularPolygon[{-5.475, -3.172926}, {0.380667, Rational[-1, 12] Pi},
4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-5.84, -2.0083399999999996`}, {-6.298993464005752, \
-2.2733399999999997`}, {-6.298993464005752, -2.8033399999999995`}, {-5.84, \
-3.06834}, {-5.381006535994247, -2.80334}, {-5.381006535994247, -2.27334}}],
RegularPolygon[{-5.84, -2.53834}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-5.107303913484019, -1.8052301305579586`}, \
{-5.573523869442041, -1.536057913484019}, {-5.84269608651598, \
-2.002277869442041}, {-5.3764761305579585`, -2.2714500865159803`}}],
RegularPolygon[{-5.475, -1.9037539999999997`}, {
0.380667, Rational[1, 12] Pi}, 4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-5.109999999999999, -0.7391679999999998}, \
{-5.568993464005752, -1.0041679999999997`}, {-5.568993464005752, \
-1.5341679999999998`}, {-5.109999999999999, -1.7991679999999999`}, \
{-4.651006535994247, -1.5341680000000002`}, {-4.651006535994247, \
-1.0041680000000002`}}],
RegularPolygon[{-5.109999999999999, -1.2691679999999999`}, {
0.53, Rational[1, 2] Pi}, 6]]}},
{GrayLevel[0.85], EdgeForm[Thickness[Large]],
InterpretationBox[
PolygonBox[{{-4.110828193093378, -1.004562859340631}, \
{-3.6446089475659904`, -0.7353910524340095}, {-3.375437140659369, \
-0.26917180690662174`}, {-3.375437140659369,
0.2691718069066215}, {-3.6446089475659904`,
0.7353910524340093}, {-4.110828193093377,
1.004562859340631}, {-4.6491718069066215`,
1.004562859340631}, {-5.115391052434009,
0.7353910524340095}, {-5.3845628593406305`,
0.26917180690662235`}, {-5.384562859340631, -0.2691718069066212}, \
{-5.11539105243401, -0.7353910524340087}, {-4.649171806906623, \
-1.0045628593406306`}}],
RegularPolygon[{-4.38, 0.}, 1.04, 12]],
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-4.110828136479451,
1.000000136479451}, {-4.110828136479451,
1.5383438635205489`}, {-4.649171863520548,
1.5383438635205489`}, {-4.649171863520549, 1.000000136479451}}],
RegularPolygon[{-4.38, 1.269172}, 0.3806665, 4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-3.65, 1.799172}, {-4.108993464005752,
1.534172}, {-4.108993464005753, 1.004172}, {-3.65,
0.7391719999999999}, {-3.1910065359942474`,
1.0041719999999996`}, {-3.191006535994247, 1.5341719999999996`}}],
RegularPolygon[{-3.65, 1.269172}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.9173039134840195`,
0.5360621305579587}, {-3.186476130557959,
1.0022820865159807`}, {-3.6526960865159808`,
0.7331098694420414}, {-3.3835238694420413`, 0.26688991348401925`}}],
RegularPolygon[{-3.285, 0.634586}, {0.380667, Rational[-1, 12] Pi},
4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.92, 0.53}, {-3.3789934640057524`,
0.2650000000000002}, {-3.3789934640057524`, -0.26499999999999985`}, \
{-2.92, -0.53}, {-2.4610065359942475`, -0.26500000000000024`}, \
{-2.4610065359942475`, 0.2649999999999996}}],
RegularPolygon[{-2.92, 0.}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-2.9173039134840195`, -0.5360621305579587}, \
{-3.3835238694420413`, -0.26688991348401925`}, {-3.6526960865159808`, \
-0.7331098694420413}, {-3.186476130557959, -1.0022820865159807`}}],
RegularPolygon[{-3.285, -0.634586}, {0.380667, Rational[1, 12] Pi},
4]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-3.65, -0.7391719999999999}, {-4.108993464005752, \
-1.0041719999999998`}, {-4.108993464005753, -1.5341719999999999`}, {-3.65, \
-1.799172}, {-3.1910065359942474`, -1.5341720000000003`}, \
{-3.191006535994247, -1.0041720000000003`}}],
RegularPolygon[{-3.65, -1.269172}, {0.53, Rational[1, 2] Pi}, 6]]},
{GrayLevel[0.85],
InterpretationBox[
PolygonBox[{{-4.110828136479451, -1.5383438635205489`}, \
{-4.110828136479451, -1.000000136479451}, {-4.649171863520548, \
-1.000000136479451}, {-4.649171863520549, -1.5383438635205489`}}],