Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  963 1615 (N33E07 L=293)   683    103        2 ( 927/1561- 995/1670) -82.9 E09-E04 N29-N37
      2  555 1625 (N33E38 L=262)   342     68        0 ( 519/1609- 593/1640)   0.0 E40-E34 N31-N34
      3 1392 1484 (N26W23 L=323)   710    219        0 (1308/1447-1492/1533) -17.1 W17-W30 N23-N28
      4  823 1414 (N19E14 L=286)   337    104        0 ( 802/1360- 847/1463) -71.6 E15-E12 N15-N22
      5  237 1346 (N14E59 L=241)   532     71        1 ( 208/1313- 258/1379)  53.1 E61-E56 N12-N16
      6 1572 1311 (N16W35 L=334)   902    290        1 (1442/1232-1687/1370) -22.4 W25-W43 N11-N18
      7 1872 1216 (N12W62 L=  2)  1778    231        2 (1844/1129-1927/1330) -67.4 W59-W68 N07-N19
      8  163 1243 (N08E65 L=234)   583     53        1 ( 131/1223- 198/1263) -10.3 E71-E60 N07-N09
      9  273 1231 (N07E52 L=248)   322     37        0 ( 257/1209- 295/1252)  33.7 E53-E50 N05-N08
     10 1536 1187 (N08W31 L=331)   232     71        0 (1503/1175-1577/1200)  11.3 W29-W34 N06-N08
     11 1578 1063 (N01W35 L=334)   561    162        1 (1558/ 989-1607/1144) -76.0 W33-W37 S03-N05
     12 1171  907 (S11W09 L=309)   293    129        0 (1135/ 852-1217/ 960)  56.3 W07-W11 S13-S07
     13 1830  820 (S12W59 L=359)  1687    168        5 (1778/ 759-1891/ 874)  35.0 W54-W65 S15-S08
     14  976  673 (S25E02 L=298)  1150    317        1 ( 904/ 561-1109/ 755)  50.2 E06-W06 S32-S19
     15 1804  689 (S19W61 L=  1)   354     48        1 (1773/ 673-1832/ 709)  18.4 W57-W63 S20-S18
     16 1647  592 (S27W48 L=348)  1076    147        1 (1559/ 562-1712/ 624)  13.0 W40-W53 S28-S24
     17  259  573 (S32E65 L=235)   681     89        1 ( 223/ 543- 302/ 597)   3.8 E73-E58 S34-S31
     18 1021  539 (S34W02 L=302)   392     81        1 ( 972/ 521-1072/ 559)  -9.5 E01-W05 S35-S32
     19 1479  374 (S43W44 L=344)  2560    396        3 (1292/ 349-1657/ 415)   7.7 W25-W63 S45-S38
     20  664  342 (S50E31 L=269)  1734    296        2 ( 506/ 310- 798/ 386)   3.3 E51-E16 S52-S46
  

    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