Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1740 (N57W10 L=  2)   418     69        0 (1416/1711-1452/1768) -51.3 W07-W12 N54-N60
      2  288 1577 (N12E75 L=277)  1618    122        1 ( 254/1544- 317/1619)  56.3 E79-E72 N09-N15
      3  218 1206 (S11E61 L=291)  1294    229        4 ( 171/1122- 265/1281)  78.7 E65-E56 S16-S06
      4 1810 1067 (N20W52 L= 43)  1246    266        3 (1738/1037-1889/1099)  14.0 W44-W60 N18-N22
      5 1393 1014 (N05W21 L= 13)   319     61        2 (1370/ 979-1420/1045)  78.7 W20-W22 N02-N07
      6 1668  890 (N06W43 L= 35)   437    104        0 (1630/ 838-1696/ 934)  74.1 W42-W44 N01-N08
      7 1382  909 (S01W23 L= 15)   208     85        1 (1345/ 877-1403/ 932) -14.0 W21-W25 S02-N00
      8  877  685 (S27W00 L=352)   394    111        2 ( 817/ 644- 921/ 712)  -8.1 E04-W03 S28-S25
      9 1717  579 (S10W61 L= 53)  1515    298        8 (1683/ 504-1758/ 638) -63.4 W55-W68 S13-S05
     10 1604  546 (S15W52 L= 44)   855    123        2 (1551/ 508-1654/ 590)  50.2 W48-W55 S17-S11
     11 1073  396 (S40W24 L= 16)  1827    384        2 ( 938/ 341-1235/ 499)  -2.1 W10-W37 S43-S35
     12 1592  452 (S20W57 L= 49)   547    138        2 (1548/ 421-1628/ 496)  26.6 W53-W59 S22-S17
     13 1595  372 (S25W63 L= 54)  1395    306        3 (1530/ 353-1665/ 393)  15.9 W55-W70 S27-S21
  

    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