Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1625 1676 (N39W69 L=299)   832     97        1 (1602/1633-1652/1714)   9.9 W61-W84 N36-N40
      2 1365 1656 (N42W37 L=268)   871    204        1 (1271/1625-1469/1677) -20.6 W29-W45 N38-N45
      3 1017 1613 (N44W06 L=236)   863    244        1 ( 914/1579-1133/1653)   6.3 E02-W16 N41-N45
      4  505 1321 (N27E34 L=196)   352     53        1 ( 483/1293- 535/1342) -21.8 E36-E31 N25-N28
      5 1614 1208 (N10W41 L=271)   449    155        0 (1561/1166-1686/1231)   5.2 W36-W47 N08-N11
      6 1089 1156 (N13W05 L=235)   514    249        1 ( 982/1115-1191/1197) -26.6 E01-W11 N09-N15
      7 1817  906 (S11W56 L=287)   358     60        0 (1802/ 876-1832/ 939)  53.1 W54-W58 S12-S08
      8 1694  692 (S23W45 L=276)   401    116        0 (1643/ 659-1732/ 733)  23.2 W40-W48 S24-S20
      9 1506  618 (S25W30 L=260)   409     95        0 (1457/ 602-1559/ 642)   0.0 W25-W33 S26-S23
     10  292  533 (S22E65 L=165)  1400    149        1 ( 276/ 454- 308/ 599)  47.7 E73-E60 S28-S17
     11  524  393 (S33E47 L=183)  2106    276        2 ( 483/ 299- 562/ 533)  46.5 E61-E41 S41-S22
     12 1337  482 (S33W17 L=248)   272     35        0 (1308/ 466-1366/ 496)   0.0 W15-W19 S34-S31
     13 1387  328 (S47W24 L=255)   831    148        1 (1333/ 305-1455/ 356)   5.2 W19-W30 S49-S43
     14 1127  244 (S51E00 L=230)  1674    229        3 (1022/ 216-1220/ 284)  -9.5 E09-W09 S54-S47
     15  803  176 (S55E39 L=192)  1329    122        2 ( 745/ 154- 864/ 204)  -8.7 E46-E30 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