DrivingAround

DrivingAround preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.1.1 • Viewed 44 times • Downloaded 9 times • Run 0 times
Download the 'DrivingAround' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

to go
  ask turtles [if pxcor = -15 [if pycor < 15 [facexy -15 16 forward 1]]]
  ask turtles [if pycor = 15 [if pxcor < 15 [facexy 16 15 forward 1]]]
  ask turtles [if pxcor = 15 [if pycor > -15 [facexy 15 -16 forward 1]]]
  ask turtles [if pycor = -15 [if pxcor > -15 [facexy -16 -15 forward 1]]]
  tick
end 

to setup
  clear-all
  setup-patches
  setup-turtles
  reset-ticks
end 

to setup-patches
  ask patches [set pcolor grey]
  paint-path
end 

to setup-turtles
  create-turtles 1 [setxy -15 0 facexy -15 16]
  create-turtles 1 [setxy 0 15 facexy 16 15]
  create-turtles 1 [setxy 15 0 facexy 15 -16]
  create-turtles 1 [setxy 0 -15 facexy -16 -15]
  set-default-shape turtles "car top"
  turtle-color
end 

to turtle-color
  ask turtle 1 [set color blue]
  ask turtle 2 [set color red]
  ask turtle 3 [set color yellow]
  ask turtle 4 [set color white]
end 

to paint-path
  create-turtles 1 [setxy -16 -16]
  ask turtle 0 [facexy -16 16]
  paint1
  ask turtle 0 [setxy -15 -16]
  paint1
  ask turtle 0 [setxy -14 -16]
  paint1
  ask turtle 0 [setxy -13 -16]
  paint
  ask turtle 0 [setxy -12 -16]
  paint
  ask turtle 0 [setxy -11 -16]
  paint
  ask turtle 0 [setxy -10 -16]
  paint
  ask turtle 0 [setxy -9 -16]
  paint
  ask turtle 0 [setxy -8 -16]
  paint
  ask turtle 0 [setxy -7 -16]
  paint
  ask turtle 0 [setxy -6 -16]
  paint
  ask turtle 0 [setxy -5 -16]
  paint
  ask turtle 0 [setxy -4 -16]
  paint
  ask turtle 0 [setxy -3 -16]
  paint
  ask turtle 0 [setxy -2 -16]
  paint
  ask turtle 0 [setxy -1 -16]
  paint
  ask turtle 0 [setxy 0 -16]
  paint
  ask turtle 0 [setxy 1 -16]
  paint
  ask turtle 0 [setxy 2 -16]
  paint
  ask turtle 0 [setxy 3 -16]
  paint
  ask turtle 0 [setxy 4 -16]
  paint
  ask turtle 0 [setxy 5 -16]
  paint
  ask turtle 0 [setxy 6 -16]
  paint
  ask turtle 0 [setxy 7 -16]
  paint
  ask turtle 0 [setxy 8 -16]
  paint
  ask turtle 0 [setxy 9 -16]
  paint
  ask turtle 0 [setxy 10 -16]
  paint
  ask turtle 0 [setxy 11 -16]
  paint
  ask turtle 0 [setxy 12 -16]
  paint
  ask turtle 0 [setxy 13 -16]
  paint
  ask turtle 0 [setxy 14 -16]
  paint1
  ask turtle 0 [setxy 15 -16]
  paint1
  ask turtle 0 [setxy 16 -16]
  paint1
  ask turtle 0 [die]
end 

to paint
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [forward 27]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
end 

to paint1
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
  ask turtle 0 [forward 1]
  ask turtle 0 [set pcolor black]
end 

There is only one version of this model, created over 3 years ago by Alexander Cathey-Roberts.

Attached files

File Type Description Last updated
DrivingAround.png preview Preview for 'DrivingAround' over 3 years ago, by Alexander Cathey-Roberts Download

This model does not have any ancestors.

This model does not have any descendants.