Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  723 1771 (N30E48 L=309)   523     98        1 ( 707/1721- 742/1811) -41.2 E53-E44 N26-N33
      2 1213 1700 (N41E11 L=346)   736    103        1 (1170/1656-1246/1745) -32.0 E15-E07 N38-N44
      3  754 1522 (N15E31 L=326)   856    283        3 ( 715/1393- 777/1634) -56.3 E35-E24 N07-N22
      4  870 1546 (N19E25 L=332)   799    199        2 ( 832/1449- 898/1629) -45.0 E30-E20 N13-N23
      5  558 1462 (N06E41 L=316)   434    147        2 ( 531/1402- 604/1510) -82.9 E42-E39 N02-N10
      6  304 1454 (N01E63 L=294)   699    106        1 ( 257/1427- 355/1476)  18.4 E67-E57 S01-N02
      7 1664 1388 (N36W32 L= 29)  1228    166        2 (1629/1308-1689/1459) -56.3 W28-W34 N30-N40
      8  976 1296 (N08E10 L=347)  1324    305        2 ( 875/1193-1088/1390)  68.2 E12-E06 N00-N15
      9  329 1195 (S14E50 L=307)   873    211        1 ( 259/1158- 419/1228)   7.6 E56-E41 S16-S12
     10 1202 1075 (N02W08 L=  5)  1172    286        0 (1116/1033-1292/1149)   0.0 W01-W13 N00-N06
     11  740  980 (S16E15 L=342)   885    292        1 ( 619/ 933- 852/1040)  34.7 E22-E09 S20-S09
     12  416  989 (S24E38 L=319)   301    106        2 ( 385/ 939- 451/1029)  66.8 E39-E35 S27-S20
     13 1667  928 (N08W41 L= 38)   567    121        0 (1651/ 860-1681/ 988) -49.4 W38-W44 N04-N11
     14  298  816 (S37E47 L=309)  1500    263        2 ( 192/ 763- 430/ 865)  20.1 E64-E34 S42-S31
     15 1106  621 (S26W17 L= 14)  2286    566        3 ( 878/ 534-1355/ 728)  47.5 W05-W28 S37-S12
     16 1629  551 (S12W55 L= 52)   865    157        3 (1562/ 512-1708/ 591)  14.9 W48-W63 S14-S10
     17  408  531 (S55E37 L=320)   995    118        2 ( 353/ 504- 459/ 568)   3.6 E45-E29 S56-S51
     18 1497  420 (S24W54 L= 51)   432    129        2 (1436/ 407-1560/ 436)  26.6 W49-W59 S26-S21
     19 1229  385 (S35W38 L= 35)   257     55        0 (1200/ 370-1257/ 401)  11.3 W34-W40 S36-S34
     20 1388  279 (S35W59 L= 56)  1808    160        2 (1326/ 220-1460/ 343) -65.6 W56-W65 S40-S29
     21 1154  248 (S47W46 L= 43)   699    103        3 (1123/ 211-1195/ 301) -13.0 W39-W52 S49-S43
  

    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