Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1639 (N31W43 L=249)   779    202        2 (1285/1610-1445/1656) -28.6 W36-W49 N27-N33
      2 1730 1560 (N13W68 L=275)  1958    379        6 (1697/1499-1773/1599)   7.1 W62-W79 N10-N15
      3 1591 1494 (N15W51 L=257)   424     74        1 (1554/1459-1626/1526) -68.2 W49-W52 N12-N18
      4  883 1354 (N29W01 L=207)   268     78        1 ( 843/1331- 927/1369) -26.6 E01-W03 N27-N30
      5 1352 1324 (N14W27 L=234)  2257    656        5 (1053/1285-1606/1352) -27.3 W09-W43 N04-N21
      6  559 1152 (N26E25 L=181)   672    194        3 ( 526/1048- 582/1240) -90.0 E26-E23 N19-N31
      7 1828 1138 (S11W56 L=262)  1062    202        2 (1782/1046-1857/1196) -84.3 W52-W60 S16-S06
      8 1736 1044 (S13W45 L=251)   659    123        3 (1692/ 984-1779/1098)  20.6 W40-W49 S16-S10
      9  940 1030 (N09E05 L=202)   250     82        0 ( 925/ 984- 956/1078)  51.3 E06-E02 N06-N11
     10 1607 1040 (S09W35 L=241)   246     72        3 (1574/1021-1635/1056) -26.6 W32-W36 S10-S07
     11  420  960 (N18E39 L=167)   332    151        1 ( 397/ 903- 473/1015) -69.4 E40-E36 N13-N21
     12  208  926 (N19E59 L=148)   398     76        0 ( 192/ 888- 227/ 959) -76.0 E60-E57 N17-N21
     13  986  918 (N02E05 L=202)   540    121        0 ( 919/ 896-1053/ 948) -33.7 E08-E01 N00-N05
     14 1352  703 (S20W10 L=217)  2011    494        3 (1238/ 512-1415/ 884)  80.9 W05-W13 S32-S07
     15  277  654 (N02E62 L=144)   501    128        2 ( 257/ 615- 302/ 690)  24.0 E66-E57 N00-N04
     16  378  465 (S11E62 L=145)  3734    575       12 ( 277/ 340- 489/ 603) -81.5 E67-E55 S20-N00
     17 1177  483 (S29E07 L=200)   301    120        0 (1144/ 445-1220/ 535) -82.9 E07-E04 S32-S24
     18  801  491 (S18E28 L=178)   365     85        2 ( 765/ 450- 829/ 528)  71.6 E29-E27 S21-S15
     19  558  436 (S16E47 L=159)   723    259        2 ( 539/ 347- 586/ 504)  48.0 E53-E42 S21-S11
     20  793  293 (S31E39 L=167)  1543    316        1 ( 699/ 243- 857/ 385)  18.4 E48-E30 S35-S26
  

    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