Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1420 1635 (N32W48 L=347)   643    144        0 (1361/1595-1479/1682) -76.0 W46-W50 N27-N35
      2 1666 1579 (N20W66 L=  5)  1828    266        1 (1557/1520-1779/1625) -37.9 W57-W77 N12-N26
      3 1020 1514 (N36W14 L=313)   542    121        1 ( 962/1489-1080/1531) -20.6 W09-W17 N34-N37
      4 1471 1438 (N19W40 L=339)   731    129        3 (1410/1403-1527/1464) -54.5 W36-W44 N15-N22
      5 1281 1175 (N10W18 L=318)   357    136        0 (1239/1124-1324/1224) -76.0 W16-W19 N05-N13
      6  519 1112 (N23E30 L=269)   928    313        3 ( 380/1076- 666/1145) -23.2 E41-E20 N18-N27
      7 1715 1069 (S08W45 L=344)   504     65        1 (1693/1029-1734/1107)  53.1 W43-W47 S10-S06
      8  348 1018 (N20E46 L=253)  1007    179        3 ( 293/ 971- 393/1086)  40.6 E51-E41 N17-N24
      9  971 1059 (N10E02 L=297)   191     93        0 ( 930/1048-1019/1073)   0.0 E04-W00 N09-N11
     10  156 1003 (N22E69 L=230)   956    114        1 ( 121/ 956- 188/1050) -28.6 E76-E64 N18-N24
     11 1821  936 (S20W53 L=352)   970    177        1 (1755/ 901-1870/ 977) -17.1 W46-W59 S22-S16
     12 1262  916 (S05W11 L=310)   294     80        0 (1225/ 889-1293/ 937) -53.1 W09-W12 S06-S02
     13  398  886 (N12E43 L=256)   307    106        0 ( 343/ 865- 449/ 899) -18.4 E48-E39 N09-N12
     14 1328  635 (S23W09 L=308)  1304    385        1 (1229/ 501-1446/ 784)  32.3 W00-W19 S29-S16
     15  673  683 (S05E29 L=270)   233     92        0 ( 640/ 650- 699/ 721) -78.7 E30-E27 S07-S02
     16 1537  522 (S38W23 L=322)   361     69        0 (1524/ 484-1550/ 560)  80.5 W21-W24 S41-S34
     17  735  474 (S19E32 L=267)   336     85        0 ( 712/ 438- 761/ 521)  81.9 E33-E31 S22-S15
     18 1111  278 (S44E17 L=282)  3602    492        9 ( 913/ 142-1235/ 423)  18.0 E46-E02 S52-S34
     19  721  403 (S24E37 L=262)   276     92        0 ( 672/ 387- 757/ 421)  -7.1 E41-E33 S24-S22
  

    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