Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  764 1615 (N21E32 L=309)   277     16        0 ( 743/1597- 788/1632)  71.6 E33-E30 N19-N22
      2  524 1533 (N11E45 L=297)   880    231        2 ( 475/1460- 559/1610) -28.3 E52-E39 N06-N14
      3  267 1107 (S19E52 L=290)  1457    426        1 ( 153/1068- 393/1162)   4.8 E65-E41 S21-S15
      4  917 1040 (S09E06 L=335)   295     92        1 ( 884/ 985- 956/1075)  80.5 E07-E04 S12-S06
      5  436 1041 (S20E37 L=305)   679    177        1 ( 362/1024- 512/1059)  15.3 E42-E31 S21-S18
      6 1248  980 (S04W14 L=355)   196     99        0 (1201/ 957-1297/ 998)  36.9 W11-W16 S06-S01
      7 1898  896 (N12W64 L= 46)  2551    493        3 (1855/ 827-1940/ 972) -84.3 W57-W72 N07-N17
      8 1599  920 (N03W36 L= 18)   229     30        0 (1584/ 900-1616/ 946) -56.3 W35-W37 N01-N04
      9  315  816 (S36E44 L=298)   455    115        0 ( 268/ 793- 363/ 838)   0.0 E48-E39 S36-S34
     10 1578  600 (S14W47 L= 29)   834    197        2 (1556/ 515-1605/ 697) -61.4 W43-W50 S19-S08
     11  345  603 (S49E43 L=299)   528    166        0 ( 301/ 569- 388/ 639)  32.5 E48-E37 S52-S45
     12 1272  484 (S30W32 L= 14)  2533    625        0 ( 998/ 424-1552/ 552)  16.7 W12-W52 S35-S22
     13 1650  473 (S18W60 L= 42)   566     56        1 (1624/ 448-1680/ 495)  76.0 W57-W62 S20-S16
  

    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