Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1500 1661 (N38W39 L=221)   396     57        0 (1478/1635-1525/1681)  21.8 W36-W41 N36-N39
      2  422 1584 (N35E46 L=136)   522    103        2 ( 382/1565- 463/1604)  15.9 E49-E42 N33-N36
      3  697 1578 (N33E23 L=159)   606    169        1 ( 615/1562- 777/1597)   0.0 E28-E16 N31-N34
      4 1655 1346 (N16W43 L=225)   649    203        0 (1569/1313-1738/1394) -17.1 W37-W50 N14-N19
      5  389 1310 (N16E42 L=140)   454    107        0 ( 353/1283- 431/1345) -23.2 E45-E38 N14-N18
      6  263 1179 (N08E52 L=130)   384     82        1 ( 240/1150- 286/1220)  45.0 E54-E50 N06-N11
      7 1012 1159 (N05E01 L=182)   473    116        0 ( 961/1104-1055/1209) -60.3 E03-W01 N01-N08
      8  983  959 (S07E03 L=180)   622    191        0 ( 932/ 862-1056/1024)  56.3 E05-W01 S12-S03
      9   89  904 (S06E78 L=104)  2355    198        2 (  75/ 827- 106/ 972) -71.6 E83-E73 S11-S02
     10 1389  876 (S12W22 L=205)   225     69        1 (1358/ 846-1426/ 900)  26.6 W20-W24 S14-S10
     11  158  787 (S14E67 L=115)  1960    391        5 ( 129/ 706- 194/ 887)  45.0 E73-E61 S18-S08
     12 1242  821 (S15W13 L=195)   237     81        2 (1212/ 787-1266/ 865)  59.0 W11-W14 S17-S12
     13 1661  796 (S17W43 L=225)   453    105        1 (1636/ 762-1700/ 829)  68.2 W40-W46 S19-S14
     14  352  796 (S15E46 L=136)   395     59        2 ( 322/ 773- 372/ 818)  21.8 E49-E44 S16-S13
     15  622  778 (S17E26 L=156)   257     47        1 ( 608/ 746- 638/ 811)  76.0 E27-E24 S18-S14
     16 1824  766 (S18W59 L=241)   628     67        0 (1795/ 728-1851/ 798)  45.0 W55-W61 S20-S16
     17 1828  659 (S25W61 L=244)   598    206        2 (1785/ 635-1875/ 683)  11.3 W56-W66 S26-S23
     18  237  617 (S25E62 L=120)   667    229        2 ( 201/ 576- 265/ 658)  29.1 E67-E57 S27-S22
     19  351  517 (S32E54 L=128)  1303    297        1 ( 330/ 422- 378/ 635)  60.3 E58-E48 S38-S24
     20 1224  519 (S35W14 L=196)   888    203        1 (1150/ 440-1304/ 600)  47.7 W08-W18 S40-S29
     21  636  440 (S39E32 L=150)  1522    420        3 ( 579/ 368- 689/ 528)  40.2 E39-E26 S44-S33
  

    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