Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1261 1755 (N41W48 L=168)   370     69        0 (1250/1715-1273/1789)  35.5 W43-W52 N38-N43
      2  174 1263 (N41E69 L= 52)  1004    117        0 ( 160/1204- 187/1318) -76.0 E73-E65 N36-N44
      3  318 1052 (N25E47 L= 74)   983    205        1 ( 235/ 978- 393/1111) -35.5 E55-E41 N19-N29
      4  200 1069 (N28E61 L= 60)   555     62        1 ( 186/1031- 220/1103) -78.7 E62-E57 N25-N30
      5  174  978 (N23E65 L= 56)  4667    345       11 ( 107/ 879- 262/1081) -31.0 E78-E55 N16-N29
      6 1869 1018 (S20W59 L=180)   464     86        3 (1844/ 992-1897/1042) -29.7 W55-W63 S21-S17
      7 1740  953 (S18W43 L=164)   303     75        0 (1714/ 919-1765/ 979)  21.8 W40-W46 S19-S17
      8 1867  938 (S24W57 L=178)   696     70        0 (1844/ 902-1885/ 973) -68.2 W54-W60 S26-S21
      9 1434  861 (S14W19 L=140)   876    252        0 (1328/ 814-1533/ 924)   0.0 W11-W26 S15-S12
     10 1775  686 (S37W45 L=166)   487     57        2 (1752/ 663-1803/ 708)   0.0 W42-W49 S38-S35
     11  987  495 (S23E17 L=104)  1005    368        1 ( 847/ 411-1103/ 607)  12.8 E29-E07 S27-S18
     12 1621  538 (S42W28 L=149)   900    198        1 (1540/ 480-1694/ 586)   3.4 W19-W36 S43-S39
     13 1153  455 (S31E09 L=112)   490    150        1 (1085/ 413-1206/ 503)  11.3 E14-E04 S32-S28
     14  748  317 (S29E42 L= 79)  2743    477        1 ( 659/ 242- 852/ 452)  51.3 E50-E29 S34-S19
  

    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