Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  872 1870 (N64W27 L=  5)  1352    182        1 ( 801/1808- 939/1924)   7.4 W14-W45 N60-N67
      2  770 1799 (N61W08 L=347)   400     33        0 ( 746/1774- 790/1819) -78.7 W05-W10 N58-N63
      3 1097 1677 (N40W26 L=  4)  1941    401        3 ( 922/1642-1285/1720) -21.8 W12-W37 N32-N45
      4 1667 1582 (N18W62 L= 40)   421     98        0 (1616/1563-1711/1606)  -4.8 W56-W68 N17-N19
      5 1316 1582 (N28W35 L= 13)   287     31        0 (1300/1559-1337/1605)  56.3 W32-W36 N26-N29
      6  671 1542 (N43E10 L=328)   483     98        0 ( 638/1498- 708/1584)  29.7 E13-E06 N40-N45
      7 1634 1425 (N11W49 L= 27)   574     82        0 (1603/1386-1665/1461) -80.5 W47-W50 N07-N13
      8 1828 1265 (S03W60 L= 38)   450     35        1 (1805/1242-1850/1284)  21.8 W57-W63 S04-S01
      9 1370 1185 (N05W23 L=  2)   488    118        0 (1328/1135-1405/1234) -80.5 W21-W24 N01-N07
     10  240 1130 (N27E53 L=286)   548     68        2 ( 217/1091- 270/1162) -78.7 E55-E49 N24-N29
     11  406 1108 (N22E37 L=301)   397     63        2 ( 378/1073- 439/1135)   0.0 E39-E34 N20-N24
     12  198 1045 (N23E58 L=280)  2910    246        8 ( 132/ 961- 259/1130) -47.7 E67-E51 N17-N28
     13 1728 1066 (S11W45 L= 23)   419     58        0 (1699/1035-1757/1096) -59.0 W42-W46 S13-S08
     14 1380  932 (S10W18 L=356)  1051    286        0 (1334/ 811-1407/1070)  55.3 W12-W22 S15-S02
     15  579  971 (N11E27 L=311)   959    230        1 ( 485/ 914- 675/1052) -50.7 E32-E22 N05-N17
     16  307 1000 (N18E47 L=291)   400     72        1 ( 282/ 964- 327/1033)  56.3 E49-E44 N15-N19
     17  214  817 (N09E61 L=278)   628     74        2 ( 189/ 782- 240/ 857)  45.0 E63-E56 N07-N11
     18  182  732 (N05E68 L=270)  2886    247        5 ( 122/ 659- 241/ 799) -26.6 E77-E60 N00-N08
     19 1821  637 (S41W54 L= 32)  1069    128        0 (1766/ 616-1880/ 658) -18.4 W45-W69 S45-S37
     20 1678  555 (S42W36 L= 14)   900    192        0 (1611/ 502-1747/ 614)  12.1 W29-W43 S44-S39
     21 1039  498 (S27E13 L=326)   221     38        1 (1018/ 475-1062/ 523)  33.7 E14-E11 S27-S24
     22  632  211 (S37E61 L=277)   712     73        1 ( 598/ 186- 662/ 245)  10.6 E70-E54 S38-S34
  

    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