Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1683 (N20E50 L= 23)   367     64        1 ( 561/1648- 603/1709) -78.7 E51-E48 N17-N22
      2  418 1669 (N16E64 L=  8)   935    102        3 ( 379/1645- 469/1700)  18.4 E68-E59 N14-N18
      3  516 1651 (N17E53 L= 20)   518    140        1 ( 488/1623- 569/1692) -12.5 E56-E47 N15-N19
      4 1219 1507 (N26E02 L= 70)   912    295        1 (1109/1400-1303/1562) -11.3 E10-W05 N21-N28
      5 1616 1480 (N38W26 L= 99)   789    162        1 (1597/1397-1645/1558)  81.3 W24-W29 N32-N45
      6  393 1451 (N02E52 L= 20)  1667    268        4 ( 274/1401- 504/1485)  22.4 E61-E43 S02-N05
      7 1777 1257 (N29W44 L=116)   364     60        2 (1759/1220-1798/1287) -56.3 W41-W45 N27-N31
      8 1644 1146 (N18W34 L=106)   257     54        1 (1612/1128-1676/1165)  36.9 W31-W35 N15-N19
      9  235 1073 (S22E56 L= 17)  2442    412        5 (  77/1004- 400/1152)  15.6 E84-E41 S27-S15
     10  559 1025 (S18E27 L= 45)  1218    378        2 ( 377/ 989- 702/1074)  24.4 E41-E18 S22-S12
     11 1679  941 (N07W41 L=114)   361     64        1 (1651/ 911-1710/ 965)  63.4 W38-W43 N05-N09
     12 1772  800 (N03W54 L=126)   390     62        2 (1752/ 761-1786/ 834) -76.0 W51-W55 N01-N05
     13 1247  696 (S18W22 L= 95)   340     83        1 (1195/ 681-1289/ 714)  21.8 W19-W24 S20-S16
     14 1619  483 (S18W58 L=130)  1143    176        3 (1573/ 417-1658/ 558) -73.3 W54-W61 S22-S12
  

    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