>TITLE Юбка_жен_Ковальчик >PARAM @ рост = 1680 @ обхват талии = 720 @ обхват бедер = 1000 @ длина юбки = 540 >MAIN .Ty. = 500,600 |By|@.Ty.=1/8*+,-90 |Dy|@.Ty.=+,-90 |B|@.By.=1/2*(1/2*++10)-10,-180 |b1|@.By.=1/3*|By_B|,-180 |Bx|@.By.=1/2*++10,-180 |B2|@.Bx.=1/3*|Bx_B|,0 |сум|@.Ty.=1/2*+-1/2*+,0 |выт|@.сум.=1/2*+-1/2*+,0 |Tx|@.Bx.=<|By_Ty|>,<|By_Ty|> |T|@.B.=<|Bx_Tx|>,<|Bx_Tx|> |4|@.T.=((1/2*+-1/2*+)/2+10)/2,0 |5|@.T.=((1/2*+-1/2*+)/2+10)/2,-180 |6|@.4.=10,90 |7|@.5.=10,90 |1|@.B.=30,90 (6_1)=7 (1_7)=7 |1_B| |8|@.B.=<|By_Dy|>,<|By_Dy|> |B_8| |Dx|@.Bx.=<|B_8|>,<|B_8|> |Bx_Dx| |Dx_8_Dy_By_Ty| |Tx_Bx| |10|@.Tx.=<|Bx_B2|>,<|Bx_B2|> |11|@.Ty.=<|By_b1|>,<|By_b1|> |12|@.10.=((1/2*+-1/2*+)*0.5+10)*1/4*0.5,-180 |13|@.10.=((1/2*+-1/2*+)*0.5+10)*1/4*0.5,0 |14|@.11.=((1/2*+-1/2*+)*0.5+10)*0.5*0.5,-180 |15|@.11.=((1/2*+-1/2*+)*0.5+10)*0.5*0.5,0 |16|@.11.=2/3*|Ty_By|,-90 |17|@.10.=1/3*|Ty_By|,-90 |Tx_12_17_13| |Ty_15_16_14| (14_6)=2,$ (7_13)=2,$ >PIECE .ADD = Tx~Bx~Dx~8~B~1~7~13~17~12~Tx >PIECE .ADD = Dy~By~Ty~15~16~14~6~1~B~8~Dy >END