Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  321 1557 (N12E64 L=115)  1982    320        6 ( 282/1479- 391/1680) -82.4 E68-E58 N06-N21
      2  475 1404 (N04E43 L=136)   356    106        0 ( 448/1347- 513/1453)  81.9 E44-E41 N00-N07
      3  541 1387 (N04E37 L=141)   289     62        0 ( 506/1359- 576/1408)  36.9 E39-E35 N02-N06
      4 1092 1266 (N08E01 L=177)   800    180        0 (1058/1199-1158/1357) -45.0 E04-W03 N04-N13
      5  181 1139 (S15E62 L=116)  4348    620       12 ( 114/1037- 247/1254) -85.9 E73-E55 S21-S07
      6  897 1199 (S00E11 L=167)   192     43        1 ( 878/1177- 918/1227) -63.4 E12-E09 S01-N01
      7  504  914 (S24E30 L=148)  1164    260        2 ( 415/ 812- 597/1008)  53.7 E36-E25 S31-S16
      8 1533  972 (N02W31 L=209)   256     37        1 (1514/ 946-1559/ 993) -63.4 W29-W32 N00-N02
      9 1383  957 (S03W22 L=200)   253     90        0 (1363/ 909-1416/ 985)  78.7 W20-W23 S05-N00
     10 1470  808 (S09W31 L=210)   283     88        2 (1424/ 792-1510/ 829)   9.5 W28-W34 S09-S07
     11  398  789 (S33E38 L=141)   264     39        1 ( 379/ 773- 423/ 812) -33.7 E39-E35 S34-S31
     12 1458  669 (S17W35 L=214)  1405    375        4 (1300/ 574-1578/ 780)  58.6 W28-W40 S25-S07
     13 1598  696 (S11W44 L=222)   603    213        2 (1561/ 639-1628/ 735) -33.7 W41-W47 S13-S08
     14 1035  522 (S36W14 L=193)   539    154        0 ( 961/ 499-1120/ 544)  15.3 W08-W20 S37-S34
     15 1675  431 (S23W64 L=242)  2114    362        1 (1570/ 382-1790/ 489)  35.8 W57-W75 S28-S15
  

    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