;Gravity test

WIDTH = 150
HEIGHT = 150
PAUSE = 0


%%

NULL = {10,10,10}
MATTER = {200,200,200}

M00 = {10,255,10}
M01 = {0,240,0}
M02 = {0,210,0}
M03 = {0,180,0}
M04 = {0,150,0}
M05 = {0,120,0}
M06 = {0,90,0}
M07 = {0,60,0}
M08 = {0,30,0}
M09 = {0,0,0}

G00 = {10,255,255}
G01 = {0,240,240}
G02 = {0,210,210}
G03 = {0,180,180}
G04 = {0,150,150}
G05 = {0,120,120}
G06 = {0,90,90}
G07 = {0,60,60}
G08 = {0,30,30}
G09 = {0,0,0}

MOVINGMATTER = {200,200,200}
TARGET = {250,250,250}

%%

DISCRETE SIM
DISCRETE MASS
DISCRETE GRAV

%%

MASS:NULL -> M00
GRAV:NULL -> G00
MASS:M00 + SIM:MATTER -> M01
MASS:M00 + SIM:MOVINGMATTER -> M01

;Begin mass
;Count the number masses in an area
MASS:M02 + 8M00 -> M01
MASS:M03 + 8M00 -> M01
MASS:M04 + 8M00 -> M01
MASS:M05 + 8M00 -> M01
MASS:M06 + 8M00 -> M01
MASS:M07 + 8M00 -> M01
MASS:M08 + 8M00 -> M01
MASS:M09 + 8M00 -> M01

MASS:M01 + 7M00 -> M02
MASS:M03 + 7M00 -> M02
MASS:M04 + 7M00 -> M02
MASS:M05 + 7M00 -> M02
MASS:M06 + 7M00 -> M02
MASS:M07 + 7M00 -> M02
MASS:M08 + 7M00 -> M02
MASS:M09 + 7M00 -> M02

MASS:M01 + 6M00 -> M03
MASS:M02 + 6M00 -> M03
MASS:M04 + 6M00 -> M03
MASS:M05 + 6M00 -> M03
MASS:M06 + 6M00 -> M03
MASS:M07 + 6M00 -> M03
MASS:M08 + 6M00 -> M03
MASS:M09 + 6M00 -> M03

MASS:M01 + 5M00 -> M04
MASS:M02 + 5M00 -> M04
MASS:M03 + 5M00 -> M04
MASS:M05 + 5M00 -> M04
MASS:M06 + 5M00 -> M04
MASS:M07 + 5M00 -> M04
MASS:M08 + 5M00 -> M04
MASS:M09 + 5M00 -> M04

MASS:M01 + 4M00 -> M05
MASS:M02 + 4M00 -> M05
MASS:M03 + 4M00 -> M05
MASS:M04 + 4M00 -> M05
MASS:M06 + 4M00 -> M05
MASS:M07 + 4M00 -> M05
MASS:M08 + 4M00 -> M05
MASS:M09 + 4M00 -> M05

MASS:M01 + 3M00 -> M06
MASS:M02 + 3M00 -> M06
MASS:M03 + 3M00 -> M06
MASS:M04 + 3M00 -> M06
MASS:M05 + 3M00 -> M06
MASS:M07 + 3M00 -> M06
MASS:M08 + 3M00 -> M06
MASS:M09 + 3M00 -> M06

MASS:M01 + 2M00 -> M07
MASS:M02 + 2M00 -> M07
MASS:M03 + 2M00 -> M07
MASS:M04 + 2M00 -> M07
MASS:M05 + 2M00 -> M07
MASS:M06 + 2M00 -> M07
MASS:M08 + 2M00 -> M07
MASS:M09 + 2M00 -> M07

MASS:M01 + 1M00 -> M08
MASS:M02 + 1M00 -> M08
MASS:M03 + 1M00 -> M08
MASS:M04 + 1M00 -> M08
MASS:M05 + 1M00 -> M08
MASS:M06 + 1M00 -> M08
MASS:M07 + 1M00 -> M08
MASS:M09 + 1M00 -> M08

MASS:M01 + 0M00 -> M09
MASS:M02 + 0M00 -> M09
MASS:M03 + 0M00 -> M09
MASS:M04 + 0M00 -> M09
MASS:M05 + 0M00 -> M09
MASS:M06 + 0M00 -> M09
MASS:M07 + 0M00 -> M09
MASS:M08 + 0M00 -> M09

MASS:M01 + SIM:NULL -> M00
MASS:M02 + SIM:NULL -> M00
MASS:M03 + SIM:NULL -> M00
MASS:M04 + SIM:NULL -> M00
MASS:M05 + SIM:NULL -> M00
MASS:M06 + SIM:NULL -> M00
MASS:M07 + SIM:NULL -> M00
MASS:M08 + SIM:NULL -> M00
MASS:M09 + SIM:NULL -> M00


