Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  419 1676 (N17E65 L=  7)  1506    141        1 ( 386/1633- 476/1731)  45.0 E78-E58 N13-N21
      2  594 1686 (N21E49 L= 23)   426     84        2 ( 571/1648- 627/1718) -80.5 E51-E47 N17-N23
      3  517 1649 (N17E52 L= 19)   450    125        0 ( 494/1620- 564/1682)  -7.1 E55-E47 N15-N19
      4 1232 1500 (N26E01 L= 70)   916    274        1 (1124/1394-1310/1563) -14.9 E09-W06 N21-N28
      5 1628 1480 (N39W27 L= 99)   807    155        1 (1608/1402-1657/1552)  85.2 W25-W30 N32-N44
      6  381 1446 (N02E53 L= 19)  1807    243        4 ( 278/1395- 500/1482)  23.6 E61-E44 S02-N05
      7  393 1269 (S08E45 L= 26)   276     70        3 ( 367/1249- 415/1298)  56.3 E47-E43 S09-S06
      8 1658 1140 (N18W35 L=106)   308     45        0 (1625/1123-1687/1160)  36.9 W32-W36 N15-N19
      9  334 1086 (S20E46 L= 26)   623    152        3 ( 274/1042- 401/1146)  45.0 E50-E41 S23-S15
     10 1816 1117 (N22W49 L=121)   620    159        0 (1751/1083-1859/1145)   9.5 W42-W54 N20-N25
     11 1747 1066 (N17W44 L=115)   416    165        0 (1704/ 992-1768/1138) -36.9 W38-W46 N13-N19
     12  223 1073 (S22E57 L= 15)   748     78        2 ( 181/1036- 263/1100) -11.3 E62-E52 S24-S20
     13  666 1018 (S16E20 L= 51)   513    140        0 ( 610/ 987- 713/1077)  54.5 E23-E18 S18-S11
     14  117 1023 (S27E73 L=359)   996     78        2 (  75/ 994- 157/1051)   8.5 E85-E65 S28-S24
     15  475 1023 (S20E33 L= 38)   454    149        0 ( 414/ 998- 551/1043)  10.3 E38-E27 S22-S18
     16 1689  936 (N08W42 L=114)   338     63        0 (1665/ 905-1721/ 959)  45.0 W40-W44 N05-N09
     17 1863  866 (N10W61 L=133)   448     81        3 (1837/ 833-1890/ 905)  -7.1 W57-W65 N09-N12
     18 1777  790 (N03W54 L=126)   428     77        1 (1758/ 752-1790/ 828)  90.0 W52-W56 N00-N05
     19 1252  688 (S19W23 L= 94)   433    117        2 (1183/ 667-1301/ 708)  14.0 W18-W26 S20-S16
     20 1615  469 (S18W58 L=130)  1056    146        2 (1572/ 412-1659/ 520) -76.0 W54-W62 S22-S14
  

    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