Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1452 1756 (N37W62 L=289)  1492    222        2 (1366/1716-1548/1783) -15.9 W50-W74 N33-N39
      2 1569 1405 (N15W45 L=272)   848    170        2 (1544/1318-1595/1484)  59.0 W41-W49 N09-N19
      3 1282 1173 (N10W18 L=245)   293    100        0 (1264/1125-1309/1225) -90.0 W17-W19 N06-N12
      4 1045 1140 (N13W04 L=230)   374    189        0 ( 975/1066-1102/1180) -66.0 W00-W05 N07-N16
      5  167 1129 (N29E66 L=160)   709    102        1 ( 127/1113- 213/1148)  -7.6 E74-E59 N27-N29
      6 1400 1097 (N02W23 L=250)   265     46        1 (1376/1070-1419/1127)  76.0 W22-W24 N00-N04
      7 1238  988 (N00W11 L=238)   864    307        0 (1168/ 851-1340/1047)  19.7 W04-W18 S05-N03
      8  243  923 (N16E57 L=170)   511     98        0 ( 199/ 889- 272/ 949) -20.6 E62-E54 N13-N17
      9 1599  901 (S14W32 L=259)   545    170        0 (1564/ 844-1647/ 936)  23.2 W28-W36 S16-S11
     10  213  836 (N11E62 L=164)   650     70        0 ( 191/ 804- 239/ 871) -76.0 E65-E59 N08-N12
     11 1608  827 (S19W32 L=258)   323     33        0 (1589/ 800-1624/ 855)  76.0 W30-W33 S20-S16
     12 1094  802 (S07E01 L=226)   240    120        0 (1043/ 784-1143/ 827) -26.6 E03-W02 S08-S04
     13  709  671 (S07E27 L=200)   487    152        0 ( 695/ 596- 725/ 742)  71.6 E28-E24 S11-S02
     14  261  725 (N04E60 L=167)   644    120        0 ( 202/ 712- 320/ 740)  -4.1 E67-E53 N02-N04
     15  413  559 (S09E52 L=175)  3357    335        9 ( 336/ 459- 540/ 669) -47.5 E60-E42 S15-N00
     16  434  485 (S14E54 L=173)   368     54        1 ( 414/ 458- 454/ 520)  63.4 E55-E52 S15-S11
     17  462  419 (S18E56 L=171)  2861    233        7 ( 400/ 329- 529/ 504)  25.6 E69-E46 S24-S13
     18  649  357 (S26E44 L=183)  1692    381        2 ( 544/ 246- 781/ 500)  20.7 E64-E27 S33-S18
     19  372  434 (S16E65 L=162)   806     55        1 ( 338/ 415- 398/ 457)  -8.1 E69-E61 S17-S14
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y