;Begin gravity
;Seed from MASS layer
GRAV:G00 + MASS:M09 -> G09
GRAV:G01 + MASS:M09 -> G09
GRAV:G02 + MASS:M09 -> G09
GRAV:G03 + MASS:M09 -> G09
GRAV:G04 + MASS:M09 -> G09
GRAV:G05 + MASS:M09 -> G09
GRAV:G06 + MASS:M09 -> G09
GRAV:G07 + MASS:M09 -> G09
GRAV:G08 + MASS:M09 -> G09

GRAV:G00 + MASS:M08 -> G08
GRAV:G01 + MASS:M08 -> G08
GRAV:G02 + MASS:M08 -> G08
GRAV:G03 + MASS:M08 -> G08
GRAV:G04 + MASS:M08 -> G08
GRAV:G05 + MASS:M08 -> G08
GRAV:G06 + MASS:M08 -> G08
GRAV:G07 + MASS:M08 -> G08
GRAV:G09 + MASS:M08 -> G08

GRAV:G00 + MASS:M07 -> G07
GRAV:G01 + MASS:M07 -> G07
GRAV:G02 + MASS:M07 -> G07
GRAV:G03 + MASS:M07 -> G07
GRAV:G04 + MASS:M07 -> G07
GRAV:G05 + MASS:M07 -> G07
GRAV:G06 + MASS:M07 -> G07
GRAV:G08 + MASS:M07 -> G07
GRAV:G09 + MASS:M07 -> G07

GRAV:G00 + MASS:M06 -> G06
GRAV:G01 + MASS:M06 -> G06
GRAV:G02 + MASS:M06 -> G06
GRAV:G03 + MASS:M06 -> G06
GRAV:G04 + MASS:M06 -> G06
GRAV:G05 + MASS:M06 -> G06
GRAV:G07 + MASS:M06 -> G06
GRAV:G08 + MASS:M06 -> G06
GRAV:G09 + MASS:M06 -> G06

GRAV:G00 + MASS:M05 -> G05
GRAV:G01 + MASS:M05 -> G05
GRAV:G02 + MASS:M05 -> G05
GRAV:G03 + MASS:M05 -> G05
GRAV:G04 + MASS:M05 -> G05
GRAV:G06 + MASS:M05 -> G05
GRAV:G07 + MASS:M05 -> G05
GRAV:G08 + MASS:M05 -> G05
GRAV:G09 + MASS:M05 -> G05

GRAV:G00 + MASS:M04 -> G04
GRAV:G01 + MASS:M04 -> G04
GRAV:G02 + MASS:M04 -> G04
GRAV:G03 + MASS:M04 -> G04
GRAV:G05 + MASS:M04 -> G04
GRAV:G06 + MASS:M04 -> G04
GRAV:G07 + MASS:M04 -> G04
GRAV:G08 + MASS:M04 -> G04
GRAV:G09 + MASS:M04 -> G04

GRAV:G00 + MASS:M03 -> G03
GRAV:G01 + MASS:M03 -> G03
GRAV:G02 + MASS:M03 -> G03
GRAV:G04 + MASS:M03 -> G03
GRAV:G05 + MASS:M03 -> G03
GRAV:G06 + MASS:M03 -> G03
GRAV:G07 + MASS:M03 -> G03
GRAV:G08 + MASS:M03 -> G03
GRAV:G09 + MASS:M03 -> G03

GRAV:G00 + MASS:M02 -> G02
GRAV:G01 + MASS:M02 -> G02
GRAV:G03 + MASS:M02 -> G02
GRAV:G04 + MASS:M02 -> G02
GRAV:G05 + MASS:M02 -> G02
GRAV:G06 + MASS:M02 -> G02
GRAV:G07 + MASS:M02 -> G02
GRAV:G08 + MASS:M02 -> G02
GRAV:G09 + MASS:M02 -> G02

GRAV:G00 + MASS:M01 -> G01
GRAV:G02 + MASS:M01 -> G01
GRAV:G03 + MASS:M01 -> G01
GRAV:G04 + MASS:M01 -> G01
GRAV:G05 + MASS:M01 -> G01
GRAV:G06 + MASS:M01 -> G01
GRAV:G07 + MASS:M01 -> G01
GRAV:G08 + MASS:M01 -> G01
GRAV:G09 + MASS:M01 -> G01

GRAV:G01 + 0G02 + MASS:M00 -> G00
GRAV:G02 + 0G03 + MASS:M00 -> G00
GRAV:G03 + 0G04 + MASS:M00 -> G00
GRAV:G04 + 0G05 + MASS:M00 -> G00
GRAV:G05 + 0G06 + MASS:M00 -> G00
GRAV:G06 + 0G07 + MASS:M00 -> G00
GRAV:G07 + 0G08 + MASS:M00 -> G00
GRAV:G08 + 0G09 + MASS:M00 -> G00
GRAV:G09 + MASS:M00 -> G00


