Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  667 1782 (N35E51 L= 94)  1062    220        0 ( 625/1711- 712/1844) -73.3 E55-E47 N29-N40
      2 1061 1725 (N42E19 L=126)  1002    202        0 (1030/1666-1090/1797) -45.0 E25-E14 N37-N47
      3 1535 1614 (N49W23 L=168)   401     50        1 (1512/1592-1555/1636)  38.7 W20-W25 N47-N51
      4  709 1602 (N23E36 L=109)   275     37        0 ( 689/1578- 726/1632) -76.0 E37-E34 N21-N25
      5  468 1542 (N14E51 L= 94)  1952    421        5 ( 374/1458- 535/1593)  36.0 E59-E43 N09-N18
      6  626 1499 (N15E37 L=108)   501     92        0 ( 604/1453- 659/1532) -68.2 E38-E35 N12-N17
      7  787 1438 (N15E25 L=120)   365    125        0 ( 712/1404- 822/1480)  54.5 E28-E23 N11-N18
      8  904 1384 (N15E16 L=129)   418    145       -1 ( 858/1361- 945/1408)  31.0 E18-E13 N12-N16
      9  752 1306 (N06E23 L=122)   315     88        1 ( 725/1258- 768/1345) -68.2 E24-E21 N03-N08
     10 1008 1289 (N11E07 L=138)   205     22        0 ( 992/1269-1024/1312) -45.0 E08-E06 N10-N12
     11 1136 1048 (N01W06 L=151)   316     44        1 (1108/1020-1161/1077)  63.4 W03-W07 N00-N02
     12  942  825 (S16E00 L=145)   257     54        0 ( 911/ 793- 965/ 849) -56.3 E02-W01 S18-S15
     13 1736  517 (S13W67 L=212)  1613    193        0 (1669/ 462-1808/ 592)  50.7 W62-W73 S18-S07
     14 1149  363 (S40W30 L=175)  1185    282        1 (1031/ 336-1291/ 394)  13.4 W20-W41 S42-S36
  

    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