home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t191 / 1.img / 2DMISC.ZIP / ABODICE.MSY < prev    next >
Encoding:
Text File  |  1988-06-01  |  4.1 KB  |  265 lines
  1. ! START POINT WILL BE THE TOP LEFT OF THE PATTERN
  2. ! NOTE ALL BLOCK  MEASUREMENTS TO BE IN MMS.
  3. !!
  4. !!
  5. ! CHOOSE A PATTERN SIZE ?******RANGE 8-26
  6. %DEFAULT=8
  7. SIZE
  8. X=0
  9. %IF;SIZE=8;%%PLOT
  10. %IF;SIZE=10;%%TEN
  11. %IF;SIZE=12;%%TWELVE
  12. %IF;SIZE=14;%%FOURT
  13. %IF;SIZE=16;%%SIXT
  14. %IF;SIZE=18;%%EIGHT
  15. %IF;SIZE=20;%%TWENTY
  16. %IF;SIZE=22;%%TWENTO
  17. %IF;SIZE=24;%%TWENTF
  18. %IF;SIZE=26;%%TWENTS
  19. %%TEN
  20. X=2.5
  21. %IF;SIZE=10;%%PLOT
  22. %%TWELVE
  23. X=5
  24. %IF;SIZE=12;%%PLOT
  25. %%FOURT
  26. X=7.5
  27. %IF;SIZE=14;%%PLOT
  28. %%SIXT
  29. X=10
  30. %IF;SIZE=16;%%PLOT
  31. %%EIGHT
  32. X=12.5
  33. %IF;SIZE=18;%%PLOT
  34. %%TWENTY
  35. X=15
  36. %IF;SIZE=20;%%PLOT
  37. %%TWENTO
  38. X=17.5
  39. %IF;SIZE=22;%%PLOT
  40. %%TWENTF
  41. X=20
  42. %IF;SIZE=24;%%PLOT
  43. %%TWENTS
  44. X=22.5
  45. %%PLOT
  46. B=800+16*X
  47. BW=324+4*X
  48. C=298+56*X/10
  49. SH=117.5+X
  50. N=67.5+X
  51. D=58+24*X/10
  52. A=375+6*X
  53. NW=385+2*X
  54. AD=200+2*X
  55. WH=210+X
  56. T=248+56*X/10
  57. WR=150+2*X
  58. S=557.5+3*X
  59. ! CHOOSE A PEN NUMBER?
  60. %DEFAULT=0
  61. NUMBER
  62. %DEFAULT=B
  63. ! BUST MEASUREMENT?
  64. BUST
  65. %DEFAULT=NW
  66. ! NAPE TO WAIST MEASUREMENT?
  67. NAPE
  68. %DEFAULT=WH
  69. ! WAIST TO HIP?
  70. WAIST
  71. %DEFAULT=AD
  72. ! ARMHOLE DEPTH?
  73. ARM
  74. %default=N
  75. ! NECK WIDTH?
  76. NECK
  77. %DEFAULT=SH
  78. SHOULDER
  79. %DEFAULT=BW
  80. ! BACK WIDTH?
  81. BACK
  82. %DEFAULT=D
  83. DART
  84. %DEFAULT=C
  85. CHEST
  86. %PEN=NUMBER
  87. %STYLE=1
  88. #1=0.0,0.0
  89. #2=,-(ARM+15)
  90. #3=BUST/2+50,
  91. #4=,0.0
  92. #5=0.0,-(NAPE+15)
  93. #6=BUST/2+50,
  94. #7=0.0,#5.2-WAIST
  95. #8=BUST/2+50,
  96. #9=0.0,-15
  97. #10=NECK,0.0
  98. #11=0.0,-50
  99. #12=#10.1+SQRT((SHOULDER+1)^2-(50)^2),
  100. #13=#12.1/2,-25
  101. #14=117.743,-70.523
  102. #15=#2.1+back/2+5,#2.2
  103. #16=,#15.2-(#2.2-#11.2)/2
  104. #17=#2.1+(#15.1-#2.1)/2,#2.2
  105. #18=#17.1,#5.2
  106. #19=#17.1,#7.2
  107. #20=#4.1-(NECK-5),0.0
  108. #21=#4.1,-65
  109. #22=#3.1-(CHEST/4+DART/4),#3.2
  110. #23=#22.1,#6.2
  111. #24=#22.1,#8.2
  112. #25=,#22.2-25
  113. #26=#20.1-DART,#4.2
  114. #27=#12.1,#12.2-15
  115. #28=#12.1+100,
  116. #29=#26.1-SQRT((SHOULDER)^2-(65)^2),#26.2-65
  117. #30=#3.1-(CHEST/2+DART/2),#3.2
  118. #31=,#30.2+50
  119. #32=(#30.1-#15.1)/2+#15.1(#15.1-#2.1)/2#17.┘Q
  120. %IF;SIEFAULÇ,-(/2),#3.2
  121. #31=,#
  122. #11=W
  123. öú2+TÄLT#
  124. #11=W
  125. öú2+TÄFOUDAR8=#12.1+100,
  126.  
  127. #11=),0.╞£xß
  128. SIÅqöú2+TÄ  5.
  129. #EFAHUíφ#111=7. 55,#1#2.6 íφ#
  130. #21IEF#12#21Iqöú20,OS7EFAH6,#13;SIZE20TÄ+TR80,7-65_
  131. #92
  132. 165_
  133. #265_
  134. #565_
  135. #765_
  136. #1965_
  137. ##165_
  138. #2165_
  139. #865_
  140. #665_
  141. ##65_
  142. #2165@
  143. ##(#1512#2165_
  144. #212#2565_
  145. #2665_
  146. # í@
  147. #412#21,# í@
  148. #4#4.3#4.3165@
  149. #.2-2.14.3#65@
  150. #.4HOUL-2.165_
  151. #1#4.3865_
  152. #1165_
  153. #3965_
  154. #NUMB@
  155. ##7-#92
  156. 7.┘Q
  157. #32#3.2
  158. 2#3303LOT
  159. SYM800+1765%ERI5
  160. SYM=FRONT.┘Q
  161. #365
  162. #265
  163. 303LOT
  164. ERI5
  165. SYM=PEN=NUM15)
  166. #3=BU+1ST/2+50,
  167. 265_
  168. #1SHOUL65_
  169. #765_
  170. #2865_
  171. #3LOT_
  172. ##65_
  173. #2,#3LOT_
  174. #15-2.165_
  175. #5-2165_
  176. #17-#1965_
  177. ##2,#3165_
  178. #2#4.1165!CONT**UE
  179. CHST=00,E
  180. %! CHOOSF;SIY
  181. S[1]SI!![2]#1=0.0,0.0
  182. 1STCONT**UEOT
  183. B=CONT**UE=
  184. %%5) WID!!
  185. :-00,E
  186. %! CHOOSALL BLOCD8;MEEDNT
  187. %RBLODIC%! CHOOlt=N
  188. ! NECKWIDH?
  189. NECKHIP?
  190. WAIST FAULT=
  191. NEC WIDTH?
  192. BACWID00,E
  193. %!0,%%ST=WAISREPTHFAU00,E
  194. % WIDTH?
  195. BAT.┘!EASULT=KHIP?
  196. WAIST FAUEASLT=SH#5
  197. #20
  198. #21)/2#LT=
  199. NEC/,
  200.  
  201. 53#2.1)/2#LT=
  202. NEC/6
  203.  
  204. 54=),#3.+4HO51(#15.55
  205. #20
  206. #21)/2#LT=
  207. NEC/1#15.5SQR523.1-(CHES,#6/2),#LT=
  208. NEC/42
  209. #3151-(NEC5#30
  210. N.1-(CHES,11/2),#LT=
  211. NEC/62
  212. #3151(#15.61
  213. #20
  214. 25
  215. #1466/2),#LT=
  216. NEC/1#2
  217. #313ÄFO6
  218. #5#N.1-(CHES8#15/2),#LT=
  219. NEC/62
  220. #313ÄFO6330
  221. N.3155
  222. 3000,E
  223. % WO64=)6=#20.11(#15.65
  224. #61#20.11(#15M15)
  225. #3=BU+2ST/2+50,
  226. 265_
  227. #640.1165_
  228. #6565_
  229. #6#4.5965_
  230. #5765_
  231. #5565_
  232. #6115M15)
  233. #3=BU+3ST/2+50,
  234. #44*AROOW
  235. SS=#15.66=)6=#2-
  236. AD80.11-(+111(#15.67
  237. #5#N.+131 4.59
  238. 308410015.68
  239. #55#2-1=),14.55#304115.69
  240. #61#2038= 4.61#2#19
  241. 3715
  242. 0
  243. #64N.+7EF014.64N2#2#115.71
  244. #65#208#154.6#330379SIZE@
  245. #614.6#4.5965@
  246. #6 4.574.5965@
  247. #684.55,#5765@
  248. #694.55,#6165@
  249. #70,#640.1165@
  250. #720.150.1165_
  251. #6#4.6465_
  252. #61,#6565Q
  253. #332=(#212#32=304LOT
  254. ERI5
  255. SYM=00,E
  256. % WULDAIY2+ 
  257. WQUI
  258. W
  259. !!
  260. 0.1-*****ARS
  261. SIZE
  262. X? WULY
  263. S[1],!![2]#1=0.0,0.0
  264. 1ST!!
  265. 0.1-OT
  266. B=!!
  267. 0.1-=
  268. %%5) WI%%
  269. W15AT.┘MO
  270. W=-1.E18 WUL**DICATE
  271. CHST=TO BC
  272. SO
  273.  5A0. 5) NTS TO BL**E 
  274. WQUI
  275. **G TO B!!
  276. 0. WUL%D.B!!=( (REMENMOS
  277. ! NOTE/2+%%PT NOTE65Q
  278. T#0 WUL%NOTE !!=2 (RX=15NMOS
  279. ! NOTE/2+%%PT NOTE65QBT#0 WUL**DICATE
  280. TO BEOSHSION FO
  281.  TO B!!
  282. 0.30IST
  283. W
  284. 0,ZEON/2+%%PT NOTE65QCT#0 W*X-(CHESQBIEFAA.1/2)+SQBI2FAA.#2
  285. #298+SQBIEFAA.1/*5/ WIY=SQBI2FAA.#2*5/ WI#*XQCN.+X,QCN)+Y#44*AROOW
  286. SS=165_
  287. #C,Q WIM1=SQBI2FAA.#2/SQBIEFAA.1/WIM2=-1/MUíφE.1=SFAA.#+QCN)+MU*AA.1+QCN1/MU2/SM.+1/MU2íφE.2=MU*(φE.1FAA.1/+AA.#65_
  288. #C,Q% WOF=φE.1+X,QEN)+Y#4_
  289. #D,QF WULMO
  290. W
  291. !!
  292. 0.1-*
  293. WQUI
  294. WD?..Y
  295. S[1],!![2]#1=0.