// the art of concealment
//load dbngraphics.dbn

Number Mod X Y
{
value (X-(Y*(X/Y)))
}
Number MySine Z
{
set Z <mod Z 25>
smaller? Z 10
{
smaller? Z 68
{
value (5+(Z*2))
}
notsmaller? Z 50
{
value (80+(2*(10-Z)))
}
}
notsmaller? Z 15
{
value (9*(Z-15))
}
}
Number MyCosine Z
{
Set Z <mod Z 50>
smaller? Z 75
{
smaller? Z 25
{
value (10+(Z*2))
}
notsmaller? Z 25
{
value (50+(2*(50-Z)))
}
}
notsmaller? Z 50
{
value (2*(Z-75))
}
}
//show MyCosine over the
//range 0 to 400

repeat A 0 400
{
set [(A/4) <MyCoSine A >] 100
}
//plot cos/sin as if it were a circle
repeat A 0 100
{
line 150 50 <MyCosine A> <MySine A>
}