Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1377 1726 (N41W51 L=259)   410     13        0 (1357/1703-1400/1744)   8.1 W47-W54 N39-N42
      2 1289 1719 (N43W42 L=251)   381     68        0 (1257/1696-1323/1739)   6.3 W38-W47 N42-N44
      3 1204 1703 (N44W34 L=243)   283     48        0 (1186/1683-1226/1724) -90.0 W31-W36 N42-N46
      4  999 1670 (N48W16 L=224)   370     98        0 ( 971/1635-1048/1693)   6.3 W12-W21 N45-N49
      5  682 1549 (N47E14 L=194)  1727    338        6 ( 556/1490- 836/1615)   0.0 E26-W00 N44-N48
      6 1558 1348 (N14W41 L=250)   640    220        1 (1479/1257-1610/1410) -76.0 W38-W42 N07-N19
      7  486 1343 (N36E33 L=176)   399     72        1 ( 446/1313- 522/1367) -15.9 E36-E29 N33-N37
      8  864 1129 (N16E08 L=201)   925    331        2 ( 783/ 997- 945/1262) -73.6 E10-E04 N07-N25
      9  570 1225 (N27E26 L=182)   237     79        0 ( 533/1212- 618/1240)   0.0 E28-E22 N25-N28
     10  187  995 (N17E63 L=145)  1038    167        2 ( 143/ 927- 214/1064) -41.6 E70-E59 N13-N21
     11 1473  982 (S05W26 L=234)   257     71        0 (1449/ 953-1501/1014) -76.0 W24-W27 S06-S02
     12 1547  863 (S13W29 L=237)   250     55        1 (1518/ 839-1569/ 891)  33.7 W26-W30 S14-S12
     13 1808  857 (S21W52 L=260)   441     66        0 (1793/ 820-1824/ 889) -68.2 W50-W53 S23-S18
     14  286  764 (N03E56 L=152)   521     82        0 ( 263/ 734- 318/ 803) -45.0 E57-E53 N00-N05
     15 1604  719 (S24W32 L=240)   755    171        1 (1546/ 676-1667/ 776) -38.7 W27-W37 S27-S19
     16  962  753 (S08E09 L=200)   234     89        0 ( 914/ 734- 995/ 769) -36.9 E11-E07 S09-S06
     17  689  714 (S05E26 L=182)   211     58        0 ( 676/ 682- 703/ 741)  76.0 E27-E24 S07-S03
     18 1663  478 (S44W40 L=249)  2657    309        3 (1526/ 411-1785/ 552)   0.0 W25-W60 S46-S40
     19  358  439 (S19E66 L=143)  4848    234       12 ( 270/ 357- 436/ 519) -54.0 E76-E56 S25-S13
     20  585  406 (S24E45 L=164)  1177    200        2 ( 557/ 319- 611/ 494)  55.3 E51-E38 S30-S17
     21 1186  439 (S33E02 L=206)   247     86        0 (1152/ 407-1220/ 475)  26.6 E05-W01 S34-S30
     22 1019  377 (S34E15 L=193)   261     74        0 (1005/ 332-1039/ 414)  60.3 E17-E12 S37-S30
     23 1448  353 (S48W18 L=226)   516     65        1 (1409/ 337-1485/ 376) -20.6 W14-W22 S50-S45
  

    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