DataMuseum.dk

top - metrics - download

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »OPG2.PAS«

└─⟦b301b5c1d⟧ Bits:30003931/GEM_Develop_disk_2_CDOS.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »OPG2.PAS« 

TextFile

program opg1;
(*$i gempcon.i*)
(*$i gemptype.i*)
(*$i gempvar.i*)
(*$i vdibnd.pas*)
const   bx=4000;
        by=10700;
        
var     nr,retur,handler,data,datax,datay,i,j:integer;
        intptsout:array_57;
        pxyarray:ptsin_array;   
        xy:array_4;
begin
        intin(.0.):=1;
        intin(.10.):=0;
        retur:=v_opnwk(intin,handler,intptsout);
        if handler > 0 then begin

           pxyarray(.0.):=250;
           pxyarray(.1.):=250;
           pxyarray(.2.):=250;
           pxyarray(.3.):=32350;
           for i:=0 to 8 do begin
             data:=1;
             retur:=vsl_type(handler,data);
             data:=50;
             retur:=vsl_width(handler,data);
             data:=0;
             retur:=vsl_ends(handler,data,data);
             data:=1;
             retur:=vsl_color(handler,data);
             retur:=v_pline(handler,2,pxyarray);               
             pxyarray(.0.):=pxyarray(.0.)+bx;
             pxyarray(.2.):=pxyarray(.2.)+bx;
           end;

           pxyarray(.0.):=250;
           pxyarray(.1.):=250;
           pxyarray(.2.):=32250;
           pxyarray(.3.):=250;
           for i:=0 to 3 do begin
             data:=1;
             retur:=vsl_type(handler,data);
             data:=50;
             retur:=vsl_width(handler,data);
             data:=0;
             retur:=vsl_ends(handler,data,data);
             data:=1;
             retur:=vsl_color(handler,data);
             retur:=v_pline(handler,2,pxyarray);               
             pxyarray(.1.):=pxyarray(.1.)+by;
             pxyarray(.3.):=pxyarray(.3.)+by;
          end;
        end;

        nr:=random(24)+1;
        if nr<=8 then begin
           xy(.0.):=250+(nr*4000);
           xy(.1.):=250+(2*10700);
           xy(.2.):=250+4000+(nr*4000);
           xy(.3.):=250+(3*10700);
        end;
        if nr>8 then begin
           if nr<=16 then begin
             nr:=nr-8;
             xy(.0.):=250+(nr*4000);
             xy(.1.):=250+10700;
             xy(.2.):=250+4000+(nr*4000);
             xy(.3.):=250+(2*10700);
           end
        else begin
             nr:=nr-16;
             xy(.0.):=250+(nr*4000);
             xy(.1.):=250;
             xy(.2.):=250+4000+(nr*4000);
             xy(.3.):=250+10700;
           end;
        end;
           retur:=vsf_interior(handler,2);
           retur:=vsf_style(handler,16);
           retur:=vr_recfl(handler,xy);
                   
        for i:=0 to 32000 do begin
            for j:=0 to 50 do begin
               data:=data+1;
            end;
        end;
        retur:=v_clswk(handler);
end.