/[opencvs]/eyes/acopy.sno
ViewVC logotype

Contents of /eyes/acopy.sno

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed Mar 9 09:39:56 2011 UTC (7 years, 4 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
eyes - the best fucking mosaic out there
1
2 hex = span('0123456789abcdef')
3 ext = &alphabet
4 ext '.' = ''
5 exts = span(ext)
6
7 line = hex . thehex ' *./' arbno(any(&alphabet)) . rest '.' exts . theext rpos(0)
8
9 &anchor = 1
10 loop x = input :f(endd)
11 x line :f(error)
12 t2ext = theext
13 theext 'JPG' = 'jpg'
14 theext 'jpeg' = 'jpg'
15 theext 'jpe' = 'jpg'
16 output = 'cp -f "' rest '.' t2ext '" /t/eyes/' thehex '.' theext
17 :(loop)
18
19 error output = '#error ' x
20 :(loop)
21
22 endd
23
24 end

  ViewVC Help
Powered by ViewVC 1.1.5