Polygon+Clipping 源代码

turtles-own [ ideal-temp output-heat unhappiness ] patches-own [ temp ] to setup clear-all ;; creating the bugs the …

globals [ percent-similar ;; on the average, what percent of a turtle's neighbors ;; are the same color as t…

breeds [drogowiec robot] to setup clear-all ask patches [set pcolor green] end ;-------------------------------------------…

turtles-own [ partner ;; the turtle that is our partner, or "nobody" if we don't have one ] ;; This procedure will setup 5…

Breeds [jobs servers] servers-own [current_job busy? start_time] jobs-own [q_start_time process_end_time complete?] Globals [Time …

globals [ticks] turtles-own [compteur clr] to setup ca ask patches [ ;;randomly distributes wood chips if random-f…

globals [ ;;all of the areas are in percent of screen a_b ;area covered by black daisies a_w ;area covered by white daisies…

breeds [element1 element2] ;; two different materials or phases ;; element1 is the main material …

Breeds [checkouts customers servers] turtles-own [state] checkouts-own [server customers_waiting customer_loads current_customer s…

turtles-own [speed] to setup ca crt num_cars ask turtles [ set color yellow set xcor random screen-si…