// gathered visual elements:
// fan from guitar (2C)
// box from guitar (2C) with modified coloring element
// fanshape from 1F
// circles from 4A

// This welded image takes a number of fan-shaped elements
// that are either just plain lines or gradations, and melds them
// into a point in the distance with the assistance of a gradated box.
// I think it looks like a desert road with the sun setting in the
distance.
// Driving around in the desert, where the heat is intense, often gives
you a wavy
// distorted image from the heat rising off the ground.
// The circles which appear when the mouse button is down change the
composition
// in a way that the user chooses (based on where the mouse is clicked)
// thus creating a desert scene seen through heat waves which is
// different for very person.

load dbngraphics.dbn

command fan A B C D
{
   pen 100
   line A B C D
   line (A + 5) B C D
   line (A + 10) B C D
   line (A + 15) B C D
   line (A + 20) B C D
   line (A + 25) B C D
}

command box L W A B
{
   repeat R A B
   {
      pen R
      line L R W R
   }
}

command shadedfan Ax Ay E
{
   repeat A 0 100
   {
      pen A
      line Ax Ay E A
   }
}

shadedfan 60 70 100
box 0 100 0 70
fan 0 0 60 70
fan 85 100 60 70

forever
{
   same?  100
   {
      set H 
      set V 
      circle (H) (V) (/2) 
   }
}