keystone_waistcoat.pattern

-label("Waistcoat\n%name\n%date")
body($back_length $front_length_to_side $blade $under_arm $breast $waist $bottom_of_front) ->
    @A = $breast/2 right of @origin,
    @M = @origin,

    |top = @A to @origin,
    @V = 0.75 inch down from @A,
    @C = $back_length * 1 down from @V,
    @B = $under_arm * 1 up from @C,
    @D = 1.5 inch down from @C,
    |back = @A to @D,
    @2 = 1.5 inch  left from @C,
    @Z = 0.75 inch left from @B, %% CHECK THIS
    @F = $blade * 1 left of @Z,
    @F1 = 0.5 inch up from @F,
    @W = $breast/2 left from @D,
    @L = $breast/2 left from @C,
    @N = $breast/2 left from @B,
    @E = $blade/4 right from @F, %% CHECK This
    @A1 = 0.75 inch left from @A,
    @X = $blade * 0.75 left from @A1,
    @H = midpoint @X @E,
    @H1 = 0.1 inch right from @H
    @T = midpoint @H @X,
    @P = $blade/8 left of @A,
    @R = midpoint @H @T,
    |back_sholder = @P to @R,

    @K = $breast/2 left of @Z,
    @N1 = 0.25 inch left from @K,
    @10 = midpoint @N1 @F,
    |sholder_guide = @10 up to |top,
    @O = intersection of |top and |sholder_guide,
    |neck_guide = @M to @O,
    @U = length |neck_guide down from @M,

    @Q = midpoint @O @T,
%    @S = 1.5 inch right from @R on |back_sholder,
    @7 = midpoint @B @N,
    |waist = @C to @L,
    |bottom = @D to @W,
    @11 = 0.5 inch right from @10,
    |front_dart_guide = @11 down to |waist,
    @11B = intersection of |front_dart_guide and |waist,
    @14 = 1.5 inch left of @11B,
    |front_dart_center = @14 to @11,
    @15 = $breast/4 - $waist/4 left of @14,
    @16 = $breast/4 - $waist/4 right of @14,
    |front_dart = curve @15 @11 @16,
    |front_sholder = @Q to @O,

    |front_neck = curve @O @U,


    |front = @M to @W,
    |breast = @B to @N,
    |front_arm = @E up to |top,
    |back_arm  = @F up to |top,
    |back_center = @7 down to |bottom,
    |back_neck = curve @V @P,

    |back_arm = curve @R @H1 @7 @F1 @Q,
    |back_center = @V to @2,
    |breast = curve @U @N1 @L @W,




    .