Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  488 1705 (N22E58 L=237)  1941    176        3 ( 410/1657- 568/1743)  35.0 E65-E51 N17-N25
      2 1413 1564 (N35W11 L=306)   921    155        3 (1330/1526-1485/1595)   4.8 W04-W16 N33-N37
      3  578 1315 (S01E33 L=262)   541    212        2 ( 518/1259- 653/1394) -15.3 E38-E27 S02-N03
      4  259 1368 (S03E61 L=234)   495     61        1 ( 228/1343- 292/1388)  18.4 E64-E57 S04-S01
      5 1685 1232 (N22W36 L=331)   379     63        0 (1669/1193-1696/1272) -53.1 W34-W37 N19-N24
      6 1584 1222 (N18W28 L=323)   562    126        0 (1530/1189-1649/1257)   6.3 W24-W33 N17-N19
      7 1905 1034 (N18W62 L=357)  3051    360        5 (1866/ 911-1936/1226) -63.4 W57-W69 N10-N30
      8  211 1067 (S21E58 L=237)  1085    169        1 ( 183/ 982- 240/1133)  68.2 E61-E55 S26-S16
      9  819  972 (S15E10 L=285)   346    146        0 ( 798/ 908- 848/1039) -82.9 E11-E08 S18-S10
     10 1849  937 (N11W57 L=352)  1186    176        1 (1820/ 859-1879/1026) -37.9 W51-W62 N07-N14
     11  962  963 (S12E02 L=293)   219     56        2 ( 936/ 942- 992/ 980) -18.4 E03-W00 S13-S10
     12 1736  884 (N04W47 L=342)   404     87        0 (1690/ 863-1775/ 911)  38.7 W44-W50 N01-N06
     13  383  610 (S47E40 L=255)   738     98        0 ( 336/ 577- 429/ 645) -11.3 E45-E35 S48-S45
     14  507  588 (S45E27 L=268)   401     54        1 ( 478/ 559- 534/ 615) -26.6 E29-E23 S47-S43
     15 1630  355 (S26W71 L=  6)   759     64        2 (1592/ 337-1665/ 375)   7.6 W64-W79 S26-S23
  

    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