[Solved] Letter variation by font variation

[T-low]

Hi, I was looking for a font or font tool that has letter variation to imitate handwriting.
I only found normal font tools, font tools with minimal variation or super expensive font tools with medium variation.
I am ''aware (limit to characters?)'' of the problem with implementing variation to a font template in open office.
So how to solve this? A font with variation in letters for handwriting in open office and on top of that cheap or better free?

I thought of a Extension where you can add x many fonts for the variation in letters and the extension would change every letter through the given fonts. (simpler)
Or to let the extension read the letters in an array and variate the font from that... (more complicated)
So for example you feed the extension with only 5 fonts in the simple version, you would become a way better variation of letters than some of the most expensive variating fonts.
I have not much programming experience so I would like some advice if this Idea is in any way possible?

Sorry for grammar and spelling

Thx for every comment in advance

[RoryOF]

There is discussion on methods in this posting
http://graphicdesign.stackexchange.com/ ... characters

It would need a lot of programming skill (and time), which I doubt you or we have.

[JeJe]

Code: Select all

	
	Option Explicit
	
	
	Global oDocView
	Global oKeyHandler
	
	sub InitialiseMacros
		RegisterKeyHandler
	end sub
	
	Sub RegisterKeyHandler
		oDocView = ThisComponent.getCurrentController
		oKeyHandler = createUnoListener("MyApp_", "com.sun.star.awt.XKeyHandler")
		oDocView.addKeyHandler(oKeyHandler)
	End Sub
	
	Sub UnregisterKeyHandler
		oDocView.removeKeyHandler(oKeyHandler)
	End Sub
	Sub MyApp_disposing(oEvt)
	End Sub
	
	Function MyApp_KeyReleased(oEvt) As Boolean
	end function
	
	
	Function MyApp_KeyPressed(oEvt as object) As Boolean
	dim ff,v As Integer, oVC
	ff = array("Times New Roman","Courier New","Modern","Papyrus")
	if oEvt.keychar<>0 then
	v= CInt(Int((ubound(ff) * Rnd()) + 1))
	oVC = thisComponent.getCurrentController.getViewCursor
	oVC.charfontname = ff(v)
	end if
	end function
	

if you put this in a module and press f5 to run InitialiseMacros. It will pick a random font name for each letter pressed.

[T-low]

@RoryOF thanks for the link
Shows nicely the limitations to fonts.

@JeJe awesome Macro
It is exactly the solution to my "simple method thought" for randomly selecting fonts.
Now i just have to set up 10 nice fonts to switch through randomly ^^
I try to post some results here and try to write an macro for a letter array randomness o_o

thx for the awesome replies