Weaving::TabletPerl extension for manipulating tablet weaving patterns | |
Download |
Weaving::Tablet Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Michael Houghton
- Publisher web site:
- http://search.cpan.org/~herveus/
Weaving::Tablet Tags
Weaving::Tablet Description
Perl extension for manipulating tablet weaving patterns Weaving::Tablet is a Perl module that provides data structures and routines to manipulate tablet weaving patterns. It is limited to patterns using up to eight-holed tablets with all holes threaded and that do not involve flipping tablets, and use single turns only (no turning past more than one hole).It supports an ASCII representation for persistent storage that is somewhat human readable.It provides routines to print information about the pattern in an ASCII format.SYNOPSIS use Weaving::Tablet; my $old_pattern = Weaving::Tablet::new_from_file("my_pattern"); my $new_pattern = Weaving::Tablet::new_from_scratch(20, 40); # 20 cards, 40 rows $pattern->load_pattern; # load pattern from $pattern->{file_name} $pattern->save_pattern; # write pattern to $pattern->{file_name} $pattern->color_pattern; # compute $pattern->{color} $pattern->twist_pattern; # compute $pattern->{twist} $pattern->print_twist; # print accumulated twist for pattern $pattern->print_twist(10); # print accumulated twist at row 10 $pattern->print_twist(10,20,25); # print accumulated twist at rows 10,20,25 $pattern->insert_row; $pattern->insert_card; $pattern->delete_row; $pattern->delete_card; $pattern->duplicate_row; $pattern->duplicate_card; # member functions # data retrieval $pattern->file_name $pattern->number_of_cards $pattern->number_of_rows $pattern->number_of_holes $pattern->SZ, $pattern->SZ(card) $pattern->threading, $pattern->threading(card), $pattern->threading(card,hole) $pattern->start, $pattern->start(card) $pattern->color_table, $pattern->color_table(color_index) $pattern->turns, $pattern->card_turns(card), $pattern->row_turns(row), $pattern->turns(card, row) $pattern->color, $pattern->card_color(card), $pattern->row_color(row), $pattern->color(card,row) - gives color indices $pattern->twist, $pattern->card_twist(card), $pattern->row_twist(row), $pattern->twist(card, row) $pattern->dirty # data modification $pattern->SZ(card, value), $pattern->SZ(listref_of_SZ) $pattern->threading(card, hole, color_index), $pattern->threading(card, listref_of_color_indices) $pattern->start(card, hole), $pattern->start(listref_of_holes) $pattern->color_table(color_index, color_value), $pattern->color_table(listref_of_color_values), $pattern->color_table(undef, color_value) # add new color at end $pattern->turns(card, row, turn), $pattern->card_turns(card, listref_of_turns), $pattern->row_turns(row, listref_of_turns) $pattern->dirty(value) Requirements: · Perl
Weaving::Tablet Related Software