Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1230 1614 (N37W31 L=298)  1139    203        4 (1158/1538-1297/1678) -80.5 W27-W33 N31-N43
      2 1663 1554 (N21W60 L=327)  1629    279        3 (1618/1499-1725/1596)   0.0 W53-W68 N18-N23
      3  774 1361 (N32E09 L=258)  1565    342        1 ( 681/1221- 839/1500) -81.9 E14-E06 N22-N43
      4 1813 1426 (N09W70 L=337)  1836    300        7 (1760/1347-1858/1494) -65.6 W64-W79 N03-N14
      5 1814 1230 (S01W60 L=327)  2750    493        2 (1712/1063-1922/1437) -72.3 W56-W69 S13-N12
      6  307 1065 (N22E48 L=218)  3982    822        5 ( 129/ 913- 540/1221) -34.1 E66-E31 N09-N32
      7 1121 1156 (N13W09 L=275)   494    207        2 (1015/1101-1216/1194)  -4.4 W01-W14 N11-N14
      8 1567  820 (S17W29 L=296)  1789    335        1 (1482/ 678-1619/ 993)  47.0 W21-W35 S24-S08
      9  255  907 (N13E56 L=211)   416     47        1 ( 233/ 882- 274/ 932) -45.0 E57-E54 N11-N14
     10  620  882 (N06E27 L=239)   363     57        1 ( 595/ 852- 642/ 920)  56.3 E29-E25 N04-N08
     11  706  828 (N02E23 L=244)   278     71        1 ( 679/ 807- 748/ 853)   0.0 E24-E20 N00-N03
     12  637  687 (S05E31 L=236)   539    187        1 ( 551/ 656- 720/ 708)   0.0 E37-E24 S06-S04
     13  447  419 (S20E56 L=210)  1648    310        0 ( 396/ 317- 513/ 525)  86.4 E60-E52 S28-S12
     14 1392  445 (S38W12 L=278)   405     38        1 (1365/ 424-1420/ 469)   0.0 W09-W14 S40-S36
  

    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