Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1344 1743 (N56W19 L=166)   602     56        2 (1319/1713-1367/1769)  50.2 W16-W23 N53-N59
      2 1459 1743 (N59W36 L=182)   835     89        2 (1412/1724-1505/1766)  10.0 W27-W44 N55-N60
      3 1279 1679 (N49W11 L=157)   418    100        0 (1260/1633-1299/1729) -83.7 W09-W13 N44-N53
      4  746 1676 (N40E34 L=112)   498     84        1 ( 696/1659- 785/1696)   7.1 E38-E30 N38-N41
      5  462 1449 (N20E46 L=100)  1569    374        2 ( 358/1343- 542/1554)  69.4 E51-E40 N11-N27
      6 1033 1481 (N30E06 L=140)   356     67        1 (1013/1439-1049/1522) -71.6 E06-E04 N26-N32
      7  349 1454 (N19E58 L= 88)  1739    141        8 ( 285/1419- 403/1500)  29.1 E64-E51 N15-N21
      8  565 1455 (N22E38 L=108)   596     87        3 ( 531/1423- 604/1491)  45.0 E40-E35 N19-N24
      9 1621 1431 (N34W41 L=187)   751    145        1 (1557/1394-1689/1460)  -9.5 W35-W47 N32-N35
     10  546 1383 (N17E37 L=109)   341     94        2 ( 500/1358- 575/1416)  51.3 E40-E35 N14-N19
     11  339 1374 (N13E55 L= 91)   533    106        2 ( 309/1327- 368/1401)  78.7 E58-E52 N10-N15
     12  301  850 (S19E50 L= 96)  1044    141        2 ( 265/ 788- 354/ 890)  37.9 E54-E44 S23-S16
     13 1710  646 (S14W56 L=202)   507    100        1 (1683/ 601-1736/ 681)  68.2 W52-W57 S17-S12
     14 1704  521 (S23W63 L=209)   476     51        1 (1672/ 503-1730/ 537)  -6.3 W57-W66 S23-S21
     15 1260  445 (S33W26 L=172)   414    133        0 (1208/ 405-1318/ 477)  45.0 W23-W29 S36-S30
  

    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