Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1771 (N45E13 L=142)   591    113        1 (1155/1736-1245/1809)  -6.3 E17-E08 N43-N48
      2 1075 1657 (N32E16 L=140)  1605    386        1 (1000/1530-1167/1716)  90.0 E20-E08 N22-N37
      3  551 1689 (N21E53 L=102)   882     93        3 ( 512/1662- 589/1715)  45.0 E56-E49 N18-N23
      4 1389 1647 (N42W06 L=161)   759    170        1 (1320/1595-1461/1697) -14.0 W00-W12 N39-N43
      5  450 1620 (N15E57 L= 98)  1015    136        2 ( 427/1547- 476/1680) -52.1 E62-E51 N10-N19
      6  617 1623 (N18E43 L=112)  1134    252        4 ( 501/1599- 740/1651)  19.4 E51-E34 N14-N20
      7  598 1539 (N12E40 L=115)   382    106        2 ( 576/1480- 627/1585) -60.3 E41-E37 N08-N15
      8 1850 1221 (N29W54 L=209)   714    127        3 (1821/1170-1885/1281)  58.0 W50-W59 N25-N33
      9 1083 1132 (N00W00 L=156)   338    101        2 (1055/1075-1110/1176) -45.0 E01-W03 S02-N02
     10 1709 1094 (N16W40 L=196)   268     62        0 (1693/1060-1724/1132)  90.0 W39-W41 N13-N18
     11 1831  913 (N10W56 L=212)  1319    200        4 (1786/ 824-1868/1014) -52.1 W50-W62 N05-N16
     12 1072  749 (S21W10 L=166)   503    153        1 (1028/ 689-1094/ 817) -36.9 W05-W13 S24-S18
     13  413  754 (S38E36 L=119)   753    157        1 ( 352/ 729- 467/ 804)  32.5 E42-E31 S40-S33
     14  629  678 (S37E16 L=139)   387    190        0 ( 594/ 616- 674/ 773) -45.0 E20-E11 S40-S31
     15 1848  717 (N01W67 L=223)   576     49        0 (1822/ 697-1865/ 744)  45.0 W63-W70 N00-N02
     16 1748  640 (S06W60 L=215)   562     41        1 (1725/ 616-1768/ 672) -36.9 W57-W63 S08-S04
     17 1415  632 (S18W35 L=190)   376    143        0 (1364/ 575-1441/ 664)  -7.1 W30-W38 S20-S16
     18 1463  537 (S21W43 L=198)   341     90        0 (1418/ 516-1512/ 553)  38.7 W40-W45 S23-S18
     19 1525  367 (S28W60 L=216)  1398    239        2 (1413/ 338-1631/ 408)  29.4 W50-W67 S32-S22
     20  763  263 (S64W11 L=167)  1445    135        3 ( 715/ 220- 811/ 322) -16.4 W03-W20 S67-S60
  

    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