Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  398 1649 (N23E64 L= 89)  1178    241        5 ( 378/1594- 421/1691) -33.7 E69-E59 N19-N25
      2  436 1452 (N11E49 L=104)   380    135        0 ( 407/1403- 463/1494) -32.0 E53-E45 N08-N13
      3  317 1273 (S02E53 L=100)   572    123        0 ( 292/1220- 345/1328) -35.5 E57-E49 S04-N01
      4 1788 1211 (N26W50 L=203)   390     60        1 (1770/1183-1810/1238) -33.7 W47-W52 N24-N28
      5 1558 1205 (N20W30 L=183)   426     89        0 (1525/1155-1579/1237) -45.0 W27-W31 N17-N22
      6 1806 1121 (N21W52 L=206)   384     72        1 (1779/1094-1825/1140) -11.3 W49-W54 N19-N22
      7  569  911 (S18E26 L=128)   212     57        0 ( 551/ 881- 596/ 937)  63.4 E26-E24 S20-S16
      8  409  906 (S22E38 L=116)   381    133        0 ( 349/ 887- 457/ 930)  12.5 E42-E33 S22-S20
      9  297  855 (S27E47 L=106)   719    134        1 ( 261/ 803- 324/ 913)  58.0 E50-E44 S31-S23
     10 1098  846 (S11W08 L=162)   342    104        0 (1041/ 830-1151/ 869)  38.7 W04-W10 S12-S08
     11  873  727 (S23E03 L=151)   383    172        1 ( 796/ 704- 925/ 788)  53.1 E07-W00 S25-S17
     12 1412  460 (S27W41 L=194)   894    158        0 (1321/ 425-1463/ 516)  48.8 W35-W43 S31-S22
     13  924  494 (S37W07 L=160)   380    142        1 ( 858/ 480-1000/ 511)  26.6 W01-W11 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