Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  931 1780 (N43E21 L=166)   388     22        1 ( 908/1756- 952/1804) -45.0 E23-E19 N41-N45
      2  517 1720 (N33E54 L=134)   489     53        0 ( 499/1690- 533/1747) -35.5 E57-E49 N30-N35
      3  419 1529 (N19E50 L=137)  1255    181        2 ( 367/1463- 453/1605)  90.0 E54-E46 N13-N24
      4 1252 1460 (N24W08 L=196)   483     55        1 (1218/1427-1281/1492)  90.0 W06-W10 N21-N26
      5  927 1431 (N17E11 L=176)   197    101        0 ( 898/1386- 954/1470) -51.3 E14-E09 N14-N19
      6  437 1391 (N10E44 L=144)   527    123        1 ( 413/1337- 471/1445) -74.1 E45-E40 N06-N13
      7 1318 1323 (N16W14 L=202)   412    111        1 (1274/1300-1374/1368)   9.5 W11-W17 N14-N18
      8 1869 1258 (N23W61 L=249)  2837    309        3 (1749/1139-1924/1345) -24.2 W47-W71 N16-N26
      9  647 1229 (N02E26 L=162)   479    156        1 ( 584/1193- 712/1260)   0.0 E29-E21 N00-N03
     10 1109 1168 (N04W03 L=191)   375    136        1 (1068/1106-1144/1210) -45.0 W00-W05 N00-N06
     11  758 1041 (S08E16 L=172)   304     89        1 ( 730/ 997- 783/1079)  71.6 E17-E14 S11-S05
     12  886  909 (S14E07 L=181)   234    138        0 ( 830/ 880- 911/ 961)  51.3 E10-E05 S16-S11
     13 1536  874 (S07W34 L=222)   439     65        0 (1510/ 846-1566/ 915) -36.9 W32-W36 S08-S04
     14  832  779 (S23E09 L=179)   547    131        2 ( 779/ 758- 898/ 810)   7.1 E12-E04 S24-S21
     15 1471  720 (S17W33 L=221)   551    209        2 (1379/ 687-1567/ 742)  26.6 W27-W39 S20-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