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

Paul

Mon Dec 13, 2004 11:29 am


Interesting effect

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

From my projectile motion code

setscreen ("graphics: max;max")
const grav:= 9.8
var speed, angle, Vhor, Vvert: real
var x, y: real
for b: 0..90 by 10
for c: 0..500 by 5
speed:=c
angle:=b
Vhor:= speed * (cosd (angle))
Vvert:= speed*(sind(angle))
    for a : 1 .. 1000000
  x := a / 100 * Vhor
        y := (Vvert * (a / 100) - 0.5 * grav * (a / 100) ** 2)
        
        drawdot (round (x ), round (y), black)
        exit when y