VBS XX(172)=456:YY(172)=270
    VBS XX(173)=457:YY(173)=270
    VBS XX(174)=458:YY(174)=270
    VBS XX(175)=459:YY(175)=270
    VBS XX(176)=464:YY(176)=270
    VBS XX(177)=465:YY(177)=270
    VBS XX(178)=466:YY(178)=270
    VBS XX(179)=470:YY(179)=270
    VBS XX(180)=471:YY(180)=270
    VBS XX(181)=472:YY(181)=270
    VBS XX(182)=455:YY(182)=271
    VBS XX(183)=456:YY(183)=271
    VBS XX(184)=457:YY(184)=271
    VBS XX(185)=458:YY(185)=271
    VBS XX(186)=459:YY(186)=271
    VBS XX(187)=465:YY(187)=271
    VBS XX(188)=466:YY(188)=271
    VBS XX(189)=467:YY(189)=271
    VBS XX(190)=470:YY(190)=271
    VBS XX(191)=471:YY(191)=271
    VBS XX(192)=472:YY(192)=271
    VBS XX(193)=456:YY(193)=272
    VBS XX(194)=457:YY(194)=272
    VBS XX(195)=458:YY(195)=272
    VBS XX(196)=459:YY(196)=272
    VBS XX(197)=465:YY(197)=272
    VBS XX(198)=466:YY(198)=272
    VBS XX(199)=467:YY(199)=272
    VBS XX(200)=469:YY(200)=272
    VBS XX(201)=470:YY(201)=272
    VBS XX(202)=471:YY(202)=272
    VBS XX(203)=457:YY(203)=273
    VBS XX(204)=458:YY(204)=273
    VBS XX(205)=459:YY(205)=273
    VBS XX(206)=465:YY(206)=273
    VBS XX(207)=466:YY(207)=273
    VBS XX(208)=467:YY(208)=273
    VBS XX(209)=468:YY(209)=273
    VBS XX(210)=469:YY(210)=273
    VBS XX(211)=470:YY(211)=273
    VBS XX(212)=458:YY(212)=274
    VBS XX(213)=459:YY(213)=274
    VBS XX(214)=466:YY(214)=274
    VBS XX(215)=467:YY(215)=274
    VBS XX(216)=468:YY(216)=274
    VBS XX(217)=469:YY(217)=274
    VBS XX(218)=459:YY(218)=275
    VBS XX(219)=460:YY(219)=275
    VBS XX(220)=461:YY(220)=275
    VBS XX(221)=466:YY(221)=275
    VBS XX(222)=467:YY(222)=275
    VBS XX(223)=468:YY(223)=275
    VBS XX(224)=461:YY(224)=276
    VBS XX(225)=462:YY(225)=276
    VBS XX(226)=463:YY(226)=276
    VBS XX(227)=464:YY(227)=276
    VBS XX(228)=465:YY(228)=276
    VBS XX(229)=466:YY(229)=276
    VBS XX(230)=467:YY(230)=276
    VBS XX(231)=468:YY(231)=276
    VBS XX(232)=467:YY(232)=277
    VBS XX(233)=468:YY(233)=277
    VBS XX(234)=469:YY(234)=277
    VBS XX(235)=472:YY(235)=277
    VBS XX(236)=467:YY(236)=278
    VBS XX(237)=468:YY(237)=278
    VBS XX(238)=469:YY(238)=278
    VBS XX(239)=470:YY(239)=278
    VBS XX(240)=471:YY(240)=278
    VBS XX(241)=472:YY(241)=278
    VBS XX(242)=467:YY(242)=279
    VBS XX(243)=468:YY(243)=279
    VBS XX(244)=469:YY(244)=279
    VBS XX(245)=470:YY(245)=279
    VBS XX(246)=471:YY(246)=279
    VBS XX(247)=468:YY(247)=280
    VBS XX(248)=469:YY(248)=280
    VBS XX(249)=470:YY(249)=280
    Gosub 旋转
    Gosub 缩小
    Gosub 提取
Return Q
Sub R
    dim XX(350),YY(350)
    VBS XX(1)=452:YY(1)=245
    VBS XX(2)=453:YY(2)=245
    VBS XX(3)=454:YY(3)=245
    VBS XX(4)=455:YY(4)=245
    VBS XX(5)=456:YY(5)=245
    VBS XX(6)=457:YY(6)=245
    VBS XX(7)=458:YY(7)=245
    VBS XX(8)=459:YY(8)=245
    VBS XX(9)=460:YY(9)=245
    VBS XX(10)=461:YY(10)=245
    VBS XX(11)=462:YY(11)=245
    VBS XX(12)=463:YY(12)=245
    VBS XX(13)=464:YY(13)=245
    VBS XX(14)=465:YY(14)=245
    VBS XX(15)=466:YY(15)=245
    VBS XX(16)=455:YY(16)=246