//spokes of a Wheel.
refresh
Command MyLine A
{
repeat r 1 15
{
repeat x 1 25
{
set y (x*5)
set z (x/y)
pen (100-x)
line z y (A-z) (A-y)
line (A-y) z y (A-z)
pen x
line z (A-z) (A-y) y
line (A-y) (A-z) z y
}
}
}
MyLine 25
MyLine 50
MyLine 75
|
|
|||||||||||||
|
aradhana goel...a_goel@mit.edu...course 4G.................................................................mas110...spring2000 |