Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1378 1553 (N36W07 L= 82)  2479    529        0 (1294/1329-1492/1767) -48.4 E05-W19 N24-N52
      2  369 1636 (N14E69 L=  7)  2587    146       10 ( 318/1589- 438/1695)  22.6 E80-E59 N10-N18
      3  424 1575 (N12E57 L= 18)   423     52        3 ( 393/1553- 450/1595)  26.6 E60-E53 N09-N12
      4  734 1517 (N15E31 L= 44)   412    135        0 ( 687/1472- 767/1544) -26.6 E33-E27 N13-N16
      5 1235 1417 (N23W01 L= 76)   685    320        0 (1135/1297-1335/1515) -22.4 E07-W10 N18-N26
      6  471 1437 (N04E46 L= 30)   354     70        0 ( 436/1421- 509/1455)  36.9 E48-E43 N02-N05
      7 1620 1294 (N27W30 L=105)   297     52        0 (1598/1270-1646/1322) -21.8 W27-W32 N26-N28
      8  406 1265 (S07E44 L= 31)   569    126        0 ( 381/1192- 423/1316) -76.0 E47-E41 S11-S03
      9 1739 1271 (N30W41 L=116)   348     45        0 (1726/1240-1752/1304)  78.7 W39-W41 N27-N32
     10 1703 1194 (N24W38 L=113)   609    131        1 (1651/1165-1745/1231)  20.6 W33-W41 N21-N27
     11  964 1090 (S03E05 L= 70)   234     31        0 ( 943/1067- 984/1116) -45.0 E06-E03 S04-S01
     12  516  976 (S21E29 L= 46)   258     67        0 ( 480/ 951- 541/ 999) -11.3 E32-E27 S21-S19
     13  944  949 (S11E02 L= 73)   492    137        1 ( 878/ 907- 988/ 994)  56.3 E05-W00 S14-S07
     14 1597  778 (S02W41 L=116)  1423    281        2 (1551/ 637-1639/ 899) -49.8 W36-W47 S09-N04
     15 1791  785 (N04W57 L=132)  1791    177        5 (1749/ 689-1836/ 878) -55.0 W52-W62 S01-N09
  

    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