Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  854 1737 (N34E31 L=  5)  1678    206        3 ( 765/1690- 956/1798) -11.3 E41-E21 N30-N36
      2 1385 1716 (N47W09 L= 44)   868    114        2 (1361/1667-1416/1762)  74.7 W06-W11 N42-N53
      3  533 1670 (N23E51 L=345)  1522    252        4 ( 412/1630- 616/1738)  39.8 E62-E45 N18-N28
      4  613 1638 (N22E42 L=353)   308     96        1 ( 575/1607- 647/1669)  68.2 E43-E40 N19-N24
      5  512 1553 (N15E46 L=350)   352     97        1 ( 495/1505- 527/1602) -71.6 E48-E43 N11-N17
      6  878 1558 (N21E21 L= 14)   222     95        0 ( 843/1536- 925/1575)  36.9 E23-E18 N19-N22
      7 1693 1375 (N31W38 L= 74)  1812    324        1 (1598/1227-1783/1472) -30.5 W29-W47 N23-N35
      8 1280 1367 (N18W08 L= 43)   444    198        0 (1210/1304-1334/1451) -35.0 W01-W11 N15-N22
      9  828 1141 (S04E14 L= 22)   674    214        2 ( 755/1070- 891/1214)  66.0 E16-E11 S09-N00
     10 1895 1059 (N17W62 L= 98)  3318    426        6 (1846/ 859-1938/1196) -54.2 W54-W72 N06-N24
     11  658  882 (S23E19 L= 16)   230     75        0 ( 644/ 840- 672/ 924)  90.0 E20-E18 S25-S19
     12  474  850 (S28E33 L=  3)   297    101        0 ( 454/ 800- 490/ 895)  74.1 E33-E31 S31-S24
     13  235  823 (S33E57 L=339)  1079    241        0 ( 178/ 734- 317/ 893)  26.6 E68-E46 S39-S27
     14  653  596 (S41E16 L= 20)   361     84        0 ( 609/ 584- 692/ 614)  23.2 E19-E12 S42-S38
     15 1499  474 (S26W48 L= 84)   560    112        0 (1454/ 440-1541/ 518)  -5.2 W42-W53 S27-S24
  

    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