// DRAW MAPS OF 
// GENERATIVE PSYCHOGEOGRAPHICAL 
// PATHS ON A *PERFECT* CITY GRID
// by SOCIALFICTION.ORG
// Default direction is UP
// change VAR1 VAR2 VAR3 VAR4
// 
// A = NUMERIC VALUE
// D = DIRECTION 0=RIGHT 1=LEFT

// VAR 1
Set A1 10
Set D1 1

// VAR 2
Set A2 10
Set D2 1

// VAR 3
Set A3 20
Set D3 0

// VAR 4
Set A4 30
Set D4 0
 
// VAR GENERAL

Set X 100
Set Y 100
Set Xn 100
Set Yn 100

Size 200 200

// FIRST LINE [UP] EXE. VAR 1

Repeat C 1 A1
{
Set [Xn Yn]100
Set Yn (Yn+1)
}


//
//
//

Forever

{

//  D1 - A2;   X-axis


	Smaller? Y Yn
	{

		Same? D1 0
		{
Repeat C 1 A2
{
Set [Xn Yn]100 
Set Xn (Xn+1)
 } 
}
		Same? D1 1
		{
Repeat C 1 A2
{
Set [Xn Yn]100
Set Xn (Xn-1)
 } 
}
}

	NotSmaller? Y Yn
	{
	
		Same? D1 0
		{
Repeat C 1 A2
{
Set [Xn Yn]100
Set Xn (Xn-1)
 } 

}
	Same? D1 1
{
Repeat C 1 A2
{
 Set [Xn Yn]100
Set Xn (Xn+1)
 } 
}
}

Set Y Yn

// D2 - A3; Y axis


Smaller? X Xn
{

Same? D2 0

{
Repeat C 1 A3
{
Set [Xn Yn]100 
Set Yn (Yn-1)
 } 
}

Same? D2 1

{
Repeat C 1 A3
{
Set [Xn Yn]100
Set Yn (Yn+1)
 } 
}
}

	NotSmaller? X Xn
	{
		Same? D2 0
		{
Repeat C 1 A3
{
Set [Xn Yn]100
Set Yn (Yn+1)
 } 
}
	Same? D2 1
{
Repeat C 1 A3
{
 Set [Xn Yn]100
Set Yn (Yn-1)
 } 
}
}


Set X Xn

// D3 - A4 X axis

	Smaller? Y Yn
	{

		Same? D3 0
		{
Repeat C 1 A4
{
Set [Xn Yn]100 
Set Xn (Xn+1)
 } 
}
		Same? D3 1
		{
Repeat C 1 A4
{
Set [Xn Yn]100
Set Xn (Xn-1)
 } 
}
}

	NotSmaller? Y Yn
	{
	
		Same? D3 0
		{
Repeat C 1 A4
{
Set [Xn Yn]100
Set Xn (Xn-1)
 } 

}
	Same? D3 1
{
Repeat C 1 A4
{
 Set [Xn Yn]100
Set Xn (Xn+1)
 } 
}
}

Set Y Yn

// D4 - A1 Y axis


Smaller? X Xn
{

Same? D4 0

{
Repeat C 1 A1
{
Set [Xn Yn]100 
Set Yn (Yn-1)
 } 
}
		Same? D4 1
		{
Repeat C 1 A1
{
Set [Xn Yn]100
Set Yn (Yn+1)
 } 
}
}

	NotSmaller? X Xn
	{
		Same? D4 0
		{
Repeat C 1 A1
{
Set [Xn Yn]100
Set Yn (Yn+1)
 } 
}
	Same? D4 1
{
Repeat C 1 A1
{
 Set [Xn Yn]100
Set Yn (Yn-1)
 } 
}
}


Set X Xn

}