VBS XX(155)=468:YY(155)=273
VBS XX(156)=469:YY(156)=273
VBS XX(157)=470:YY(157)=273
VBS XX(158)=455:YY(158)=274
VBS XX(159)=456:YY(159)=274
VBS XX(160)=457:YY(160)=274
VBS XX(161)=458:YY(161)=274
VBS XX(162)=468:YY(162)=274
VBS XX(163)=469:YY(163)=274
VBS XX(164)=455:YY(164)=275
VBS XX(165)=456:YY(165)=275
VBS XX(166)=457:YY(166)=275
VBS XX(167)=458:YY(167)=275
VBS XX(168)=459:YY(168)=275
VBS XX(169)=460:YY(169)=275
VBS XX(170)=466:YY(170)=275
VBS XX(171)=467:YY(171)=275
VBS XX(172)=468:YY(172)=275
VBS XX(173)=455:YY(173)=276
VBS XX(174)=460:YY(174)=276
VBS XX(175)=461:YY(175)=276
VBS XX(176)=462:YY(176)=276
VBS XX(177)=463:YY(177)=276
VBS XX(178)=464:YY(178)=276
VBS XX(179)=465:YY(179)=276
VBS XX(180)=466:YY(180)=276
Gosub 旋转
Gosub 缩小
Gosub 提取
Return S
Sub T
dim XX(350),YY(350)
VBS XX(1)=454:YY(1)=245
VBS XX(2)=455:YY(2)=245
VBS XX(3)=456:YY(3)=245
VBS XX(4)=457:YY(4)=245
VBS XX(5)=458:YY(5)=245
VBS XX(6)=459:YY(6)=245
VBS XX(7)=460:YY(7)=245
VBS XX(8)=461:YY(8)=245
VBS XX(9)=462:YY(9)=245
VBS XX(10)=463:YY(10)=245
VBS XX(11)=464:YY(11)=245
VBS XX(12)=465:YY(12)=245
VBS XX(13)=466:YY(13)=245
VBS XX(14)=467:YY(14)=245
VBS XX(15)=468:YY(15)=245
VBS XX(16)=469:YY(16)=245
VBS XX(17)=470:YY(17)=245
VBS XX(18)=471:YY(18)=245
VBS XX(19)=454:YY(19)=246
VBS XX(20)=455:YY(20)=246
VBS XX(21)=456:YY(21)=246
VBS XX(22)=461:YY(22)=246
VBS XX(23)=462:YY(23)=246
VBS XX(24)=463:YY(24)=246
VBS XX(25)=464:YY(25)=246
VBS XX(26)=469:YY(26)=246
VBS XX(27)=470:YY(27)=246
VBS XX(28)=471:YY(28)=246
VBS XX(29)=454:YY(29)=247
VBS XX(30)=455:YY(30)=247
VBS XX(31)=461:YY(31)=247
VBS XX(32)=462:YY(32)=247
VBS XX(33)=463:YY(33)=247
VBS XX(34)=464:YY(34)=247
VBS XX(35)=470:YY(35)=247
VBS XX(36)=471:YY(36)=247
VBS XX(37)=472:YY(37)=247
VBS XX(38)=453:YY(38)=248
VBS XX(39)=454:YY(39)=248
VBS XX(40)=461:YY(40)=248
VBS XX(41)=462:YY(41)=248
VBS XX(42)=463:YY(42)=248
VBS XX(43)=464:YY(43)=248
VBS XX(44)=471:YY(44)=248
VBS XX(45)=472:YY(45)=248
VBS XX(46)=453:YY(46)=249
VBS XX(47)=454:YY(47)=249
VBS XX(48)=461:YY(48)=249
VBS XX(49)=462:YY(49)=249
VBS XX(50)=463:YY(50)=249
VBS XX(51)=464:YY(51)=249
VBS XX(52)=472:YY(52)=249
VBS XX(53)=453:YY(53)=250
VBS XX(54)=461:YY(54)=250
VBS XX(55)=462:YY(55)=250
VBS XX(56)=463:YY(56)=250
VBS XX(57)=464:YY(57)=250
VBS XX(58)=472:YY(58)=250
VBS XX(59)=453:YY(59)=251
VBS XX(60)=461:YY(60)=251
VBS XX(61)=462:YY(61)=251
VBS XX(62)=463:YY(62)=251
VBS XX(63)=464:YY(63)=251
VBS XX(64)=472:YY(64)=251
VBS XX(65)=461:YY(65)=252
VBS XX(66)=462:YY(66)=252
VBS XX(67)=463:YY(67)=252
VBS XX(68)=464:YY(68)=252