cruise.nlogo

来自「NETLOGO」· NLOGO 代码 · 共 239 行 · 第 1/5 页

  import-ppm mapfile
  export-dat mapfile
  print "..done!"
end
to import-ppm [ppmfile]
  locals [x y scale]
  set ppmfile ppmfile + ".ppm"
  file-close-all
  file-open ppmfile
  set x 1 set y file-read-line
  while [first file-read-line = "#"] [set x x + 1]
  file-close
  file-open ppmfile
  repeat x [set x file-read-line]
  set x file-read
  set y file-read
  set scale 1 + file-read
  if x != screen-size-x and y != screen-size-y [print "Oops: need to fix screen-size to match ppm file"]
  ask patches [set pcolor rgb (file-read / 256) (file-read / 256) (file-read / 256)]
  file-close
  cleanup-map
end
to cleanup-map
  ask patches with [(floor pcolor) mod 10 = 9] [set pcolor 9.9]
  ask patches with [pcolor != 9.9] [set pcolor round pcolor]
  ask patches with [pcolor > 120] [set pcolor pcolor - 110]
end
to export-dat [datfile]
  set datfile datfile + ".dat"
  file-close-all
  if file-exists? datfile [file-delete datfile]
  file-open datfile
  ask patches [file-write floor pcolor if pxcor = screen-edge-x [file-print ""]]
;  ask patches [ifelse pxcor = screen-edge-x [file-print floor pcolor][file-write floor pcolor]]
  file-close
end


; ---------------------------------------------------------------------------
;        Can be removed if data file used for map.
; ---------------------------------------------------------------------------
; Map (foo.dat) data file as string, only used if data file not used.  Avoids applet
; security exceptions in earlier systems.
; ---------------------------------------------------------------------------

to-report patchcolors
  report [
   9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9