Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1604 1671 (N31W61 L=293)  1375    126        3 (1543/1641-1671/1694)  -6.0 W54-W74 N28-N32
      2 1145 1594 (N34W19 L=250)  1497    367        4 ( 984/1552-1305/1630) -20.9 W07-W28 N28-N37
      3 1544 1555 (N24W47 L=278)   657    147        0 (1495/1484-1593/1602) -83.7 W44-W48 N19-N28
      4 1747 1562 (N21W69 L=301)  1553    162        0 (1675/1527-1812/1595) -19.4 W62-W80 N18-N24
      5 1736 1506 (N18W63 L=294)  1148    163        0 (1680/1461-1805/1559) -41.6 W58-W69 N14-N22
      6  628 1492 (N36E20 L=211)   803    153        2 ( 547/1448- 701/1520) -21.0 E27-E14 N31-N39
      7  441 1490 (N39E37 L=194)   640     86        0 ( 412/1454- 479/1515)  26.6 E40-E33 N36-N40
      8 1171 1386 (N20W15 L=246)   225     57        0 (1137/1374-1201/1398) -14.0 W12-W16 N18-N20
      9 1727 1240 (N03W50 L=282)   316     75        0 (1689/1225-1753/1266)   8.1 W46-W53 N01-N03
     10  499 1150 (N16E31 L=200)   720    129        2 ( 453/1095- 548/1198) -53.1 E34-E28 N11-N19
     11 1802 1035 (S10W54 L=285)  1234    217        2 (1730/ 940-1850/1100) -42.3 W47-W58 S16-S05
     12  183 1004 (N11E61 L=170)   484     60        0 ( 156/ 989- 220/1029) -20.6 E64-E56 N10-N13
     13 1831  769 (S28W58 L=290)   911    150        1 (1772/ 701-1878/ 817)  18.4 W51-W64 S31-S24
     14  475  565 (S19E45 L=186)   356     96        0 ( 435/ 532- 501/ 603) -71.6 E47-E43 S21-S15
     15 1128  307 (S48E07 L=225)   902    233        0 (1047/ 265-1199/ 390)  23.2 E14-W00 S51-S42
  

    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