Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  987 1674 (N49W12 L=182)  2038    413        3 ( 804/1634-1175/1707) -20.1 E05-W25 N42-N53
      2 1524 1639 (N34W55 L=226)  2141    261        4 (1420/1599-1651/1668) -15.3 W43-W67 N28-N36
      3  851 1532 (N41E03 L=167)   343     76        0 ( 811/1517- 893/1545) -18.4 E06-W00 N39-N42
      4 1679 1427 (N18W55 L=226)   805    108        0 (1645/1390-1724/1476) -66.8 W52-W58 N14-N21
      5 1043 1294 (N22W06 L=176)  1135    648        1 ( 804/1238-1307/1347) -21.8 E09-W21 N14-N26
      6  247 1113 (N21E57 L=114)   519    105        1 ( 226/1064- 274/1150) -80.5 E59-E53 N17-N23
      7 1145 1112 (N10W09 L=179)   184     87        0 (1107/1085-1180/1132)  18.4 W05-W11 N08-N10
      8  333 1072 (N18E47 L=123)   493     93        2 ( 289/1044- 377/1101)  -7.1 E51-E43 N15-N19
      9  884 1065 (N11E08 L=163)   335    122        1 ( 840/1032- 942/1100) -33.7 E10-E04 N08-N13
     10 1774  988 (S10W51 L=222)  2072    362        6 (1703/ 909-1833/1097) -77.0 W43-W57 S15-S02
     11 1445  999 (S02W25 L=196)   224     43        1 (1421/ 977-1466/1016) -33.7 W23-W26 S03-N00
     12  927  904 (N01E08 L=163)   264    114        0 ( 864/ 890- 979/ 918)  -8.1 E11-E04 N00-N01
     13 1816  793 (S23W55 L=226)  3171    365        6 (1718/ 696-1925/ 900)  18.4 W44-W73 S27-S19
     14 1240  845 (S08W10 L=181)   210     52        0 (1209/ 827-1267/ 860)   0.0 W08-W11 S08-S06
     15 1016  750 (S10E05 L=166)   927    167        5 ( 960/ 699-1086/ 824) -50.2 E08-W00 S12-S05
     16  209  700 (S05E69 L=102)   861    109        2 ( 187/ 646- 227/ 751)  54.5 E72-E64 S08-S01
     17  273  649 (S08E62 L=109)  2052    206        4 ( 230/ 573- 335/ 735) -63.4 E68-E57 S13-S02
     18 1139  669 (S17W01 L=172)   440    133        2 (1101/ 624-1168/ 713)  51.3 E01-W03 S19-S14
     19  335  646 (S08E55 L=116)   801    136        1 ( 294/ 592- 371/ 703) -69.4 E57-E52 S12-S04
     20  288  536 (S16E68 L=103)  1481    149        3 ( 247/ 474- 336/ 587) -69.4 E71-E63 S20-S12
     21 1254  522 (S29W07 L=178)   649    121        3 (1212/ 479-1300/ 575)  29.7 W03-W10 S31-S25
     22  438  521 (S17E51 L=120)   635    109        3 ( 405/ 465- 462/ 564)  49.4 E53-E47 S21-S14
     23  868  217 (S47E33 L=137)  1190    207        1 ( 809/ 151- 937/ 277)  23.7 E48-E23 S54-S42
  

    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