Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  766 1836 (N36E52 L=222)  1050     87        2 ( 742/1787- 787/1885) -34.7 E60-E46 N32-N41
      2 1506 1701 (N55W13 L=287)   593     52        1 (1469/1680-1536/1717)   7.1 W08-W16 N52-N57
      3 1056 1645 (N31E18 L=256)   616     98        1 (1029/1594-1075/1700) -58.0 E20-E15 N27-N35
      4 1323 1541 (N33W02 L=276)  1348    334        1 (1247/1383-1393/1667) -43.2 E07-W10 N24-N40
      5 1630 1600 (N52W28 L=303)   529     67        0 (1611/1564-1658/1623)  45.0 W25-W33 N47-N54
      6 1443 1198 (N16W19 L=293)  1031    213        1 (1390/1104-1485/1300) -55.0 W14-W23 N11-N21
      7  454 1168 (S13E38 L=236)   484     99        0 ( 430/1114- 475/1218) -45.0 E41-E35 S15-S09
      8  635  991 (S18E22 L=252)   553    298        0 ( 554/ 946- 750/1060)  32.5 E27-E16 S20-S11
      9 1391  980 (N02W22 L=296)   802    241        2 (1322/ 883-1455/1056)  76.0 W18-W23 S04-N08
     10  588  805 (S30E21 L=253)   332    104        0 ( 553/ 764- 624/ 849)  66.8 E22-E19 S33-S26
     11  712  717 (S32E10 L=264)   274     79        0 ( 691/ 682- 725/ 763)  90.0 E11-E08 S34-S29
     12 1277  421 (S31W38 L=312)   581    109        0 (1226/ 404-1333/ 447)  12.5 W33-W42 S33-S29
     13  968  427 (S42W18 L=292)   687    210        0 ( 860/ 408-1065/ 445)  18.4 W10-W25 S45-S38
     14 1570  316 (S26W73 L=347)   905     75        1 (1539/ 299-1612/ 336)  33.7 W67-W77 S27-S23
  

    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