Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  538 1745 (N24E61 L= 66)   706     65        3 ( 515/1715- 568/1766) -53.1 E65-E57 N21-N25
      2  883 1674 (N27E30 L= 97)   309     43        1 ( 863/1650- 913/1694)  71.6 E31-E28 N25-N28
      3  536 1634 (N16E51 L= 76)   437     93        0 ( 503/1600- 564/1669)  90.0 E52-E49 N13-N18
      4  859 1607 (N22E28 L= 99)   609    129        1 ( 834/1556- 895/1669) -29.1 E32-E23 N19-N25
      5 1490 1608 (N44W13 L=140)   860    150        1 (1426/1573-1564/1632)   8.7 W07-W20 N41-N46
      6 1330 1513 (N31W04 L=131)   467     63        1 (1298/1486-1365/1536) -11.3 W01-W06 N28-N32
      7 1329 1317 (N18W09 L=136)   629    268        1 (1267/1246-1418/1396)  -5.2 W04-W15 N15-N23
      8 1850 1296 (N37W54 L=182)   594     44        1 (1818/1275-1873/1319)  12.5 W49-W58 N35-N38
      9 1491 1281 (N22W20 L=147)   235     63        0 (1461/1260-1514/1312)  68.2 W18-W21 N19-N24
     10 1641 1254 (N25W31 L=159)   455    127        0 (1600/1202-1686/1301) -20.6 W27-W36 N23-N26
     11 1799 1142 (N24W48 L=175)   488    107        0 (1757/1103-1843/1167)  33.7 W44-W53 N20-N27
     12 1676 1025 (N13W39 L=166)   932    241        0 (1596/ 967-1766/1116)  -6.7 W31-W48 N11-N15
     13  233 1015 (S27E56 L= 71)   681    162        0 ( 196/ 949- 260/1082) -36.9 E61-E52 S30-S22
     14 1806 1018 (N17W51 L=178)   489     83        0 (1777/ 988-1831/1051)  63.4 W48-W53 N15-N19
     15  832  778 (S26E04 L=123)  1239    220        7 ( 743/ 713- 926/ 833)  59.7 E08-W00 S31-S19
     16 1855  783 (N07W65 L=192)   841     78        1 (1820/ 758-1901/ 808)  24.4 W60-W71 N04-N10
     17 1692  608 (S08W57 L=184)   918    149        3 (1632/ 566-1759/ 649)  37.9 W53-W63 S11-S04
     18  790  592 (S38E01 L=126)   540    130        1 ( 744/ 565- 859/ 624)  29.7 E04-W03 S39-S35
     19  598  593 (S44E16 L=111)   313     76        1 ( 570/ 566- 630/ 620)  51.3 E18-E13 S46-S41
     20  609  524 (S48E13 L=114)   847    133        2 ( 560/ 498- 671/ 565)  15.3 E18-E07 S51-S45
     21 1519  507 (S19W49 L=176)   888    118        1 (1488/ 471-1564/ 562)  -5.7 W43-W53 S21-S16
     22 1736  451 (S13W77 L=204)  2300    117        2 (1698/ 398-1780/ 491) -82.9 W70-W85 S17-S09
  

    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