Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  447 1689 (N28E56 L=359)  1450    292        2 ( 382/1654- 502/1721)  -7.6 E65-E49 N25-N30
      2  588 1400 (N10E33 L= 22)   420    118        0 ( 552/1367- 630/1448) -29.7 E36-E29 N07-N12
      3  985 1230 (N05E05 L= 50)   183     47        0 ( 953/1218-1010/1245)   0.0 E07-E03 N04-N06
      4 1820 1041 (N10W53 L=109)  2460    534        5 (1759/ 916-1876/1187)  83.3 W47-W61 N02-N19
      5 1769 1110 (N12W48 L=103)   306     32        0 (1755/1082-1782/1137) -76.0 W46-W48 N10-N14
      6  224 1064 (S14E56 L=359)   932    139        3 ( 186/1007- 258/1125) -45.0 E61-E52 S17-S10
      7  259 1029 (S16E52 L=  3)   920    241        1 ( 186/ 954- 312/1118)  45.0 E59-E48 S20-S09
      8  301  961 (S19E48 L=  8)  1201    289        1 ( 238/ 841- 371/1076)  56.3 E53-E42 S27-S12
      9  644 1044 (S11E23 L= 32)   200     44        0 ( 616/1026- 667/1061)   0.0 E25-E21 S11-S09
     10 1040  941 (S11W02 L= 58)   277     87        0 ( 990/ 925-1087/ 957)  21.8 W00-W05 S12-S09
     11  738  838 (S22E15 L= 41)   415    143        0 ( 652/ 797- 793/ 874)   0.0 E20-E10 S23-S19
     12  458  768 (S30E35 L= 21)  1072    259        2 ( 358/ 720- 562/ 815)  22.4 E43-E26 S33-S25
     13 1627  748 (S11W44 L= 99)   813    147        2 (1562/ 706-1685/ 807)  32.0 W40-W48 S14-S08
     14 1323  742 (S18W23 L= 79)   245     63        1 (1299/ 704-1338/ 769) -45.0 W21-W24 S19-S15
     15 1096  725 (S23W09 L= 65)   437    131        0 (1028/ 704-1154/ 747)  23.2 W05-W13 S24-S20
     16 1704  646 (S15W54 L=109)  4859    802       15 (1557/ 479-1833/ 746)  63.4 W41-W69 S27-S07
     17  879  597 (S34E02 L= 53)   393     74        1 ( 831/ 567- 916/ 629) -45.0 E05-W00 S36-S32
     18 1142  456 (S39W20 L= 76)   849    211        0 (1054/ 426-1237/ 519)  38.7 W13-W24 S41-S32
     19  965  465 (S42W07 L= 63)   267     41        1 ( 944/ 444- 986/ 490) -45.0 W05-W09 S43-S39
  

    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