//space outlined.
//circle maker is easier than i thought
command circlepixels CX CY DX DY V
{
Set [(CX+DX) (CY+DY)] V
Set [(CX-DX) (CY+DY)] V
set [(CX-DX) (CY-DY)] V
set [(CX+DY) (CY+DX)] V
set [(CX+DY) (CY-DX)] V
set [(CX-DY) (CY+DX)] V
SET [(CX-DY) (CY-DX)] V
}
Command circle CX Cy Radius V
{
Set X 0
Set Y Radius
Set D (1-Radius)
Circlepixels CX CY X Y V
//70/1000 approximates
//square root of 0.5=cos(45)
Repeat X 0 (Radius*70/1000)
{
set tempD D
Smaller? tempD 10
{
set D (D+(2*X)+3)
}
Notsmaller? tempD 0
{
set Y (Y-1)
}
Circlepixels CX CY X Y V
}
}
//a test pattern
repeat A 0 20
{
circle 50 50 (A*4) 100
}
// Geometric progression

pen 25
repeat A 0 20
{
line (50/A)A (A*50) 40
}

// draw my line
Repeat A 30 90

{
Set B (60-A)
Set [A(80-B*B/75)]60
Set [B(90+A*A/10)]50
Set [B(90-A*A/37)]80
Set [A(50+B*B/47)]15
Set [A(94/A*A+10)]50
Set [B(22*A/B+30)]64
Set [B(40+A*A/-80)]30
}
// simulacra of space

pen 10
//calculation using dot value

//circle maker is easier than i thought
command circlepixels CX CY DX DY V
{
Set [(CX+DX) (CY+DY)] V
Set [(CX-DX) (CY+DY)] V

set [(CX-DY) (CY+DX)] V
SET [(CX-DY) (CY-DX)] V
}
Command circle CX Cy Radius V
{
Set X 0
Set Y Radius
Set D (1-Radius)
Circlepixels CX CY X Y V
//70/1000 approximates
//square root of 0.5=cos(45)
Repeat X 0 (Radius*70/1000)
{
set tempD D
Smaller? tempD 10
{
set D (D+(2*X)+3)
}
Notsmaller? tempD 0
{
set Y (Y-1)
}
Circlepixels CX CY X Y V
}
}
//a test pattern
repeat A 0 20
{
circle 50 50 (A*4) 100
}

repeat A 30 90
{
Set B (60-A)
Set [A(80-B*B/75)]60
Set [B(90+A/10)]50
Set [B(A*A/37)]80
Set [A(50+B*B/47)]15

Set [B(40+A*A/-80)]30
}

repeat A 30 90

{

Set B (60-A)
Set [A(80-B)]60
Set [B(90+A)]50

Set [B(B*A/A-80)]30

}
//I've used three different problem sets,
//dealing with the intrinsic quality/intensity of line
//and its relation to the surrounding space.