head	1.2;
access;
symbols;
locks; strict;
comment	@# @;


1.2
date	2006.05.26.06.33.58;	author wl;	state dead;
branches;
next	1.1;

1.1
date	2006.05.20.09.20.44;	author wl;	state Exp;
branches;
next	;


desc
@@


1.2
log
@

* example/*: Rename to...
* example/*.roff: This.
@
text
@.\"	-*- roff -*-
.\"	Time-stamp: <FontdumpsX.roff: 17.02.2006 14:34:56 x01 - JWalsdorff@@compuserve.de>
.\"	******************************************************************
.\"	**		Groff-Fontglyphs vs Charactercode:		**
.\"	**	.fontdump [font1 font2 ... ]				**
.\"	**		Print glyphs of font1 font2 ... versus		**
.\"	**		charactercode.					**
.\"	**		`all as fontname prints all fonts in the	**
.\"	**		specified fontpath `*fontpath.			**
.\"	**		without arg: glyps/codes of active font.	**
.\"	******************************************************************
.time start
.ds *fontpath /usr/local/share/groff/1.19.3/font
.\"ds *fontpath /usr/share/groff/1.18.1/font
.
.de fontdump
.ie \\n(.$ .ds *args \\$*
.el .ds *args \\n[.fn]
.pso bash -c \
"echo -n .ds *f\ ;ls --color=never \\*[*fontpath]/dev\*(.T | tr [:cntrl:] ' '"
.\"	this dummy-line is necessary; the preceding line eats it.
.while !"\\*[*args]"" \{ .
.   pops *$1 *args
.   if "\\*[*$1]"all" \{ .
.      ds *args \\*(*f \\*[*args]
.      pops *$1 *args
.      nr *all 1 
.   \}
.   if \\n[*all] \{ .
.      if "\\*[*$1]"." .nr *all 0
.      if !F \\*[*$1] .continue 
.   \}
.   index "\\*(*f" \\*[*$1]
.   ie \\n(.y>18 .if !F \\*[*$1] \{ .
.      tm \\n(.F:\\n(.c: Font \\*[*$1] not found.
.      continue 
.   \}
.   el \{ .
.      if !\\n[index] \{ . 
.         tm \\n(.F:\\n(.c: Font \\*[*$1] not found.
.         continue 
.      \}
.   nr * \\n(.f
.   ft \\*[*$1]
.   nr ** \\n(.f
.   ft
.   if \\n(**=\\n* .continue 
.   \}
.   if \\n[t*cptn] .bp
.   TBL border=.1n bc=red cpd=0 csp=.1n bgc=
.   CPTN Groff-Font \\*[*$1] .br val=b ".pso grep -e internalname \
         \\*[*fontpath]/dev\*(.T/\\*[*$1]"
.   TR 
.   TD
.   TBL cols=18 border=.1n bc=red csp=.1n cpd=.2n fgc=red4 bgc=beige hal=c \
        fsz='1.2 1.7' fst=\\*[*$1]
.   nr c# 0-1 1
.   nr y# 0 1
.   TR fst=HB fgc=blue 
.   TD 
.   nr x# 0-1 1
.   while \\n+[x#]<16 \{ .
.      d2x \\n[x#]
.      TD 
.      nop \&.\\*[hex#] 
.   \}
.   TD
.   nr y# -1
.   while \\n+(y#<17 \{ .
.      TR 
.      TD  fgc=blue fst=HB
.      d2x \\n(y# 
.      nop \\*[hex#]. 
.      nr x# 0-1 1
.      while \\n+(x#<16 \{ .
.         TD 
.         nop \N'\\n+(c#' 
.      \}
.   TD fgc=blue fst=HB 
.   d2x \\n(y#
.   nop \\*[hex#]. 
.   \}
.   TR fst=HB fgc=blue 
.   TD 
.   nr x# 0-1 1
.   while \\n+[x#]<16 \{ .
.      d2x \\n[x#]
.      TD 
.      nop \&..\\*[hex#]
.   \}
.   TD 
.   ETB 
.   ETB 
.\}
..
.
.fontdump all
.time
.date
.\"	466MHz Celeron CPU, 384MB RAM 
.\"	WindowsXP/cygwin groff18.1:	107s
.\"	WindowsXP/cygwin groff19.2:	390s
.\"	Suse Linux 9.3 groff19.2:	 66s@


1.1
log
@

* Import of hdtbl 0.91 (with some further modifications).  Still
many rough edges.
@
text
@@

