Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  261 1205 (N27E49 L=236)   460     65        1 ( 235/1180- 282/1239)  36.9 E51-E47 N25-N28
      2  582 1201 (N20E24 L=262)   200     75        0 ( 552/1182- 622/1217) -36.9 E25-E21 N18-N21
      3  282  906 (N08E51 L=234)  1274    311        1 ( 192/ 791- 381/1004) -49.1 E58-E45 N00-N15
      4  585  882 (N02E29 L=257)   382     76        1 ( 569/ 842- 610/ 935) -90.0 E29-E27 N00-N05
      5 1795  795 (S27W49 L=334)  1688    236        3 (1725/ 721-1882/ 880)  17.4 W42-W58 S31-S23
      6  505  768 (S03E37 L=249)   410    101        0 ( 461/ 725- 547/ 811)  20.6 E40-E32 S05-S01
      7 1695  429 (S53W46 L=332)   630    243        0 (1649/ 401-1726/ 454) -28.1 W39-W54 S57-S49
      8  782  322 (S36E35 L=251)   776    118        0 ( 732/ 302- 847/ 351) -29.7 E38-E29 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