home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 10: University / CDAT10.iso / UTILIDADES / Editores / Editor-c11 / art2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-09-07  |  2.4 KB  |  109 lines
  1. procedure dibujo;
  2. var
  3.     x,y: integer;
  4. begin
  5.     x:=280;
  6.     y:=200;
  7.     setcolor(15);
  8.     rectangle(x,y,x+79,y+79);
  9.     setfillstyle(1,15);
  10.     floodfill(x+1,y+1,15);
  11.     setcolor(0);
  12.     line(x+7,y+11,x+7,y+15);
  13.     putpixel(x+8,y+11,0);
  14.     setcolor(9);
  15.     line(x+8,y+12,x+8,y+14);
  16.     putpixel(x+8,y+15,0);
  17.     putpixel(x+9,y+11,0);
  18.     line(x+9,y+12,x+9,y+14);
  19.     putpixel(x+9,y+15,0);
  20.     putpixel(x+10,y+11,0);
  21.     line(x+10,y+12,x+10,y+14);
  22.     putpixel(x+10,y+15,0);
  23.     putpixel(x+11,y+11,0);
  24.     line(x+11,y+12,x+11,y+14);
  25.     putpixel(x+11,y+15,0);
  26.     putpixel(x+12,y+11,0);
  27.     line(x+12,y+12,x+12,y+14);
  28.     putpixel(x+12,y+15,0);
  29.     setcolor(0);
  30.     line(x+13,y+9,x+13,y+11);
  31.     setcolor(9);
  32.     line(x+13,y+12,x+13,y+14);
  33.     setcolor(0);
  34.     line(x+13,y+15,x+13,y+17);
  35.     putpixel(x+14,y+10,0);
  36.     setcolor(9);
  37.     line(x+14,y+11,x+14,y+15);
  38.     putpixel(x+14,y+16,0);
  39.     setcolor(0);
  40.     line(x+15,y+3,x+15,y+11);
  41.     setcolor(9);
  42.     line(x+15,y+12,x+15,y+14);
  43.     setcolor(0);
  44.     line(x+15,y+15,x+15,y+23);
  45.     putpixel(x+16,y+3,0);
  46.     setcolor(8);
  47.     line(x+16,y+4,x+16,y+11);
  48.     putpixel(x+16,y+12,0);
  49.     putpixel(x+16,y+13,9);
  50.     putpixel(x+16,y+14,0);
  51.     line(x+16,y+15,x+16,y+22);
  52.     putpixel(x+16,y+23,0);
  53.     putpixel(x+17,y+3,0);
  54.     line(x+17,y+4,x+17,y+12);
  55.     putpixel(x+17,y+13,0);
  56.     line(x+17,y+14,x+17,y+22);
  57.     putpixel(x+17,y+23,0);
  58.     putpixel(x+18,y+3,0);
  59.     line(x+18,y+4,x+18,y+22);
  60.     putpixel(x+18,y+23,0);
  61.     putpixel(x+19,y+3,0);
  62.     line(x+19,y+4,x+19,y+22);
  63.     putpixel(x+19,y+23,0);
  64.     putpixel(x+20,y+3,0);
  65.     line(x+20,y+4,x+20,y+5);
  66.     setcolor(0);
  67.     line(x+20,y+6,x+20,y+26);
  68.     putpixel(x+21,y+3,0);
  69.     setcolor(8);
  70.     line(x+21,y+4,x+21,y+5);
  71.     putpixel(x+21,y+6,0);
  72.     setcolor(11);
  73.     line(x+21,y+7,x+21,y+14);
  74.     setcolor(8);
  75.     line(x+21,y+15,x+21,y+16);
  76.     setcolor(11);
  77.     line(x+21,y+17,x+21,y+25);
  78.     putpixel(x+21,y+26,0);
  79.     putpixel(x+22,y+3,0);
  80.     putpixel(x+22,y+4,8);
  81.     putpixel(x+22,y+5,0);
  82.     line(x+22,y+6,x+22,y+14);
  83.     setcolor(8);
  84.     line(x+22,y+15,x+22,y+16);
  85.     setcolor(11);
  86.     line(x+22,y+17,x+22,y+24);
  87.     putpixel(x+22,y+25,0);
  88.     putpixel(x+23,y+3,0);
  89.     putpixel(x+23,y+4,8);
  90.     putpixel(x+23,y+5,0);
  91.     line(x+23,y+6,x+23,y+24);
  92.     putpixel(x+23,y+25,0);
  93.     setcolor(0);
  94.     line(x+24,y+3,x+24,y+4);
  95.     setcolor(11);
  96.     line(x+24,y+5,x+24,y+23);
  97.     putpixel(x+24,y+24,0);
  98.     setcolor(0);
  99.     line(x+25,y+3,x+25,y+4);
  100.     setcolor(11);
  101.     line(x+25,y+5,x+25,y+23);
  102.     putpixel(x+25,y+24,0);
  103.     putpixel(x+26,y+3,0);
  104.     line(x+26,y+4,x+26,y+22);
  105.     putpixel(x+26,y+23,0);
  106.     setcolor(0);
  107.     line(x+27,y+3,x+27,y+23);
  108. end;
  109.