Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  582 1551 (N26E41 L=242)  1009    177        1 ( 548/1466- 629/1622) -74.7 E43-E39 N20-N31
      2 1560 1548 (N43W36 L=319)   457     64        0 (1534/1517-1581/1569) -63.4 W33-W38 N40-N44
      3 1807 1307 (N29W59 L=343)   533     82        0 (1784/1262-1826/1339) -68.2 W56-W61 N26-N31
      4 1630 1139 (N16W39 L=322)   363    118        0 (1587/1099-1664/1168) -23.2 W35-W42 N13-N17
      5  145 1077 (S09E71 L=212)  1293    126        3 ( 123/1014- 174/1134)  90.0 E75-E66 S12-S05
      6  216 1037 (S10E60 L=223)  1074    177        2 ( 172/ 971- 250/1108) -45.0 E66-E55 S14-S06
      7  252  996 (S12E55 L=228)  1241    266        3 ( 212/ 881- 290/1093)  74.1 E60-E51 S20-S06
      8  295  823 (S23E51 L=232)   432     64        1 ( 272/ 792- 312/ 860) -90.0 E53-E48 S24-S20
      9 1692  797 (S04W49 L=332)   354     74        1 (1676/ 755-1717/ 822)  76.0 W47-W51 S06-S02
     10 1681  632 (S14W54 L=337)  1824    334        5 (1628/ 532-1734/ 739) -52.4 W45-W60 S21-S08
     11  838  689 (S23E07 L=276)   271     65        1 ( 814/ 657- 865/ 724) -45.0 E08-E05 S24-S21
     12 1772  600 (S15W67 L=350)  2390    264        3 (1727/ 523-1819/ 689) -65.6 W62-W75 S20-S09
     13 1159  514 (S30W18 L=301)  1207    352        0 ( 999/ 476-1316/ 558)  24.2 W07-W27 S34-S24
     14 1630  474 (S25W58 L=341)   685    110        1 (1593/ 453-1684/ 500)   0.0 W53-W66 S26-S23
     15 1344  269 (S45W47 L=331)  2585    356        3 (1209/ 227-1505/ 340)  21.8 W34-W61 S50-S36
  

    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