Trignomic Cycle formula

[Cableguy]

Inspired by the lattest Token's creation, I've been searching for a way to create an ANALOGIC clock...so started with some research...
and found a reference to a "Trignomic cycle"...
But since I never was that good at trignomics, I just can't see how to port it....
So was looing for some help...
What I need is a "simple" way to draw a radius line from center to the edge of the circle by providing only the angle....
Any one up to it?

[Erel]

There is one in the examples (Clock.sbp)
You can find it under: C:\Program Files\Anywhere Software\Basic4ppc Desktop\Samples

[wolfgang]

Hi,
first: Erel was faster.

Try this

Sub Globals
	i = 0
	a = 0
End Sub

Sub App_Start
	Form1.Show
	Form1.ForeLayer = true
	Form1.Circle (120,120,100,cYellow)
	Timer1.Enabled = true
End Sub

Sub Timer1_Tick
	Form1.FErase(40,40,200,200)
	a = i / 180 * cPI
	Form1.FLine(120,120,120 + 80 * Sin(a),120 - 80 * Cos(a),cRed)
	i = i + 6
End Sub

May be this simple code can help you.

[Cableguy]

@EREL
Thanks Erel, I keep forgetting about the examples....
Any way I found a few formulas, that I'm gonna try...

Thanks for The help....