Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  881 1757 (N45E30 L=209)   518     45        1 ( 860/1723- 903/1786) -56.3 E32-E26 N41-N47
      2  286 1520 (N17E70 L=169)  1469     99        3 ( 251/1481- 328/1557)  -9.9 E85-E61 N15-N19
      3 1763 1483 (N42W58 L=297)   697     97        0 (1723/1445-1804/1508)  -4.8 W51-W65 N39-N44
      4 1147 1223 (N13W04 L=243)  1202    466        4 (1026/1163-1318/1273)   3.2 E03-W15 N09-N16
      5  848 1174 (N05E13 L=226)   397    141        0 ( 835/1105- 863/1243) -69.4 E14-E10 N01-N09
      6 1066 1152 (N07W00 L=239)   561    176        1 (1013/1113-1145/1208)  -7.1 E03-W05 N05-N10
      7  253 1036 (S12E54 L=185)   385    150        0 ( 240/ 977- 266/1124)  90.0 E55-E52 S15-S06
      8 1357 1067 (N07W19 L=258)   257    112        0 (1312/1046-1406/1082)   9.5 W16-W22 N05-N08
      9  740  989 (S07E16 L=222)   238     73        0 ( 716/ 954- 761/1016) -26.6 E18-E14 S09-S05
     10 1100  830 (S11W08 L=246)   969    350        0 (1030/ 691-1172/ 966)  81.0 W04-W09 S20-S01
     11  200  896 (S22E60 L=178)  1522    181        0 ( 129/ 837- 262/ 951)  20.0 E74-E52 S26-S17
     12 1523  649 (S15W39 L=278)   371     91        0 (1478/ 618-1556/ 674) -15.9 W35-W42 S16-S13
     13  554  350 (S56E31 L=207)  1527    180        4 ( 486/ 306- 624/ 397) -21.8 E39-E22 S58-S51
  

    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