DataMuseum.dk

top - download

    Length: 4992 (0x1380)
    Types: TextFile
    Notes: Mikados_K
    Names: »NBTBEHAN.K«

└─⟦a3d38fea3⟧ Bits:30008985 PRODUKTION NBT.
    └─⟦this⟧ »NBTBEHAN.K« 

Mikados K File

BEGIN
  FOR I1:=1 TO 16 DO
    BEGIN
      RAMME.NR:=RAMME16(I1);
      IF RAMME.NR>19 THEN
      BEGIN
        GETREC(RAMZ.H,RAMF,RAMME.A);
        IF IER<>0 THEN IOF(RAMZ.H.FILENAME);
        GOTOXY(15,14);
        WRITELN('Rammenr: ',I1);
        DIMNR:=1;
        IF RAMME.TYP=3 THEN DIMNR:=2;
        REGN(BREDDE,I1,1,(I1-1)MOD 4+1,OLINIE.BLAMBRED,OLINIE.BREDDE,VBREDDE,
             RAMME16);
        REGN(HØJDE,I1,4,(I1+3)DIV 4,OLINIE.BLAMHØJD,OLINIE.HØJDE,VHØJDE,
             RAMME16);
        J:=1;
        WHILE (I1<>OLINIE.RAMMENR(J)) AND (J<3) DO J:=J+1;
        IF RAMME.TYP=3 THEN
        BEGIN
          FAKODE:=1;KGUMMI:=GLASGUM(J);
        END
        ELSE
        BEGIN
(*KARMTÆTNING*)
          GENER(6,KTÆTGUM(1),KTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);
(*RAMMETÆTNING*)
          GENER(7,RTÆTGUM(1),RTÆTGUM(2),BREDDE,HØJDE,0,NULLER,NULLER);
          FAKODE:=2;J:=J+3;
(*RAMMEPROFILER*)
          PROFILBEHANDLING(BREDDE,HØJDE,RREGELNR,RAMME.FORSTÆRK,RFORSTÆRK,
                           RAMME.BESLAG,RAMMEPROFIL,RTÆTGUM,GLASGUM(J),
                           RAMME.VREGEL,RAMME.LREGEL);
          BREDDE:=BREDDE-2*RDIM(1);HØJDE:=HØJDE-2*RDIM(1);
        END;
        PLACERING:=20;
(*GLASLISTE*)
        GENER(1,0,GLASLIST(J),BREDDE,HØJDE,0,GLASLGUM(J),NULLER);
(*GLASGUMMI*)
        GENER(9,GLASGUM(J,1),GLASGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);
        BREDDE:=BREDDE-2*GDIM(J,1);HØJDE:=HØJDE-2*GDIM(J,1);
(*GLASLISTEGUMMI*)
        GENER(8,GLASLGUM(J,1),GLASLGUM(J,2),BREDDE,HØJDE,0,NULLER,NULLER);
        J:=(J-1) MOD 3+1;
(*GLAS*)
        GENER((4-FAKODE),0,OLINIE.GLASART(J),BREDDE,HØJDE,0,NULLER,NULLER);
      END;
    END;
    I1:=0;FAKODE:=1;J:=(J-1) MOD 3+1;
    KARM.NR:=VKARM;
    GETREC(KARZ.H,KARF,KARM.A);
    IF IER<>0 THEN IOF(KARZ.H.FILENAME);
(*KARMPROFILER*)
    PROFILBEHANDLING(OLINIE.BLAMBRED,OLINIE.BLAMHØJD,KREGELNR,KARM.FORSTÆRK,
                     KFORSTÆR,KARM.BESLAG,KARMPROFIL,KTÆTGUM,KGUMMI,
                     KARM.VREGEL,KARM.LREGEL);
    FOR PLACERING:=5 TO 19 DO
    BEGIN
      TYPE1:=NULLER;TYPE2:=0;
      POST.KARMNR:=VKARM;POST.NR:=PLACERING-4;
      GETREC(POSZ.H,POSF,POST.A);
      IF (IER<>0) AND (IER<>-6) THEN IOF(POSZ.H.FILENAME);
      IF IER=0 THEN
      BEGIN
        IF POST.VANDLOD=0 THEN
          POSTBEREGN(OLINIE.BREDDE,OLINIE.BLAMBRED)
        ELSE
          POSTBEREGN(OLINIE.HØJDE,OLINIE.BLAMHØJD);
        MÅL:=LÆNGDE;
        STÆRKNING(KREGELNR,POST.FORSTÆRK,POST.FORSTÆRK);
(*POSTFORSTÆRKNING*)
        GENER(4,TYPE1(1),TYPE1(2),0,LÆNGDE,0,NULLER,NULLER);
(*POSTPROFIL*)
        GENER(1,0,POST1,LÆNGDE,MÅL,0,NULLER,NULLER);
      END;
    END;
END;