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

Annotation of /eyes/avar.sno

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Wed Mar 9 09:39:56 2011 UTC (9 years, 4 months ago) by hib
Branch: MAIN
eyes - the best fucking mosaic out there

1 hib 1.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 = 'ln "' rest '.' t2ext '" /t/eyesveronika/i/' 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.26