Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1541 1693 (N32W58 L= 26)   650    112        1 (1511/1664-1579/1712) -26.6 W54-W61 N30-N33
      2  993 1575 (N41W13 L=340)   388     79        2 ( 960/1539-1017/1613)  26.6 W09-W15 N38-N43
      3 1738 1417 (N11W60 L= 27)   389     67        0 (1726/1385-1750/1448)  63.4 W58-W62 N09-N13
      4 1002 1407 (N30W08 L=335)   279     71        1 ( 965/1392-1041/1427) -36.9 W05-W09 N28-N31
      5 1379 1404 (N21W31 L=359)   608    210        2 (1278/1386-1473/1425) -17.1 W24-W37 N17-N23
      6 1645 1379 (N12W50 L= 17)   336     58        1 (1619/1355-1669/1399) -14.0 W47-W51 N10-N13
      7 1266 1236 (N14W19 L=346)   249     49        0 (1236/1208-1289/1257) -56.3 W17-W20 N11-N15
      8  981 1175 (N17W01 L=328)   227    132        1 ( 909/1154-1034/1185) -33.7 E03-W03 N14-N18
      9 1294 1132 (N07W18 L=345)   229     60        0 (1279/1093-1306/1164)  63.4 W16-W19 N05-N09
     10  256  849 (N10E57 L=270)   451     83        0 ( 235/ 818- 285/ 900) -68.2 E58-E54 N07-N12
     11 1408  716 (S20W17 L=344)   366    134        2 (1372/ 658-1449/ 769)  35.5 W13-W20 S22-S17
     12 1217  430 (S34E01 L=326)   346     40        0 (1191/ 406-1247/ 452)  14.0 E03-W01 S36-S33
     13 1512  336 (S53W23 L=351)   422     64        0 (1480/ 322-1542/ 354)   0.0 W19-W26 S55-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