4 replies to this topic

[sometimes99er]

100 CALL CLEAR::PRINT"GENERATING PATTERNS","generating patterns"::FOR C=65 TO 90::CALL CHARPAT(C,C$)
110 CALL CHAR(C,SEG$(C$,3,2)&SEG$(C$,3,2)&SEG$(C$,5,2)&SEG$(C$,5,2)&SEG$(C$,7,2)&SEG$(C$,7,2)&SEG$(C$,9,2)&SEG$(C$,9,2))
120 CALL CHAR(C+32,SEG$(C$,11,2)&SEG$(C$,11,2)&SEG$(C$,13,2)&SEG$(C$,13,2)&SEG$(C$,15,2)&SEG$(C$,15,2))
130 CALL HCHAR(8,C-62,C)::CALL HCHAR(9,C-62,C+32)::NEXT C

[moulinaie]

Cool idea, simple and efficient!

Guillaume.

[sometimes99er]

moulinaie, on Thu Nov 10, 2011 1:45 PM, said:

Cool idea, simple and efficient!

Guillaume.

Glad you like it. And thanks for letting me know.

[sometimes99er]

Here's a variant looking a bit like some of the first Amiga track loaders. It's funny how the pixels that are not there kinda adds further high resolution to the letters. An optical illusion of sorts.

100 CALL CLEAR::CALL SCREEN(2)::FOR C=5 TO 12::CALL COLOR(C,9,1)::NEXT C
110 PRINT"AMIGA TRACK LOADER","amiga track loader"::FOR C=65 TO 90::CALL CHARPAT(C,C$)
120 CALL CHAR(C,SEG$(C$,3,2)&"00"&SEG$(C$,5,2)&"00"&SEG$(C$,7,2)&"00"&SEG$(C$,9,2))
130 CALL CHAR(C+32,SEG$(C$,11,2)&"00"&SEG$(C$,13,2)&"00"&SEG$(C$,15,2))
140 CALL HCHAR(8,C-62,C)::CALL HCHAR(9,C-62,C+32)::NEXT C
150 GOTO 150

[sometimes99er]

For those of you in a hurry ...

Edited by sometimes99er, Fri Nov 11, 2011 11:19 AM.