Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1049 1912 (N57E45 L=  5)   627     59        0 (1029/1887-1077/1938) -13.2 E54-E37 N54-N59
      2 1390 1761 (N57W01 L= 51)   501     92        2 (1359/1734-1429/1778)  39.8 E01-W05 N52-N60
      3  875 1509 (N19E23 L= 27)   219     57        0 ( 844/1494- 909/1525)  14.0 E24-E20 N18-N20
      4 1820 1018 (N18W54 L=103)  2629    442        7 (1759/ 895-1871/1176) -56.3 W47-W62 N12-N27
      5  135 1027 (S25E72 L=338)   761     99        0 ( 122/ 973- 152/1070) -71.6 E74-E68 S28-S22
      6 1573 1046 (N12W32 L= 81)   295     81        1 (1546/1023-1602/1068) -14.0 W29-W33 N10-N13
      7 1735  930 (N11W48 L= 97)   384     92        2 (1720/ 895-1756/ 967) -36.9 W45-W50 N08-N13
      8  259  913 (S30E52 L=357)   560    154        0 ( 208/ 876- 310/ 941)  17.1 E59-E46 S33-S27
      9 1711  650 (S05W57 L=106)   453     33        2 (1686/ 626-1736/ 673) -11.3 W54-W59 S06-S03
     10  502  541 (S49E25 L= 24)   288     44        1 ( 478/ 519- 522/ 568) -56.3 E27-E22 S50-S46
     11 1043  492 (S35W19 L= 68)   514     98        2 ( 998/ 474-1093/ 521)  15.9 W15-W22 S36-S32
     12 1383  330 (S33W52 L=101)   442     59        1 (1352/ 314-1410/ 350)  21.8 W49-W55 S34-S31
     13 1161  157 (S53W61 L=111)   917     91        2 (1130/ 125-1192/ 196) -10.8 W53-W74 S54-S49
  

    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