Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  584 1752 (N71E20 L=108)  1406    119        4 ( 535/1700- 631/1791)  45.0 E32-E09 N65-N75
      2 1559 1626 (N24W59 L=187)   422    106        1 (1532/1584-1599/1662)  74.1 W57-W61 N20-N27
      3 1247 1617 (N34W35 L=163)   459    159        1 (1177/1594-1324/1649) -53.1 W32-W39 N30-N38
      4 1391 1455 (N21W35 L=163)   664    292        0 (1270/1404-1512/1484) -40.2 W28-W41 N14-N25
      5  865 1346 (N30E01 L=127)   420    174        0 ( 807/1305- 943/1396) -58.0 E03-W02 N25-N34
      6  325 1301 (N40E47 L= 81)   552     82        3 ( 290/1263- 359/1332) -45.0 E51-E42 N36-N42
      7  777 1244 (N26E09 L=119)   645    238        0 ( 702/1214- 888/1308) -45.0 E13-E02 N21-N31
      8  701 1009 (N14E19 L=108)   227    115        0 ( 681/ 956- 726/1054)  38.7 E21-E16 N11-N16
      9  501  931 (N14E34 L= 93)   595    155        1 ( 440/ 906- 568/ 968) -32.0 E38-E29 N11-N17
     10  340  903 (N15E48 L= 80)   419     98        1 ( 303/ 871- 363/ 942)  45.0 E51-E45 N13-N17
     11  195  891 (N17E64 L= 63)   480     56        1 ( 177/ 867- 217/ 921) -56.3 E66-E60 N15-N18
     12  746  887 (N06E19 L=108)   248    105        1 ( 723/ 828- 769/ 919)  51.3 E21-E17 N02-N08
     13 1274  779 (S13W08 L=136)   307     94        0 (1256/ 733-1290/ 824)  59.0 W06-W09 S16-S10
     14  264  755 (N08E60 L= 68)   863    127        1 ( 226/ 726- 313/ 802) -26.6 E63-E54 N05-N10
     15  866  652 (S10E19 L=109)   267     71        1 ( 834/ 619- 897/ 680)  21.8 E21-E16 S11-S08
     16 1564  612 (S33W24 L=152)   380     71        1 (1541/ 577-1579/ 649)  68.2 W22-W25 S35-S30
     17  703  583 (S11E31 L= 97)   308     93        0 ( 685/ 535- 717/ 626)  71.6 E32-E29 S13-S07
     18  506  516 (S11E47 L= 80)   363     61        1 ( 484/ 482- 527/ 548)  78.7 E48-E45 S13-S08
     19  437  520 (S09E53 L= 75)   328     75        0 ( 413/ 496- 465/ 538) -21.8 E55-E50 S10-S08
     20  479  447 (S15E54 L= 74)  1240    203        4 ( 406/ 409- 554/ 482) -18.4 E60-E48 S17-S12
     21  512  368 (S21E57 L= 71)   397     61        0 ( 481/ 348- 544/ 391)  12.5 E61-E52 S21-S19
     22  857  351 (S30E32 L= 96)   451     93        1 ( 805/ 330- 887/ 379)  -8.1 E36-E28 S31-S27
  

    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