Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1063 1614 (N30E08 L=284)   424    139        0 (1015/1553-1099/1660)  71.6 E09-E05 N25-N34
      2  443 1557 (N18E50 L=243)  1308    164        2 ( 369/1531- 523/1578)   0.0 E56-E42 N15-N19
      3 1006 1458 (N19E08 L=284)   232     58        0 ( 991/1428-1028/1493) -45.0 E09-E06 N17-N21
      4 1491 1335 (N20W24 L=316)   256     85        0 (1465/1296-1528/1368) -36.9 W21-W26 N18-N21
      5 1659 1233 (N17W37 L=329)   563    169        1 (1581/1208-1740/1252)  13.0 W31-W44 N16-N19
      6  772 1210 (N00E18 L=275)   381    173        0 ( 679/1188- 837/1241)   0.0 E23-E13 N00-N01
      7 1811 1131 (N15W51 L=344)  1393    174        4 (1776/1050-1858/1198)  59.0 W47-W56 N09-N19
      8 1894 1063 (N13W62 L=354)  5548    269       16 (1816/ 943-1953/1180)  86.2 W52-W72 N05-N20
      9 1694 1054 (N07W42 L=334)   322     31        0 (1674/1031-1714/1079)  63.4 W40-W43 N05-N09
     10 1715  954 (N02W45 L=337)   456    102        1 (1692/ 906-1745/1011) -51.3 W43-W48 N00-N05
     11 1828  906 (N02W57 L=349)   672    113        3 (1794/ 849-1858/ 951) -26.6 W52-W61 N00-N04
     12  802  816 (S22E10 L=282)   233     87        0 ( 776/ 779- 832/ 855)  59.0 E11-E08 S24-S19
     13  979  711 (S25W03 L=295)  1262    392        3 ( 813/ 660-1171/ 752)  18.4 E07-W14 S30-S21
     14 1496  581 (S23W40 L=332)   463     82        2 (1465/ 546-1535/ 615)  90.0 W37-W42 S25-S20
     15 1732  572 (S18W61 L=353)   407     59        2 (1707/ 543-1762/ 595)  53.1 W58-W64 S20-S16
     16  883  550 (S37E01 L=291)   356    124        0 ( 824/ 532- 937/ 583)   0.0 E05-W03 S38-S36
     17 1614  480 (S26W55 L=347)  2984    355        5 (1458/ 422-1744/ 541)   3.1 W39-W76 S29-S22
     18  788  460 (S45E07 L=285)  1608    447        4 ( 573/ 414- 975/ 523)   1.6 E26-W09 S47-S42
     19 1211  365 (S43W30 L=322)  1075    315        3 (1079/ 306-1357/ 426)  -2.0 W17-W46 S44-S41
  

    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