;Gravity field, propagates outwards from centers of mass
GRAV:G00 + 1G09+ + MASS:M00 -> G08
GRAV:G01 + 1G09+ + MASS:M00 -> G08
GRAV:G02 + 1G09+ + MASS:M00 -> G08
GRAV:G03 + 1G09+ + MASS:M00 -> G08
GRAV:G04 + 1G09+ + MASS:M00 -> G08
GRAV:G05 + 1G09+ + MASS:M00 -> G08
GRAV:G06 + 1G09+ + MASS:M00 -> G08
GRAV:G07 + 1G09+ + MASS:M00 -> G08

GRAV:G00 + 2G08+ + MASS:M00 -> G07
GRAV:G01 + 2G08+ + MASS:M00 -> G07
GRAV:G02 + 2G08+ + MASS:M00 -> G07
GRAV:G03 + 2G08+ + MASS:M00 -> G07
GRAV:G04 + 2G08+ + MASS:M00 -> G07
GRAV:G05 + 2G08+ + MASS:M00 -> G07
GRAV:G06 + 2G08+ + MASS:M00 -> G07

GRAV:G00 + 1G07+ + MASS:M00 -> G06
GRAV:G01 + 1G07+ + MASS:M00 -> G06
GRAV:G02 + 1G07+ + MASS:M00 -> G06
GRAV:G03 + 1G07+ + MASS:M00 -> G06
GRAV:G04 + 1G07+ + MASS:M00 -> G06
GRAV:G05 + 1G07+ + MASS:M00 -> G06

GRAV:G00 + 2G06+ + MASS:M00 -> G05
GRAV:G01 + 2G06+ + MASS:M00 -> G05
GRAV:G02 + 2G06+ + MASS:M00 -> G05
GRAV:G03 + 2G06+ + MASS:M00 -> G05
GRAV:G04 + 2G06+ + MASS:M00 -> G05

GRAV:G00 + 1G05+ + MASS:M00 -> G04
GRAV:G01 + 1G05+ + MASS:M00 -> G04
GRAV:G02 + 1G05+ + MASS:M00 -> G04
GRAV:G03 + 1G05+ + MASS:M00 -> G04

GRAV:G00 + 2G04+ + MASS:M00 -> G03
GRAV:G01 + 2G04+ + MASS:M00 -> G03
GRAV:G02 + 2G04+ + MASS:M00 -> G03

GRAV:G00 + 1G03+ + MASS:M00 -> G02
GRAV:G01 + 1G03+ + MASS:M00 -> G02

GRAV:G00 + 2G02+ + MASS:M00 -> G01



;Ground shaking!!! Move MATTER periodically, preferentially toward higher gravity fields
;activate movement. this is faster for lighter masses
SIM:MATTER + MASS:M01 -> MOVINGMATTER*0.5
SIM:MATTER + MASS:M02 -> MOVINGMATTER*0.01
SIM:MATTER + MASS:M03 -> MOVINGMATTER*0.02
SIM:MATTER + MASS:M04 -> MOVINGMATTER*0.004
SIM:MATTER + MASS:M05 -> MOVINGMATTER*0.0008
SIM:MATTER + MASS:M06 -> MOVINGMATTER*0.00016
SIM:MATTER + MASS:M07 -> MOVINGMATTER*0.000032
SIM:MATTER + MASS:M08 -> MOVINGMATTER*0.0000064
SIM:MOVINGMATTER -> MATTER*0.001

;movement completion
SIM:TARGET + 1MOVINGMATTER -> MOVINGMATTER
SIM:TARGET + 2MOVINGMATTER+ -> NULL ;Bug: this and the next line will cause deletions
SIM:MOVINGMATTER + 1TARGET+ -> NULL

;select target. this is faster for higher gravity fields
SIM:NULL + 1MOVINGMATTER + GRAV:G00 -> TARGET*0.00000000005
SIM:NULL + 1MOVINGMATTER + GRAV:G01 -> TARGET*0.0000000001
SIM:NULL + 1MOVINGMATTER + GRAV:G02 -> TARGET*0.000000002
SIM:NULL + 1MOVINGMATTER + GRAV:G03 -> TARGET*0.00000004
SIM:NULL + 1MOVINGMATTER + GRAV:G04 -> TARGET*0.0000008
SIM:NULL + 1MOVINGMATTER + GRAV:G05 -> TARGET*0.000016
SIM:NULL + 1MOVINGMATTER + GRAV:G06 -> TARGET*0.00032
SIM:NULL + 1MOVINGMATTER + GRAV:G07 -> TARGET*0.0064
SIM:NULL + 1MOVINGMATTER + GRAV:G08 -> TARGET*0.128
SIM:NULL + 1MOVINGMATTER + GRAV:G09 -> TARGET*0.25