Tiny program to display possible fonts (iPad only)
Posted: Mon Feb 24, 2014 4:17 pm
Code: Select all
graphics ! graphics clear .8,.8,.8
draw font size 28 ! draw color 0,0,1 ! fill color .8,.8,.8
dim a$(300)
fox$="The Quick Brown Fox Jumps Over The Lazy Dog"
list fonts to a$,n
list "fonts" text a$ at 20,20 size 340,400
draw size 3 ! draw rect 18,18 to 362,422
loop: ksel=list_selected("fonts") ! if ksel=-1 or k=ksel then loop
fill rect 10,440 to 766,500 ! k=ksel
draw font name a$(ksel) ! draw text fox$ at 10,450
goto loop
end
[code]