Tiny program to display possible fonts (iPad only)

Post Reply
Henko
Posts: 814
Joined: Tue Apr 09, 2013 12:23 pm
My devices: iPhone,iPad
Windows
Location: Groningen, Netherlands
Flag: Netherlands

Tiny program to display possible fonts (iPad only)

Post by Henko »

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]

User avatar
Mr. Kibernetik
Site Admin
Posts: 4786
Joined: Mon Nov 19, 2012 10:16 pm
My devices: iPhone, iPad, MacBook
Location: Russia
Flag: Russia

Re: Tiny program to display possible fonts (iPad only)

Post by Mr. Kibernetik »

Very useful! Thanks!

Post Reply