Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  519 1693 (N21E57 L=336)   532    126        0 ( 499/1654- 546/1742) -54.5 E60-E52 N18-N25
      2  746 1715 (N28E41 L=352)   431     76        1 ( 702/1689- 772/1738)  -7.1 E45-E37 N26-N30
      3  594 1698 (N23E51 L=342)   384     64        2 ( 564/1673- 615/1730)  78.7 E52-E48 N21-N26
      4  725 1548 (N17E33 L=  0)   903    248        2 ( 652/1452- 789/1628) -20.6 E41-E25 N12-N21
      5 1785 1348 (N37W46 L= 80)  2972    445        3 (1676/1153-1892/1510) -38.0 W34-W61 N27-N45
      6  519 1370 (N02E40 L=354)   798    213        2 ( 430/1353- 638/1393)  21.0 E45-E31 N00-N05
      7 1056 1185 (N05E02 L= 31)  1209    447        1 ( 875/1107-1228/1264)  48.6 E10-W05 S04-N13
      8 1713 1188 (N24W39 L= 73)   515    133        0 (1665/1150-1766/1243) -11.3 W34-W44 N22-N26
      9  226 1140 (S17E58 L=335)   600    117        2 ( 196/1090- 265/1173)  63.4 E61-E53 S20-S14
     10  601 1056 (S14E25 L=  8)   208     93        1 ( 565/1028- 621/1098)  80.5 E27-E24 S16-S10
     11  229  966 (S27E55 L=338)   329     93        0 ( 213/ 926- 249/1000)  78.7 E57-E52 S29-S24
     12  368  954 (S25E41 L=353)   515    138        1 ( 318/ 899- 415/ 999) -21.8 E45-E35 S27-S23
     13  161  928 (S31E65 L=328)   676     77        0 ( 146/ 880- 178/ 967)  51.3 E68-E62 S33-S28
     14  208  725 (S43E62 L=332)  1217    134        0 ( 155/ 679- 267/ 764)  14.0 E79-E51 S47-S39
     15  913  526 (S36W08 L= 42)   424    203        0 ( 849/ 496- 993/ 586)   5.2 W02-W13 S38-S33
  

    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