Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  571 1544 (N41E34 L= 65)   541     75        1 ( 546/1513- 597/1578) -39.8 E38-E31 N38-N43
      2 1074 1560 (N39W08 L=108)   499    145        2 (1002/1537-1141/1576) -10.3 W02-W13 N37-N40
      3  549 1302 (N24E31 L= 68)   519    119        0 ( 528/1240- 571/1356) -66.8 E33-E29 N20-N27
      4  322 1223 (N20E50 L= 50)   302    106        0 ( 310/1175- 337/1275)  80.5 E51-E49 N16-N22
      5 1768 1135 (N05W54 L=153)   377     48        1 (1747/1112-1793/1157) -11.3 W51-W56 N03-N06
      6 1869  996 (S05W64 L=164)   880    130        3 (1825/ 943-1901/1042) -37.9 W58-W69 S08-S01
      7  198 1008 (N06E62 L= 37)   392     53        2 ( 175/ 993- 228/1027) -15.9 E65-E58 N05-N07
      8  218  886 (S01E61 L= 39)  1133    189        0 ( 200/ 804- 250/ 962)  56.3 E63-E56 S06-N03
      9 1795  891 (S10W55 L=155)   422     96        0 (1761/ 862-1828/ 932)  29.7 W51-W58 S11-S07
     10 1838  873 (S12W60 L=160)   453     48        1 (1809/ 855-1870/ 892)   0.0 W56-W64 S12-S10
     11 1808  804 (S16W57 L=157)  2851    261        6 (1732/ 728-1897/ 857)  26.6 W49-W71 S20-S12
     12 1428  792 (S12W24 L=124)   372    139        0 (1377/ 738-1471/ 846)  45.0 W20-W27 S15-S09
     13  798  779 (S09E16 L= 84)   319     84        1 ( 764/ 747- 828/ 807) -14.0 E17-E13 S11-S07
     14 1810  688 (S24W61 L=161)  2055    245        3 (1767/ 601-1867/ 777)  70.0 W56-W67 S29-S18
     15  436  656 (S16E44 L= 56)   402    101        0 ( 397/ 614- 457/ 694) -68.2 E46-E42 S18-S13
     16  930  472 (S30E11 L= 89)  1457    339        2 ( 811/ 387-1042/ 603)  36.4 E20-E01 S36-S21
     17 1177  530 (S28W07 L=107)   363    103        1 (1159/ 474-1191/ 576) -90.0 W05-W08 S32-S24
     18  468  495 (S27E47 L= 53)   543    131        1 ( 414/ 476- 535/ 511)   4.4 E52-E39 S28-S25
     19  754  423 (S33E25 L= 75)   319     62        1 ( 720/ 410- 792/ 438)  -9.5 E27-E21 S34-S32
  

    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