Weaving::Tablet Perl extension for manipulating tablet weaving patterns
Download

Weaving::Tablet Ranking & Summary

Weaving::Tablet Tags

Perl module perl tablet tablet weaving weaving

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