Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  499 1490 (N33E34 L= 12)  4395    563       10 ( 307/1285- 678/1643) -28.3 E71-E19 N17-N47
      2 1705 1500 (N22W57 L=103)   891    144        1 (1633/1458-1754/1525) -24.0 W49-W62 N19-N24
      3  298 1376 (N27E52 L=355)   470     93        1 ( 275/1337- 328/1423) -45.0 E56-E47 N24-N30
      4  251 1275 (N21E55 L=352)  1047    214        2 ( 225/1217- 283/1366) -78.7 E57-E50 N17-N27
      5  258 1128 (N12E52 L=354)  1663    431        2 ( 151/1025- 342/1273)  31.4 E65-E44 N05-N20
      6  134 1204 (N18E70 L=336)   730     71        2 ( 119/1168- 157/1252) -71.6 E74-E65 N15-N21
      7  197 1174 (N15E60 L=347)  1670    184        1 ( 158/1116- 232/1245) -63.4 E65-E55 N11-N19
      8 1708 1002 (S08W45 L= 92)   857    130        2 (1671/ 938-1755/1044)  45.0 W42-W49 S11-S05
      9 1482  770 (S20W28 L= 74)   517    194        0 (1409/ 729-1577/ 799)  14.0 W22-W34 S22-S19
     10  518  575 (S24E40 L=  7)  1836    459        1 ( 455/ 395- 642/ 760)  37.2 E55-E26 S35-S13
     11 1278  694 (S23W13 L= 60)   677    238        2 (1186/ 658-1376/ 753) -24.8 W07-W20 S26-S18
     12  350  603 (S20E54 L=353)  1358    195        4 ( 314/ 496- 386/ 684)  71.6 E56-E50 S27-S15
     13 1575  468 (S42W41 L= 87)   354     57        0 (1544/ 451-1605/ 486) -15.9 W37-W44 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