Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  573 1673 (N34E40 L=130)  1274    265        1 ( 514/1613- 640/1733) -29.4 E48-E32 N29-N39
      2 1720 1394 (N25W46 L=217)  1417    312        6 (1610/1362-1810/1424)   9.5 W37-W55 N22-N27
      3  544 1245 (N05E32 L=138)   419     84        2 ( 517/1203- 576/1287) -59.0 E34-E29 N02-N07
      4  895 1120 (S00E08 L=162)   229     77        0 ( 851/1089- 927/1145) -11.3 E11-E06 S01-N01
      5 1467  924 (S07W28 L=198)   818    220        3 (1426/ 819-1508/1035)  85.6 W26-W30 S13-N00
      6  125 1006 (S09E69 L=101)   569    135        2 (  96/ 984- 148/1027) -12.5 E74-E65 S10-S08
      7 1796  919 (S04W54 L=224)   536    166        1 (1740/ 890-1846/ 936)  21.8 W49-W59 S05-S01
      8  951  810 (S18E03 L=167)   296     79        0 ( 914/ 771- 987/ 860) -59.0 E05-W00 S20-S15
      9  567  775 (S23E28 L=142)   576    188        2 ( 508/ 715- 649/ 807)  31.0 E33-E22 S26-S20
     10 1746  715 (S16W54 L=224)  1271    310        7 (1682/ 613-1825/ 800)  65.2 W49-W60 S23-S10
     11  250  742 (S26E55 L=115)   470    103        1 ( 219/ 722- 280/ 763)   0.0 E58-E52 S26-S24
     12 1224  630 (S27W17 L=187)   235     46        1 (1197/ 603-1249/ 654)  63.4 W15-W18 S29-S25
     13 1811  575 (S23W66 L=236)   611     96        1 (1777/ 549-1841/ 610)  51.3 W62-W68 S25-S20
     14 1556  396 (S39W50 L=220)  1139    270        2 (1437/ 362-1664/ 439)  28.1 W41-W57 S42-S34
  

    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