Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1412 1810 (N39W63 L=288)  2536    257        5 (1305/1771-1527/1841) -12.5 W49-W77 N34-N42
      2 1662 1633 (N21W68 L=293)  2886    313        2 (1574/1531-1794/1730) -67.6 W64-W77 N11-N28
      3 1303 1626 (N31W37 L=262)   605    171        1 (1225/1608-1392/1644) -31.0 W31-W41 N27-N34
      4  815 1452 (N34E02 L=223)  1171    533        2 ( 591/1406-1055/1489) -17.9 E19-W12 N26-N37
      5 1298 1295 (N12W22 L=248)   485    159        1 (1261/1223-1340/1360) -90.0 W21-W23 N07-N16
      6 1789 1126 (S10W53 L=278)   374     64        1 (1764/1094-1813/1161) -53.1 W50-W54 S11-S07
      7  216  901 (N14E59 L=166)   981    116        0 ( 159/ 865- 270/ 944) -28.6 E66-E53 N11-N17
      8  929  838 (S05E10 L=215)   370    158        1 ( 873/ 768- 965/ 877) -66.8 E12-E08 S09-S01
      9 1844  776 (S33W56 L=281)   777    120        2 (1825/ 737-1879/ 838) -42.0 W52-W63 S36-S27
     10 1704  715 (S32W39 L=264)   667    143        2 (1657/ 676-1748/ 768)  18.4 W34-W43 S34-S29
     11 1204  639 (S23W01 L=226)   708    151        1 (1160/ 573-1233/ 710)  40.6 E03-W04 S25-S18
     12 1602  533 (S42W29 L=254)  1277    185        3 (1533/ 473-1657/ 613)  32.5 W22-W34 S44-S37
     13  555  379 (S24E51 L=174)   462    106        0 ( 541/ 327- 573/ 434)  37.9 E55-E46 S27-S20
     14  678  326 (S30E45 L=180)   480     98        0 ( 654/ 281- 701/ 371)  24.4 E51-E40 S32-S27
     15 1159  255 (S50E16 L=209)  1634    284        1 (1032/ 204-1290/ 311)  -2.2 E29-E02 S51-S47
  

    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