VBS XX(121)=467:YY(121)=261
VBS XX(122)=468:YY(122)=261
VBS XX(123)=469:YY(123)=261
VBS XX(124)=455:YY(124)=262
VBS XX(125)=456:YY(125)=262
VBS XX(126)=457:YY(126)=262
VBS XX(127)=458:YY(127)=262
VBS XX(128)=468:YY(128)=262
VBS XX(129)=469:YY(129)=262
VBS XX(130)=455:YY(130)=263
VBS XX(131)=456:YY(131)=263
VBS XX(132)=457:YY(132)=263
VBS XX(133)=458:YY(133)=263
VBS XX(134)=468:YY(134)=263
VBS XX(135)=469:YY(135)=263
VBS XX(136)=455:YY(136)=264
VBS XX(137)=456:YY(137)=264
VBS XX(138)=457:YY(138)=264
VBS XX(139)=458:YY(139)=264
VBS XX(140)=468:YY(140)=264
VBS XX(141)=469:YY(141)=264
VBS XX(142)=455:YY(142)=265
VBS XX(143)=456:YY(143)=265
VBS XX(144)=457:YY(144)=265
VBS XX(145)=458:YY(145)=265
VBS XX(146)=468:YY(146)=265
VBS XX(147)=469:YY(147)=265
VBS XX(148)=455:YY(148)=266
VBS XX(149)=456:YY(149)=266
VBS XX(150)=457:YY(150)=266
VBS XX(151)=458:YY(151)=266
VBS XX(152)=455:YY(152)=267
VBS XX(153)=456:YY(153)=267
VBS XX(154)=457:YY(154)=267
VBS XX(155)=458:YY(155)=267
VBS XX(156)=455:YY(156)=268
VBS XX(157)=456:YY(157)=268
VBS XX(158)=457:YY(158)=268
VBS XX(159)=458:YY(159)=268
VBS XX(160)=455:YY(160)=269
VBS XX(161)=456:YY(161)=269
VBS XX(162)=457:YY(162)=269
VBS XX(163)=458:YY(163)=269
VBS XX(164)=455:YY(164)=270
VBS XX(165)=456:YY(165)=270
VBS XX(166)=457:YY(166)=270
VBS XX(167)=458:YY(167)=270
VBS XX(168)=455:YY(168)=271
VBS XX(169)=456:YY(169)=271
VBS XX(170)=457:YY(170)=271
VBS XX(171)=458:YY(171)=271
VBS XX(172)=455:YY(172)=272
VBS XX(173)=456:YY(173)=272
VBS XX(174)=457:YY(174)=272
VBS XX(175)=458:YY(175)=272
VBS XX(176)=455:YY(176)=273
VBS XX(177)=456:YY(177)=273
VBS XX(178)=457:YY(178)=273
VBS XX(179)=458:YY(179)=273
VBS XX(180)=455:YY(180)=274
VBS XX(181)=456:YY(181)=274
VBS XX(182)=457:YY(182)=274
VBS XX(183)=458:YY(183)=274
VBS XX(184)=455:YY(184)=275
VBS XX(185)=456:YY(185)=275
VBS XX(186)=457:YY(186)=275
VBS XX(187)=458:YY(187)=275
VBS XX(188)=452:YY(188)=276
VBS XX(189)=453:YY(189)=276
VBS XX(190)=454:YY(190)=276
VBS XX(191)=455:YY(191)=276
VBS XX(192)=456:YY(192)=276
VBS XX(193)=457:YY(193)=276
VBS XX(194)=458:YY(194)=276
VBS XX(195)=459:YY(195)=276
VBS XX(196)=460:YY(196)=276
VBS XX(197)=461:YY(197)=276
Gosub 旋转
Gosub 缩小
Gosub 提取
Return F
Sub G
dim XX(350),YY(350)
VBS XX(1)=461:YY(1)=245
VBS XX(2)=462:YY(2)=245
VBS XX(3)=463:YY(3)=245
VBS XX(4)=464:YY(4)=245
VBS XX(5)=465:YY(5)=245
VBS XX(6)=459:YY(6)=246
VBS XX(7)=460:YY(7)=246
VBS XX(8)=465:YY(8)=246
VBS XX(9)=466:YY(9)=246
VBS XX(10)=467:YY(10)=246
VBS XX(11)=468:YY(11)=246
VBS XX(12)=469:YY(12)=246
VBS XX(13)=457:YY(13)=247
VBS XX(14)=458:YY(14)=247
VBS XX(15)=459:YY(15)=247
VBS XX(16)=467:YY(16)=247
VBS XX(17)=468:YY(17)=247