Největší české fórum o strojírenství, CNC strojích a 3D tiskárnách
https://forum.strojirenstvi.cz/
, nevíte někdo o nějaké staré vyšívací mašině ? Kód: Vybrat vše
#!/usr/bin/perl
use strict;
use warnings;
open(IN, "<", $ARGV[0]) or die "Can't open file $ARGV[0] : $!";
binmode(IN);
my $header;
read(IN, $header, 512)==512 or die "Short read when reading header: $!";
while( $header =~ /(.{2}):(\+|-|)? *(.*?) *(?:\x0d|(?=.{2}:))/sg ) {
# print "$1 = $2$3\n";
}
if ( $header !~ /\x1a? *$/ ) {
warn "Junk after data in file header";
}
sub decode_stich {
my($t)=@_;
my ($x,$y,$flag)=(0.0,0.0,0);
my $v=unpack("N", "\0".$t);
if( $v == 243 ) { return 0,0,"E" };
# 000000001111111122222222
# 765432107654321076543210
if($v & 0b000000000000000000000100) {$x+=8.1};
if($v & 0b000000000000000000001000) {$x-=8.1};
if($v & 0b000000000000010000000000) {$x+=2.7};
if($v & 0b000000000000100000000000) {$x-=2.7};
if($v & 0b000001000000000000000000) {$x+=.9};
if($v & 0b000010000000000000000000) {$x-=.9};
if($v & 0b000000000000000100000000) {$x+=.3};
if($v & 0b000000000000001000000000) {$x-=.3};
if($v & 0b000000010000000000000000) {$x+=.1};
if($v & 0b000000100000000000000000) {$x-=.1};
# 000000001111111122222222
# 765432107654321076543210
if($v & 0b000000000000000000100000) {$y+=8.1};
if($v & 0b000000000000000000010000) {$y-=8.1};
if($v & 0b000000000010000000000000) {$y+=2.7};
if($v & 0b000000000001000000000000) {$y-=2.7};
if($v & 0b001000000000000000000000) {$y+=.9};
if($v & 0b000100000000000000000000) {$y-=.9};
if($v & 0b000000001000000000000000) {$y+=.3};
if($v & 0b000000000100000000000000) {$y-=.3};
if($v & 0b100000000000000000000000) {$y+=.1};
if($v & 0b010000000000000000000000) {$y-=.1};
if (($v & 0b11000011)==0b00000011) {$flag="N";} # normal
elsif(($v & 0b11000011)==0b10000011) {$flag="J";} # jump
elsif(($v & 0b11000011)==0b11000011) {$flag="T";} # stop
else {$flag="U";}
return ($x,$y,$flag);
}
printf("G21 G91\n");
my ($t);
while(read(IN, $t, 3)==3) {
my($x,$y,$flag)=decode_stich($t);
printf("G01 X%+3.2f Y%+3.2f\n", $x, $y);
}
printf("M2 \n");
Kód: Vybrat vše
PROGRAM_EXTENSION = .DST,.dst Tajima embroidery
DST = dst-to-gcode.pl
dst = dst-to-gcode.pl
Proste to zkus jak jsem psal. Pres cekani na hrany a vypinani motoru, pokud se dela delsi steh. Pripadne by slo i dopocitat, jakou rychlost nastavit, aby se steh stihnul akorat. Vicemene by stacila tabulka delka otoceni podle hodnoty PWM, pripadne jeste udelat nejaky model ze zname akcelerace siciho mechanismu...josefga píše:to by bylo super ještě vyřešit jak nedávat na pohon servo nebo ho aspoň řídit Hmůstkem tak aby ho EMC nenutilo reverzovat .A bylo by po problému DC motor tam stejně chci dát optický čidlo se stínítkem není problém ale s tím EMC si furt nevím rady.
Osy X a Y nastav standardne (stepconf by to mel umet). Vlastni motor na siti bych pripojil jako PWM rizene vreteno (pres F budes moct snadno nastavit rychlost) nebo jen vystupem zapinat motor. A snimac 'jehla dole' jen pres HAL propojit s binarnimi vstupy.josefga píše:no jo ale mně se nedaří nastavit 2 osy step a dir a třetí jako servo a navíc pořád se mi to snaží tu třetí osu reverzovat tam a zpět nevím jak emc přesvědčit že se točí dokola.
Tak tady procitam ceckovy zdrojaky pro DST soubory a ani se nedivim, ze nechapes vymenu barev. DST format totiz neobsahuje informaci o prave barve, ale pouze udava v hlavicce kolikrat a pak v datech kde se barva meni. Respektive existujou rozsireny identifikatory, ktery rgb barvy udavaj, ale nevim jestli to nejaky soft pouziva. embroidermodder to napriklad umi precist, ale tyto rozsirene informace uz neuklada.........josefga píše:Jen jsem nepochopil jak fungují barvy jen signál pro stroj na výměnu a pár dalších maličkostí