-----------------------------------

kirsty_16

Thu Oct 30, 2003 1:08 pm


Teeth

-----------------------------------

Hey again 
Thankyou to whoever helped me out with the eyes!! It was a big help :) 
Does anyone know how to make or draw teeth for a program? I f anyone can or knows please help!! :roll:


-----------------------------------

hackman

Fri Oct 31, 2003 11:33 am



-----------------------------------

Hmm i cant realy think of anything. Maby...
put "VVVVVV"

Thats all i can think of. Or you could always do a bunch or Draw.Lines


-----------------------------------

Regole

Fri Oct 31, 2003 12:57 pm



-----------------------------------

or you could always use the drawfillarc command


drawfillarc(x,y,r1,r2,a1,a2,c)


where x and y are the location, r1 and r2 are the radius, and a1 and a2 are the initial and final angles, and c is the colour


-----------------------------------

AsianSensation

Fri Oct 31, 2003 6:37 pm



-----------------------------------

proc DrawTeeth (x, steepness : int)
    var d := 1
    var tempx := x
    var tempy := 0
    for rep : 1 .. 1001
        drawdot (tempx, tempy, 7)

        if tempy >= 100 then
            d := -1
        elsif tempy