Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1555 1558 (N20W50 L=101)   803    213        0 (1479/1503-1644/1627) -61.4 W46-W54 N14-N25
      2 1178 1553 (N30W24 L= 75)  1128    270        6 (1080/1506-1319/1585) -16.4 W16-W33 N25-N32
      3 1461 1507 (N19W40 L= 91)   912    232        1 (1362/1430-1552/1552) -61.4 W34-W44 N13-N24
      4 1733 1502 (N12W63 L=113)   457     60        1 (1699/1482-1760/1522)   0.0 W57-W65 N10-N13
      5 1214 1398 (N20W20 L= 71)   314    152        0 (1145/1381-1292/1417) -32.0 W16-W24 N16-N21
      6 1849 1246 (S05W62 L=113)   417     57        2 (1831/1215-1864/1278) -76.0 W59-W63 S07-S03
      7  259 1077 (N23E51 L=  0)   943    206        2 ( 175/ 996- 333/1125) -29.4 E60-E44 N16-N26
      8 1551 1069 (S07W32 L= 83)   217     28        0 (1527/1051-1572/1091) -18.4 W30-W33 S07-S05
      9 1554  985 (S11W30 L= 81)   334    115        0 (1497/ 964-1604/1009)  -8.1 W26-W33 S12-S09
     10 1093  841 (S08E00 L= 50)   619    150        4 (1051/ 790-1138/ 902) -81.9 E03-W02 S11-S04
     11  627  829 (N01E27 L= 24)  1294    286        6 ( 519/ 735- 718/ 897) -32.5 E34-E23 S05-N05
     12  214  840 (N10E60 L=351)   755    124        2 ( 166/ 806- 277/ 879) -31.0 E65-E53 N07-N13
     13  973  762 (S10E09 L= 42)   266     89        1 ( 930/ 747-1021/ 789) -21.8 E11-E06 S11-S08
     14  728  663 (S10E26 L= 25)   259     87        1 ( 710/ 621- 751/ 711)  78.7 E26-E24 S12-S07
     15  404  684 (S02E47 L=  4)   260     69        0 ( 372/ 671- 435/ 699)   0.0 E49-E44 S03-S01
     16 1223  584 (S27W01 L= 52)  1189    336        3 (1120/ 538-1343/ 671) -45.0 E04-W09 S29-S18
     17  409  617 (S06E49 L=  2)   272     63        1 ( 374/ 593- 440/ 634) -21.8 E51-E46 S07-S04
     18  955  324 (S37E26 L= 25)  3655    619        7 ( 818/ 141-1074/ 602)  44.1 E50-E13 S50-S18
     19  556  555 (S13E41 L= 10)   316     65        3 ( 525/ 530- 587/ 576) -33.7 E43-E38 S14-S11
     20  462  522 (S13E49 L=  2)   885     91        4 ( 425/ 476- 500/ 565) -59.0 E52-E46 S15-S09
     21  447  394 (S20E59 L=352)   894    145        0 ( 410/ 338- 470/ 473)  26.6 E68-E52 S23-S15
  

    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