simplebug.scm

来自「Swarm是一个非常有用的仿真工具」· SCM 代码 · 共 21 行

(list
 (
  cons 'parameterManager
       (
	make-instance 'ParameterManager
		      #:worldXSize 80
		      #:worldYSize 80
		      #:seedProb 0.80
		      #:seedProbInc 0.05
		      #:seedProbMax 1.00
		      #:bugDensity 0.01
		      #:bugDensityInc 0.00
		      #:bugDensityMax 0.05
		      #:bugHardiness 5
		      #:bugHardinessInc 0
		      #:bugHardinessMax 20
		      #:useLisp #t
		      )
       )
 )