Area_Ablation_1_4301_20230202.m

Go to the documentation of this file.

 
 
d_spot = 0.011;
laenge= 0.3;
repRate = 5000;
pulsUeberlapp = 0.95;
loop=reihe;
 
xStart = 140+reihe;
yStart = 148.5;
zStart = 15;
v0=2;
 
%Errechnete Größen
spotabstand = d_spot*(1-pulsUeberlapp)
hatch = spotabstand
anzahlLinien = laenge/hatch
v1 = spotabstand*repRate
 
dauer = loop*(anzahlLinien+2)*laenge/v1/60
 
 
dy=0;
 
 
 
 
%Start Makro
Stage.X.VEL(v0);
Stage.Y.VEL(v0);
Stage.Z.VEL(v0);
Stage.X.MOV(xStart);
Stage.Y.MOV(yStart);
Stage.Z.MOV(zStart);
Stage.WAC_ONT(1);
Stage.X.VEL(v1);
Stage.Y.VEL(v1);
Stage.Z.VEL(v1);
 
Laser.shutterOpen();
pause(3);
 
 
 
%"links-rechts-links-rechts,kein Skywriting"
for yi = 1:loop
    disp(strcat('LOOP: ',num2str(yi),'/',num2str(loop)))
    schicht = mod(yi,4);
 
    if(schicht==1)
    Stage.X.MOV(xStart);
    Stage.Z.MOV(zStart);
    Stage.WAC_ONT(0);
    Laser.laserOn();
    for zi = 1:round(anzahlLinien/2)
        %disp(strcat(num2str(zi),'/',num2str(round(anzahlLinien/2))))
        
        Stage.X.MVR(laenge);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(hatch);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(-laenge);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(hatch);
        Stage.WAC_ONT(0);
    end
    Laser.laserOff();
 
    elseif(schicht==2)
    Stage.X.MOV(xStart+laenge);
    Stage.Z.MOV(zStart);
    Stage.WAC_ONT(0);
    Laser.laserOn();
    for zi = 1:round(anzahlLinien/2)
        %disp(strcat(num2str(zi),'/',num2str(round(anzahlLinien/2))))
        
        Stage.Z.MVR(laenge);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(-hatch);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(-laenge);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(-hatch);
        Stage.WAC_ONT(0);
    end
    Laser.laserOff();
    elseif(schicht==3)
    Stage.X.MOV(xStart+laenge);
    Stage.Z.MOV(zStart+laenge);
    Stage.WAC_ONT(0);
    Laser.laserOn();
    for zi = 1:round(anzahlLinien/2)
        %disp(strcat(num2str(zi),'/',num2str(round(anzahlLinien/2))))
        
        Stage.X.MVR(-laenge);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(-hatch);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(+laenge);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(-hatch);
        Stage.WAC_ONT(0);
    end
    Laser.laserOff();
    elseif(schicht==0)
    Stage.X.MOV(xStart);
    Stage.Z.MOV(zStart+laenge);
    Stage.WAC_ONT(0);
    Laser.laserOn();
    for zi = 1:round(anzahlLinien/2)
        %disp(strcat(num2str(zi),'/',num2str(round(anzahlLinien/2))))
        
        Stage.Z.MVR(-laenge);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(hatch);
        Stage.WAC_ONT(0);
 
        Stage.Z.MVR(laenge);
        Stage.WAC_ONT(0);
 
        Stage.X.MVR(hatch);
        Stage.WAC_ONT(0);
    end
    Laser.laserOff();
    end
 
 
    Stage.Y.MVR(dy);
end
pause(3);
Laser.shutterClose();
 
toc