Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1590 1609 (N21W57 L=214)   796    140        6 (1544/1577-1640/1640) -39.8 W52-W63 N18-N23
      2 1418 1585 (N25W42 L=199)   523     94        1 (1369/1561-1463/1610) -38.7 W39-W44 N22-N26
      3 1803 1467 (N07W69 L=226)  1400    131        1 (1751/1432-1842/1492)  -3.4 W61-W78 N04-N09
      4 1283 1428 (N20W26 L=183)   730    223        1 (1191/1382-1376/1473)  -4.1 W19-W33 N17-N21
      5 1699 1399 (N06W53 L=210)   314     74        0 (1679/1359-1723/1430)  26.6 W50-W57 N04-N07
      6 1110 1327 (N19W13 L=169)   431    158        0 (1083/1253-1151/1391)  49.4 W09-W16 N14-N21
      7 1874 1293 (S05W68 L=224)   964    133        2 (1837/1244-1910/1355) -74.1 W64-W72 S07-N00
      8 1565 1214 (N01W36 L=193)   869    160        1 (1510/1140-1604/1278) -83.7 W34-W38 S04-N05
      9 1723 1137 (S08W46 L=202)  1158    210        5 (1659/1081-1795/1214) -55.0 W42-W51 S12-S02
     10 1844 1054 (S16W55 L=212)  2133    297        7 (1784/ 934-1923/1160)  30.5 W48-W68 S22-S12
     11  382 1067 (N22E39 L=117)   890    224        3 ( 335/ 959- 409/1153) -80.5 E42-E36 N15-N27
     12  231  975 (N19E55 L=101)  1442    295        3 ( 182/ 887- 326/1079) -49.8 E60-E47 N12-N26
     13 1688 1000 (S14W40 L=196)   762    134        3 (1629/ 939-1747/1038) -16.7 W35-W45 S17-S11
     14  443  934 (N13E37 L=119)   733    158        2 ( 397/ 876- 471/1008)  40.6 E41-E33 N09-N16
     15 1593  932 (S16W31 L=188)   538    146        4 (1558/ 868-1621/1002)  60.3 W28-W33 S18-S11
     16 1498  932 (S13W25 L=181)   386     95        1 (1459/ 901-1530/ 975)  18.4 W21-W27 S14-S10
     17  983  893 (S02E06 L=151)  1022    249        1 ( 882/ 803-1050/ 974) -67.4 E09-E03 S08-N04
     18 1677  884 (S21W37 L=193)   684    169        2 (1611/ 824-1742/ 942)  14.0 W30-W43 S22-S18
     19 1836  721 (S37W53 L=210)  2155    315        3 (1750/ 630-1934/ 844)  16.3 W42-W69 S41-S31
     20  824  541 (S18E25 L=132)  2006    600        5 ( 673/ 330-1007/ 711)  30.1 E40-E09 S29-S11
     21  283  578 (S04E64 L= 93)  1987    283        3 ( 195/ 495- 374/ 688) -55.3 E70-E57 S10-N03
     22  331  619 (S03E56 L=100)   746    126        5 ( 296/ 563- 369/ 685)  74.1 E58-E54 S06-N01
     23 1207  582 (S25E01 L=156)  1458    392        3 (1045/ 498-1366/ 679)   4.8 E13-W11 S27-S23
     24  506  497 (S13E47 L=109)  1845    455       10 ( 397/ 338- 642/ 644) -85.2 E51-E41 S26-S02
     25  466  431 (S17E55 L=102)   397     64        1 ( 439/ 406- 498/ 461) -45.0 E56-E51 S18-S14
     26  898  406 (S28E26 L=131)   477    112        0 ( 851/ 377- 947/ 441)   6.3 E30-E21 S29-S26
  

    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