Costume::Doublet - Perl extension for to make a base pattern for an Elizabethan doublet


  use Costume::Doublet;
  Costume::Doublet::make_pattern(chest      => 46,
                                waist       => 40,
                                back_length => 23,
                                shoulder     => 6.75,
                                front_width => 15.75,
                                back_width  => 17,
                                unit        => "inch",
                                name        => "Zach Kessin",
                                output      => "pattern.png");

  This module takes a set of measurements and will output a pattern for
  a man's doublet. The measurements are taken from "The costume technician's handbook" 


 The measurements needed are around the 
    around the waist, 
    The length of the back from neck to waist
    the length of the shoulder from base of the neck to the top of the shoulder (its very easy to make this too long
    the width of the front (taken  at the midpoint of the arm joint, about where a tank top would stop)
    The width of the back  ibid.
 Unit should be "inch" or "cm" 
 name is the name of the person for whom the pattern is for. 
 output is a filename to output.

Sewing notes the pattern does not include seam allowance.

 Making a mock up out of cheap fabric is recomeneded.

 For a more authentic garment ajustment of seam placement may be needed. 

 The sleave cap (shown in green) should be a curve. That will i hope
 be in a future version of the software.


Necessary books are the "Costume Technician's Handbook" by Rosemary InghamLiz Covey as well as "Pattern's of fashion" and others


Zachary Kessin, <>


Copyright (C) 2004 by Zachary Kessin

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.1 or, at your option, any later version of Perl 5 you may have available.

If you actually make stuff from the patterns I would love to see pictures!