Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  377 1616 (N29E57 L=137)  1585    159        4 ( 310/1559- 437/1664)  36.9 E62-E52 N24-N32
      2 1137 1521 (N26W03 L=198)   717    240        0 (1045/1446-1223/1572) -28.6 E02-W09 N22-N29
      3  356 1445 (N17E50 L=144)  1155    142        3 ( 305/1380- 388/1513) -77.5 E54-E47 N12-N21
      4  686 1396 (N15E24 L=170)   392     89        1 ( 651/1350- 717/1432)  68.2 E26-E22 N12-N17
      5  561 1392 (N14E32 L=162)   579    184        1 ( 493/1348- 639/1428)  29.1 E36-E27 N11-N16
      6  471 1279 (N07E37 L=157)  1648    360        3 ( 367/1127- 550/1410) -49.1 E47-E31 S01-N14
      7 1662 1251 (N14W40 L=235)   426     60        1 (1628/1223-1692/1278) -11.3 W37-W42 N12-N15
      8  338 1233 (N04E47 L=148)   288     29        1 ( 319/1215- 357/1258)  56.3 E48-E45 N02-N05
      9  188 1022 (S09E60 L=135)  1948    318        9 ( 136/ 900- 253/1133) -61.7 E66-E53 S15-S02
     10  294  838 (S20E50 L=144)  2226    439        3 ( 261/ 643- 329/1018)  68.6 E56-E47 S31-S08
     11  608  886 (S16E25 L=169)  1611    553        5 ( 441/ 797- 838/ 944)  18.4 E37-E10 S21-S10
     12  387  890 (S16E41 L=153)   401     97        1 ( 353/ 853- 409/ 932)  59.0 E44-E39 S18-S13
     13 1432  491 (S34W36 L=230)   291     84        0 (1401/ 474-1475/ 522)  -8.1 W32-W39 S34-S31
     14  965  458 (S41W01 L=195)   331     43        0 ( 938/ 434- 989/ 483) -56.3 E01-W02 S42-S39
     15 1435  218 (S53W61 L=255)   840     94        0 (1391/ 198-1484/ 243)  -2.5 W50-W74 S54-S51
  

    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