Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1415 1742 (N53W45 L=206)   447     82        0 (1385/1716-1451/1764)  15.9 W38-W52 N50-N54
      2 1021 1733 (N53W00 L=161)   926    200        3 ( 931/1707-1106/1758)  16.4 E09-W09 N50-N55
      3  852 1554 (N38E13 L=148)   230     71        1 ( 821/1533- 889/1572) -21.8 E15-E10 N36-N39
      4 1029 1498 (N34W01 L=162)   263     71        0 ( 997/1481-1075/1513)  21.8 E01-W04 N33-N35
      5  253 1463 (N30E72 L= 89)  1131     54        1 ( 227/1429- 277/1497) -14.9 E83-E66 N27-N31
      6  523 1255 (N18E34 L=127)   628    209        0 ( 475/1190- 608/1296)  24.0 E37-E27 N13-N20
      7  229 1012 (N01E59 L=102)  1420    193        1 ( 183/ 953- 285/1089)  30.3 E64-E52 S01-N06
      8  205  699 (S19E69 L= 92)  1594    141        1 ( 184/ 637- 248/ 750)  41.6 E77-E60 S23-S15
      9 1450  685 (S18W29 L=189)   320    162        0 (1369/ 669-1510/ 716)  16.7 W22-W32 S19-S16
     10  566  566 (S26E34 L=127)  1610    442        0 ( 437/ 406- 698/ 709)  34.9 E54-E21 S39-S16
     11  858  490 (S31E12 L=149)  3373    604        6 ( 641/ 351-1070/ 674)  33.3 E33-W02 S42-S18
     12 1447  636 (S22W29 L=190)   263     51        0 (1417/ 615-1477/ 655)  26.6 W26-W31 S22-S20
     13 1552  324 (S47W56 L=217)  1194    116        3 (1527/ 288-1582/ 364) -20.0 W48-W70 S51-S43
  

    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