Filoweb.it

Testo a cerchio


FB TW G+ whatsapp RSS FEED
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 G+ whatsapp RSS FEED

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito 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 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