*** Makefile.in.orig	Mon Sep 14 17:30:00 1998
--- Makefile.in	Mon Sep 14 17:30:00 1998
***************
*** 10,16 ****
  
  OBJS = mapfile.o papersiz.o utils.o config.o vfpacket.o pkin.o \
  writefont.o writet1.o writet3.o writezip.o writeenc.o writettf.o \
! writejpg.o writepng.o writeimg.o
  
  all: libpdf.a ttf2afm
  
--- 10,16 ----
  
  OBJS = mapfile.o papersiz.o utils.o config.o vfpacket.o pkin.o \
  writefont.o writet1.o writet3.o writezip.o writeenc.o writettf.o \
! writejpg.o writepng.o writeimg.o changebar.o
  
  all: libpdf.a ttf2afm
  
*** pdftex.ch.orig	Sat May 30 18:08:35 1998
--- pdftex.ch	Mon Sep 14 17:30:00 1998
***************
*** 674,706 ****
      end;
  end;
  
- procedure pdf_outliteral(s: str_number; is_special, warn: boolean);
- var j: pool_pointer; {current character code position}
- begin
-     j:=str_start[s];
-     if is_special then begin
-         if (length(s) <= 4) or
-             (((str_pool[j]  <> "P") or 
-              (str_pool[j+1] <> "D") or 
-              (str_pool[j+2] <> "F")) and
-             ((str_pool[j]   <> "p") or 
-              (str_pool[j+1] <> "d") or 
-              (str_pool[j+2] <> "f"))) or
-             (str_pool[j+3]  <> ":") then begin
-             if warn then
-                 print_nl("Non-PDF special ignored!");
-             return;
-         end;
-         j := j + 4;
-     end;
-     pdf_end_text;
-     pdf_set_origin;
-     while j<str_start[s+1] do begin
-        pdf_out(str_pool[j]);
-        incr(j);
-     end;
-     pdf_print_nl;
- end;
  
  procedure pdf_print_int(n:integer); {print out a integer to \.{PDF} buffer}
  var k:0..23; {index to current digit; we assume that $|n|<10^{23}$}
--- 674,679 ----
***************
*** 1015,1020 ****
--- 988,1082 ----
    pdf_print_mag_bp(pdf_x(right)); pdf_out(" ");
    pdf_print_mag_bp(pdf_y(top));
    pdf_print_ln("]");
+ end;
+ 
+ { This is moved down to here so that it comes after the declaration
+   of pdf_print_real. }
+ procedure pdf_outliteral(s: str_number; is_special, warn: boolean);
+ var j: pool_pointer; {current character code position}
+ cb_x_coord: integer;
+ cb_y_coord: integer;
+ saved_cur_v: scaled;
+ saved_cur_h: scaled;
+ cb_thickness: integer;
+ cb_greyness: integer;
+ begin
+     j:=str_start[s];
+     if is_special then begin
+         if (length(s) <= 4) or
+             (((str_pool[j]  <> "P") or 
+              (str_pool[j+1] <> "D") or 
+              (str_pool[j+2] <> "F")) and
+             ((str_pool[j]   <> "p") or 
+              (str_pool[j+1] <> "d") or 
+              (str_pool[j+2] <> "f"))) or
+             (str_pool[j+3]  <> ":") then begin
+             if warn then
+                 print_nl("Non-PDF special ignored!");
+             return;
+         end;
+         j := j + 4;
+ 
+     {Look for changebar specials}
+         if ((str_pool[j] = "C") and
+             (str_pool[j+1] = "B") and
+             (str_pool[j+2] = "A") and
+             (str_pool[j+3] = "R") and
+             (str_pool[j+4] = "D") and
+             (str_pool[j+5] = "E") and
+             (str_pool[j+6] = "F") and
+             (str_pool[j+7] = ":")) then begin
+             cbar_define(j+8, str_start[s+1], cur_v);
+             return;
+         end;
+ 
+         if ((str_pool[j] = "C") and
+             (str_pool[j+1] = "B") and
+             (str_pool[j+2] = "A") and
+             (str_pool[j+3] = "R") and
+             (str_pool[j+4] = "C") and
+             (str_pool[j+5] = "O") and
+             (str_pool[j+6] = "N") and
+             (str_pool[j+7] = ":")) then begin
+             pdf_end_text;
+             saved_cur_v := cur_v;
+             saved_cur_h := cur_h;
+             cur_v := 0;
+             cur_h := 0;
+             pdf_set_origin;
+             cb_greyness := cbar_get_greyness(j+8, str_start[s+1]);
+             cb_thickness := cbar_get_thickness(j+8, str_start[s+1]);
+             pdf_print("q ");
+             pdf_print_real(cb_greyness, decimal_digits);
+             pdf_print(" G ");
+             pdf_print_real(cb_thickness, decimal_digits);
+             pdf_print(" w ");
+             cb_x_coord := cbar_lookup_x(j+8, str_start[s+1], 1);
+             cb_y_coord := cbar_lookup_y(j+8, str_start[s+1], 1);
+             pdf_print_real(cb_x_coord, decimal_digits);
+             pdf_print(" ");
+             pdf_print_real(cb_y_coord, decimal_digits);
+             pdf_print(" m ");
+             cb_x_coord := cbar_lookup_x(j+8, str_start[s+1], 2);
+             cb_y_coord := cbar_lookup_y(j+8, str_start[s+1], 2);
+             pdf_print_real(cb_x_coord, decimal_digits);
+             pdf_print(" ");
+             pdf_print_real(cb_y_coord, decimal_digits);
+             pdf_print(" l S Q");
+             pdf_print_nl;
+             cur_v := saved_cur_v;
+             cur_h := saved_cur_h;
+             pdf_set_origin;
+             return;
+         end;
+     end;
+     pdf_end_text;
+     pdf_set_origin;
+     while j<str_start[s+1] do begin
+        pdf_out(str_pool[j]);
+        incr(j);
+     end;
+     pdf_print_nl;
  end;
  
  @ Sometimes it is neccesary to allocate memory for \.{PDF} output that cannot
*** pdftex.defines.orig	Mon Sep 14 17:30:00 1998
--- pdftex.defines	Mon Sep 14 17:30:00 1998
***************
*** 25,30 ****
--- 25,35 ----
  @define function newvfpacket();
  @define function packetbyte;
  
+ @define function cbarlookupx();
+ @define function cbarlookupy();
+ @define function cbargetthickness();
+ @define function cbargetgreyness();
+ 
  @define procedure pdfsetcharused();
  @define procedure writepdf();
  @define procedure readconfig;
***************
*** 41,45 ****
--- 46,52 ----
  @define procedure poppacketstate;
  @define procedure startpacket();
  @define procedure libpdffinish;
+ 
+ @define procedure cbardefine();
  
  { end of pdftex.defines }