Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  722 1726 (N41E30 L=297)   755     91        1 ( 675/1682- 766/1759) -24.4 E35-E24 N37-N43
      2  597 1717 (N39E41 L=285)   452     40        1 ( 574/1688- 617/1743) -63.4 E43-E38 N37-N41
      3  444 1575 (N28E48 L=279)   542     81        0 ( 399/1556- 488/1592)   0.0 E52-E43 N26-N29
      4  300 1155 (N01E50 L=277)   472     85        0 ( 265/1121- 334/1189)  31.0 E52-E46 N00-N03
      5 1596  853 (S11W38 L=  5)   228     37        0 (1580/ 828-1611/ 881)  76.0 W37-W39 S12-S08
      6  471  836 (S18E36 L=291)   275     91        0 ( 460/ 787- 488/ 877)  68.2 E36-E34 S20-S15
      7  292  745 (S24E53 L=273)   792    130        0 ( 252/ 686- 345/ 787)  28.6 E59-E47 S27-S21
      8  781  737 (S23E14 L=313)   222     69        0 ( 752/ 718- 808/ 768)  36.9 E16-E12 S24-S21
      9  623  740 (S23E25 L=302)   216     97        0 ( 583/ 725- 663/ 762)   0.0 E27-E22 S24-S22
     10 1742  496 (S31W67 L= 34)  1796    172        1 (1675/ 445-1810/ 579)  39.3 W59-W75 S34-S24
     11  624  505 (S39E28 L=298)  1399    184        2 ( 528/ 466- 702/ 539)   3.8 E36-E21 S41-S36
     12 1594  424 (S37W55 L= 21)   467     66        0 (1581/ 387-1609/ 457) -51.3 W52-W57 S40-S35
     13 1272  416 (S42W25 L=351)   685    165        2 (1209/ 391-1357/ 453)   0.0 W18-W32 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