File: symbols.gle

package info (click to toggle)
gle-graphics-manual 4.3.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,864 kB
  • sloc: perl: 67; makefile: 14
file content (32 lines) | stat: -rw-r--r-- 395 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 

size 16 22

symwd = 0.5
wd = 4
hi = 0.45

set font texcmr

dx = 0.25
dy = 0.5

x = 0
y = 0
nrows = 48

fopen "symbols.csv" f1 read
until feof(f1)
	fread f1 sym$
	amove x*wd+dx pageheight()-y*hi-dy
	towrite$ = "\"+sym$
	! print towrite$
	write towrite$
	amove x*wd+dx+symwd pageheight()-y*hi-dy
	tex "$\backslash{}$"+sym$
	y = y + 1
	if y = nrows then
		y = 0
		x = x + 1
	end if
next
fclose f1