Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  512 1491 (N33E33 L= 12)  4619    578        9 ( 316/1262- 691/1640) -29.2 E68-E18 N16-N47
      2 1735 1498 (N22W60 L=105)   686     88        1 (1694/1461-1761/1524) -45.0 W56-W63 N19-N23
      3  306 1384 (N28E51 L=355)   476    103        1 ( 284/1335- 338/1430) -50.2 E55-E46 N24-N30
      4  233 1217 (N18E56 L=350)  2363    291        7 ( 165/1118- 295/1360)  82.4 E63-E49 N11-N26
      5  327 1251 (N19E46 L=359)   389     46        3 ( 302/1226- 353/1275)  33.7 E48-E44 N17-N20
      6  138 1206 (N18E69 L=336)   724     74        3 ( 122/1169- 155/1253) -80.5 E72-E66 N15-N21
      7  193 1082 (N10E60 L=346)   718    100        3 ( 160/1057- 242/1118) -24.0 E63-E54 N07-N12
      8 1725 1003 (S08W47 L= 92)   839    115        1 (1686/ 947-1768/1042)  50.2 W43-W50 S11-S05
      9  668  808 (S11E24 L= 22)   387    107        1 ( 630/ 768- 714/ 839)  -9.5 E26-E20 S13-S08
     10 1494  772 (S20W29 L= 74)   573    192        0 (1423/ 727-1591/ 799)  14.0 W23-W35 S22-S19
     11  531  578 (S24E39 L=  7)  1654    450        2 ( 465/ 396- 650/ 758)  37.2 E54-E25 S35-S13
     12 1294  694 (S24W15 L= 60)   682    206        1 (1227/ 664-1391/ 754) -28.6 W10-W21 S26-S19
     13  366  592 (S21E53 L=353)   981    159        2 ( 347/ 514- 391/ 665)  73.3 E55-E49 S26-S16
     14 1581  469 (S42W42 L= 87)   394     64        0 (1546/ 451-1617/ 486)  -7.1 W37-W45 S43-S40
  

    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