DataMuseum.dk

top - metrics - download

    Length: 768 (0x300)
    Names: »TEMP1.PAS«

└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
    └─⟦this⟧ »TEMP1.PAS« 

Hex Dump

0x000…020 (0,) 70 72 6f 63 65 64 75 72 65 20 66 6a 65 72 6e 28 78 6d 69 6e 2c 78 6d 61 78 2c 79 6d 69 6e 2c 79   ┆procedure fjern(xmin,xmax,ymin,y┆
0x020…040      6d 61 78 3a 69 6e 74 65 67 65 72 29 3b 0d 0a 0d 0a 76 61 72 0d 0a 20 20 67 6c 79 6d 69 6e 2c 73   ┆max:integer);    var    glymin,s┆
0x040…060      6f 65 6a 6c 65 2c 68 6f 65 6a 64 65 2c 0d 0a 20 20 67 65 6d 69 6e 64 65 78 2c 6b 20 20 20 20 20   ┆oejle,hoejde,    gemindex,k     ┆
0x060…080      20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 70 2c 71 20 20 20 20 20 20 20 20 20 20 20   ┆    : integer;    p,q           ┆
0x080…0a0      20 20 20 20 20 3a 20 63 68 61 72 3b 0d 0a 0d 0a 62 65 67 69 6e 0d 0a 20 20 20 70 3a 3d 63 68 72   ┆     : char;    begin     p:=chr┆
0x0a0…0c0      28 30 29 3b 0d 0a 20 20 20 71 3a 3d 63 68 72 28 32 35 35 29 3b 0d 0a 20 20 20 67 6c 79 6d 69 6e   ┆(0);     q:=chr(255);     glymin┆
0x0c0…0e0      3a 3d 79 6d 69 6e 3b 0d 0a 20 20 20 78 6d 69 6e 3a 3d 76 69 64 65 6f 6c 69 6e 69 65 72 2a 72 6f   ┆:=ymin;     xmin:=videolinier*ro┆
0x0e0…100      75 6e 64 28 78 6d 69 6e 2f 78 6b 6f 6f 72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 0d 0a 20 20 20 78   ┆und(xmin/xkoordinat_blok);     x┆
0x100…120      6d 61 78 3a 3d 76 69 64 65 6f 6c 69 6e 69 65 72 2a 72 6f 75 6e 64 28 78 6d 61 78 2f 78 6b 6f 6f   ┆max:=videolinier*round(xmax/xkoo┆
0x120…140      72 64 69 6e 61 74 5f 62 6c 6f 6b 29 3b 0d 0a 20 20 20 79 6d 69 6e 3a 3d 28 76 69 64 65 6f 6c 69   ┆rdinat_blok);     ymin:=(videoli┆
0x140…160      6e 69 65 72 2d 31 29 2d 72 6f 75 6e 64 28 79 6d 61 78 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69   ┆nier-1)-round(ymax/ykoordinat_li┆
0x160…180      6e 69 65 29 3b 0d 0a 20 20 20 79 6d 61 78 3a 3d 28 76 69 64 65 6f 6c 69 6e 69 65 72 2d 31 29 2d   ┆nie);     ymax:=(videolinier-1)-┆
0x180…1a0      72 6f 75 6e 64 28 67 6c 79 6d 69 6e 2f 79 6b 6f 6f 72 64 69 6e 61 74 5f 6c 69 6e 69 65 29 3b 0d   ┆round(glymin/ykoordinat_linie); ┆
0x1a0…1c0      0a 20 20 20 68 6f 65 6a 64 65 3a 3d 79 6d 61 78 2d 79 6d 69 6e 3b 0d 0a 20 20 20 73 6f 65 6a 6c   ┆    hoejde:=ymax-ymin;     soejl┆
0x1c0…1e0      65 3a 3d 78 6d 69 6e 2b 79 6d 69 6e 3b 0d 0a 20 20 20 67 65 6d 69 6e 64 65 78 3a 3d 30 3b 0d 0a   ┆e:=xmin+ymin;     gemindex:=0;  ┆
0x1e0…200      20 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 20 6d 6f 76 65 28 70 69 78 28 2e 73 6f 65   ┆   repeat          move(pix(.soe┆
0x200…220      6a 6c 65 2e 29 2c 74 65 6d 70 28 2e 67 65 6d 69 6e 64 65 78 2e 29 2c 32 2a 68 6f 65 6a 64 65 29   ┆jle.),temp(.gemindex.),2*hoejde)┆
0x220…240      3b 0d 0a 20 20 20 20 20 20 20 20 20 66 69 6c 6c 28 70 69 78 28 2e 73 6f 65 6a 6c 65 2e 29 2c 32   ┆;           fill(pix(.soejle.),2┆
0x240…260      2a 68 6f 65 6a 64 65 2c 70 29 3b 0d 0a 20 20 20 20 20 20 20 20 73 6f 65 6a 6c 65 3a 3d 73 6f 65   ┆*hoejde,p);          soejle:=soe┆
0x260…280      6a 6c 65 2b 76 69 64 65 6f 6c 69 6e 69 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 67 65 6d 69 6e 64   ┆jle+videolinier;          gemind┆
0x280…2a0      65 78 3a 3d 67 65 6d 69 6e 64 65 78 2b 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 75 6e 74 69 6c 20 73   ┆ex:=gemindex+hoejde;     until s┆
0x2a0…2c0      6f 65 6a 6c 65 3e 78 6d 61 78 3b 0d 0a 65 6e 64 3b 0d 0a 28 2a 20 88 88 88 88 88 88 88 88 88 88   ┆oejle>xmax;  end;  (*           ┆
0x2c0…2e0      88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 20 2a 29 0d 0a   ┆                            *)  ┆
0x2e0…300      1a 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 72 65 74 75 72 28 78 6d 69 6e 2c 78 6d 61 78   ┆       procedure retur(xmin,xmax┆