Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1252 1839 (N65W05 L= 78)  4683    430        5 (1083/1757-1441/1903)  -1.1 E20-W33 N59-N72
      2 1244 1656 (N46W06 L= 79)  2030    432        4 (1053/1572-1384/1706)  -9.8 E11-W18 N41-N48
      3  664 1617 (N32E38 L= 35)   729    224        1 ( 618/1520- 723/1675) -80.5 E41-E33 N25-N37
      4  483 1468 (N19E46 L= 27)   527    118        3 ( 449/1435- 534/1513) -18.4 E49-E40 N17-N22
      5  839 1449 (N24E19 L= 54)   271     65        2 ( 814/1423- 875/1474) -11.3 E21-E16 N21-N25
      6  503 1307 (N10E39 L= 34)   594    202        3 ( 456/1228- 546/1379) -38.7 E44-E34 N05-N13
      7 1679 1224 (N22W43 L=116)  1074    222        0 (1601/1138-1742/1298) -33.7 W36-W49 N17-N25
      8 1770 1069 (N13W52 L=125)   435     58        0 (1740/1053-1803/1088)   9.5 W49-W55 N12-N14
      9  580  955 (S10E27 L= 46)   286    125        0 ( 536/ 911- 613/1007)  60.3 E29-E25 S13-S06
     10  192  884 (S21E63 L= 10)   843    119        1 ( 143/ 845- 231/ 922) -13.0 E71-E57 S22-S18
     11  257  836 (S23E55 L= 18)   402     90        0 ( 244/ 793- 272/ 876) -90.0 E56-E53 S25-S20
     12  663  801 (S19E20 L= 53)   240     77        0 ( 630/ 772- 688/ 834) -36.9 E22-E17 S20-S16
     13 1375  789 (S09W25 L= 98)   213    108        1 (1348/ 753-1413/ 825)  59.0 W24-W27 S11-S06
     14  414  716 (S28E40 L= 33)   314    100        0 ( 384/ 677- 446/ 762)  49.4 E42-E36 S31-S24
     15  983  698 (S20W02 L= 75)   241     81        0 ( 942/ 671-1017/ 714) -14.0 W00-W04 S21-S19
     16 1402  614 (S19W32 L=105)  1122    270        6 (1276/ 509-1469/ 694)  50.7 W24-W39 S25-S13
     17 1709  647 (S13W56 L=129)   407     49        1 (1683/ 627-1736/ 674)   0.0 W53-W59 S14-S11
     18  776  652 (S27E11 L= 62)   529    178        1 ( 676/ 637- 854/ 666)   9.5 E17-E05 S28-S24
     19  514  609 (S34E31 L= 42)   543    151        1 ( 453/ 575- 590/ 639)  24.8 E37-E24 S37-S30
     20  803  171 (S71E03 L= 70)   727     59        0 ( 781/ 144- 822/ 193) -45.0 E07-W01 S76-S67
  

    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