1 
    2 module Input where 
    3 import Interpret 
    4 import Euclid 
    5 import Params 
    6 import GeomNum 
    7 operationsBatch :: Operations 
    8 operationsBatch = [(Polygon,temp0++temp1++temp2++temp3++temp4++temp5++temp6++temp7++temp8++temp9++temp10++temp11++temp12++temp13++temp14++temp15++temp16++temp17++temp18++temp19++temp20++temp21++temp22++temp23++temp24++temp25++temp26++temp27++[]),
    9         (Quit,[])
   10         ]
   11 
   12 temp0 = [Pt 430 223,Pt 444 221,Pt 450 227,Pt 462 243,Pt 462 255,Pt 460 265,Pt 432 279,Pt 380 279,Pt 358 263,Pt 340 207]
   13 
   14 temp1 = [Pt 370 159,Pt 396 149,Pt 428 149,Pt 484 193,Pt 506 243,Pt 508 293,Pt 488 335,Pt 440 363,Pt 346 371,Pt 280 269]
   15 
   16 temp2 = [Pt 292 153,Pt 310 137,Pt 342 119,Pt 374 115,Pt 432 117,Pt 466 127,Pt 560 213,Pt 588 259,Pt 604 287,Pt 654 329]
   17 
   18 temp3 = [Pt 702 345,Pt 770 337,Pt 806 313,Pt 832 273,Pt 836 237,Pt 818 187,Pt 792 145,Pt 768 123,Pt 732 103,Pt 708 97]
   19 
   20 temp4 = [Pt 678 99,Pt 658 107,Pt 632 129,Pt 620 155,Pt 620 189,Pt 626 221,Pt 640 247,Pt 662 267,Pt 686 279,Pt 706 285]
   21 
   22 temp5 = [Pt 740 283,Pt 764 267,Pt 772 255,Pt 776 223,Pt 764 189,Pt 760 181,Pt 732 159,Pt 718 155,Pt 710 163,Pt 700 177]
   23 
   24 temp6 = [Pt 696 201,Pt 700 223,Pt 712 235,Pt 716 239,Pt 720 235,Pt 724 223,Pt 720 213,Pt 710 199,Pt 710 189,Pt 714 179]
   25 
   26 temp7 = [Pt 726 179,Pt 738 191,Pt 740 199,Pt 744 219,Pt 744 231,Pt 742 249,Pt 740 253,Pt 724 259,Pt 708 263,Pt 676 253]
   27 
   28 temp8 = [Pt 660 225,Pt 652 185,Pt 654 153,Pt 664 133,Pt 674 125,Pt 698 119,Pt 724 121,Pt 756 137,Pt 776 155,Pt 790 173]
   29 
   30 temp9 = [Pt 806 205,Pt 808 223,Pt 808 243,Pt 802 267,Pt 790 287,Pt 768 301,Pt 742 311,Pt 732 311,Pt 716 313,Pt 692 311]
   31 
   32 temp10 = [Pt 680 307,Pt 668 305,Pt 638 283,Pt 626 271,Pt 612 243,Pt 606 219,Pt 594 193,Pt 588 173,Pt 594 125,Pt 592 87]
   33 
   34 temp11 = [Pt 616 59,Pt 640 51,Pt 634 47,Pt 606 39,Pt 552 41,Pt 564 49,Pt 566 55,Pt 560 59,Pt 554 61,Pt 524 61]
   35 
   36 temp12 = [Pt 508 57,Pt 506 49,Pt 502 43,Pt 486 39,Pt 486 59,Pt 496 71,Pt 490 75,Pt 466 71,Pt 448 59,Pt 440 69]
   37 
   38 temp13 = [Pt 446 81,Pt 430 77,Pt 400 61,Pt 394 61,Pt 410 91,Pt 360 67,Pt 334 49,Pt 358 83,Pt 312 61,Pt 292 49]
   39 
   40 temp14 = [Pt 316 85,Pt 274 67,Pt 242 45,Pt 280 103,Pt 218 57,Pt 240 89,Pt 250 115,Pt 188 79,Pt 226 141,Pt 198 119]
   41 
   42 temp15 = [Pt 228 169,Pt 162 125,Pt 174 165,Pt 204 223,Pt 230 283,Pt 160 233,Pt 184 269,Pt 204 293,Pt 240 341,Pt 208 317]
   43 
   44 temp16 = [Pt 190 301,Pt 214 339,Pt 254 385,Pt 194 355,Pt 204 373,Pt 248 415,Pt 214 401,Pt 198 403,Pt 238 437,Pt 266 459]
   45 
   46 temp17 = [Pt 284 411,Pt 266 349,Pt 266 335,Pt 324 383,Pt 354 421,Pt 380 441,Pt 386 443,Pt 386 405,Pt 428 429,Pt 440 435]
   47 
   48 temp18 = [Pt 444 407,Pt 492 435,Pt 486 397,Pt 520 421,Pt 512 389,Pt 528 403,Pt 526 387,Pt 584 401,Pt 590 397,Pt 606 405]
   49 
   50 temp19 = [Pt 624 413,Pt 654 419,Pt 672 417,Pt 682 427,Pt 674 441,Pt 646 437,Pt 630 425,Pt 608 435,Pt 576 443,Pt 562 453]
   51 
   52 temp20 = [Pt 544 469,Pt 560 475,Pt 578 473,Pt 618 471,Pt 632 469,Pt 686 459,Pt 706 461,Pt 752 439,Pt 772 419,Pt 800 399]
   53 
   54 temp21 = [Pt 790 373,Pt 780 363,Pt 764 389,Pt 756 397,Pt 748 401,Pt 700 397,Pt 680 387,Pt 656 377,Pt 626 363,Pt 594 335]
   55 
   56 temp22 = [Pt 574 307,Pt 560 283,Pt 554 269,Pt 544 251,Pt 536 239,Pt 524 219,Pt 512 203,Pt 502 187,Pt 494 177,Pt 484 165]
   57 
   58 temp23 = [Pt 472 157,Pt 458 149,Pt 442 143,Pt 428 135,Pt 422 131,Pt 414 131,Pt 390 135,Pt 364 137,Pt 364 137,Pt 328 159]
   59 
   60 temp24 = [Pt 328 159,Pt 312 193,Pt 314 217,Pt 320 241,Pt 328 267,Pt 340 295,Pt 358 317,Pt 368 321,Pt 394 327,Pt 436 307]
   61 
   62 temp25 = [Pt 458 295,Pt 472 285,Pt 480 277,Pt 484 263,Pt 480 239,Pt 472 219,Pt 468 209,Pt 454 197,Pt 422 177,Pt 418 177]
   63 
   64 temp26 = [Pt 406 183,Pt 388 199,Pt 378 215,Pt 378 231,Pt 386 251,Pt 404 257,Pt 408 255,Pt 420 251,Pt 420 241,Pt 410 233]
   65 
   66 temp27 = [Pt 402 231,Pt 394 207,Pt 398 197,Pt 402 197,Pt 418 205,Pt 426 213,Pt 428 217]
   67