Filoweb.it

Testo a cerchio


FB TW Pinterest whatsapp RSS FEED News letter
ASP JPEG (Persist)
Testo a cerchio




<%

' Directory with images

Path = Server.MapPath(" ../images" )

Set Jpeg = Server.CreateObject(" Persits.Jpeg" )



' Font path

FontPath = Jpeg.WindowsDirectory & " \fonts\courbd.ttf"



Jpeg.Open Path & " \apple.jpg"



' Text to draw

Txt = " * APPLES ARE A GREAT SOURCE OF VITAMINS"



Jpeg.Canvas.Font.Color = &HFFFFFF00

Jpeg.Canvas.Font.Size = 60



' Draw letters in a round-about manner

Angle = -275

For i = 1 To Len(Txt)

x = 280 * cos( Angle * 3.141592 / 180 ) + Jpeg.Width / 2

y = 280 * sin( Angle * 3.141592 / 180 ) + Jpeg.Height / 2

Jpeg.Canvas.Font.Rotation = 270 - Angle

w = Jpeg.Canvas.PrintTextEx(Mid(txt, i, 1), x, y, FontPath)

Angle = Angle + w / 3.85

Next



Jpeg.Save Server.MapPath(" text.jpg" )

%>
FB TW Pinterest whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP JPEG (Persist), Titolo:Testo a cerchio. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it