Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1581 1626 (N36W59 L=168)   713     92        1 (1554/1579-1618/1656)  12.1 W52-W66 N33-N37
      2 1166 1633 (N44W21 L=129)   285     35        0 (1140/1616-1190/1652)   0.0 W18-W23 N42-N44
      3 1334 1434 (N27W27 L=136)   230     68        0 (1305/1409-1366/1458) -53.1 W25-W28 N25-N29
      4 1728 1355 (N16W57 L=166)  1526    280        1 (1676/1256-1794/1451) -77.0 W52-W61 N09-N22
      5 1660 1332 (N16W49 L=158)   466     74        0 (1642/1295-1676/1380)  71.6 W46-W51 N13-N19
      6  289 1280 (N27E56 L= 53)  1526    288        4 ( 201/1251- 406/1309)  -4.4 E68-E42 N24-N28
      7 1501 1262 (N14W34 L=143)   270     92        1 (1468/1221-1529/1303) -71.6 W32-W36 N11-N17
      8  221 1193 (N21E62 L= 47)   897    128        2 ( 195/1135- 249/1248) -81.9 E64-E58 N17-N24
      9 1005 1123 (N12E00 L=109)   320     71        0 ( 975/1094-1045/1141)  33.7 E02-W02 N10-N13
     10 1748  855 (S14W49 L=158)   533     11        0 (1726/ 832-1770/ 879)  14.0 W47-W51 S15-S12
     11  395  754 (S06E46 L= 63)   519    149        0 ( 356/ 694- 435/ 826) -66.0 E48-E43 S10-S01
     12  740  764 (S08E20 L= 88)   386     63        1 ( 716/ 732- 765/ 801) -90.0 E22-E18 S09-S05
     13  387  545 (S20E54 L= 55)   533    104        1 ( 366/ 498- 406/ 593)  66.8 E57-E51 S23-S16
     14 1325  480 (S34W16 L=124)   353     84        0 (1277/ 462-1365/ 498) -23.2 W11-W18 S35-S31
     15  890  400 (S34E18 L= 91)   359     86        0 ( 851/ 364- 915/ 437) -71.6 E19-E15 S37-S31
  

    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