// DRAW MAPS OF 
// GENERATIVE PSYCHOGEOGRAPHICAL 
// PATHS ON A *PERFECT* CITY GRID
// by SOCIALFICTION.ORG
// Default direction is UP
// change VAR1 VAR2 VAR3
// 
// 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 GENERAL

Set X 50
Set Y 50
Set Xn 50
Set Yn 50


// 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 - A1 X axis

	Smaller? Y Yn
	{

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

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

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

Set Y Yn

// D1 - A2 Y axis


Smaller? X Xn
{

Same? D1 0

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

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


Set X Xn

// D2 - A3 X axis

	Smaller? Y Yn
	{

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

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

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

Set Y Yn


// D3 - A1 Y axis

Smaller? X Xn
{

Same? D3 0

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

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


Set X Xn
}