Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  652 1754 (N63E06 L= 65)   445     54        1 ( 627/1726- 681/1775)   0.0 E09-E01 N60-N64
      2 1490 1686 (N28W55 L=126)  1145    192        2 (1432/1605-1539/1759)  50.7 W49-W58 N23-N34
      3  373 1639 (N62E51 L= 20)   640     98        0 ( 331/1614- 407/1663)   3.8 E61-E42 N60-N64
      4 1578 1601 (N21W55 L=127)   453     37        0 (1549/1586-1611/1617) -18.4 W52-W58 N19-N22
      5 1285 1498 (N24W29 L=100)   239     52        1 (1250/1482-1315/1510) -36.9 W27-W31 N22-N25
      6 1057 1400 (N25W12 L= 83)  1294    235        3 ( 956/1336-1164/1430) -30.3 W06-W18 N21-N28
      7 1373 1183 (N05W23 L= 95)   406    155        0 (1307/1159-1423/1223)  -7.1 W19-W27 N03-N07
      8 1736 1078 (S11W45 L=117)   296     63        0 (1709/1056-1766/1105) -45.0 W43-W47 S13-S09
      9 1853 1040 (S17W56 L=127)   769    128        1 (1832/ 978-1891/1096)  32.0 W52-W62 S20-S14
     10  649 1027 (N14E21 L= 50)   241     87        1 ( 601/1009- 688/1046)  -9.5 E24-E18 N12-N14
     11  907  966 (N04E08 L= 63)   291     33        0 ( 882/ 943- 930/ 990)  33.7 E09-E06 N03-N05
     12 1827  761 (S33W51 L=122)  1060    206        0 (1777/ 669-1878/ 856)  45.0 W45-W57 S38-S28
     13  694  722 (S04E26 L= 45)  1091    312        1 ( 562/ 643- 791/ 827)  14.0 E37-E17 S06-N00
     14  206  721 (N05E66 L=  6)   526     48        0 ( 180/ 699- 232/ 745) -31.0 E68-E62 N03-N07
     15 1661  568 (S41W33 L=104)   328     46        0 (1647/ 544-1677/ 597) -76.0 W31-W34 S42-S38
     16  349  509 (S09E61 L= 10)   590     78        1 ( 326/ 470- 369/ 543)  33.7 E65-E56 S11-S07
     17 1491  483 (S41W16 L= 88)   473    130        0 (1447/ 439-1535/ 534)  26.6 W12-W20 S42-S38
     18  407  400 (S17E63 L=  8)   696     85        3 ( 374/ 377- 435/ 427) -76.0 E67-E58 S19-S15
     19 1006  245 (S43E28 L= 43)   708    110        1 ( 949/ 227-1067/ 272)  -5.2 E33-E22 S44-S40
  

    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