Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  506 1729 (N55E44 L= 81)   637     53        0 ( 484/1696- 528/1758) -28.3 E50-E37 N51-N58
      2 1368 1618 (N32W34 L=158)   314     63        0 (1332/1592-1403/1637) -36.9 W31-W35 N30-N34
      3  239 1416 (N33E61 L= 63)   835    102        2 ( 206/1378- 279/1453) -18.4 E69-E54 N30-N36
      4  768 1349 (N22E12 L=112)   571    167        0 ( 684/1316- 831/1391)  10.3 E18-E07 N20-N23
      5  523 1308 (N22E30 L= 95)   372     86        0 ( 476/1290- 562/1327) -15.9 E33-E26 N21-N23
      6 1875  933 (S15W62 L=187)  1784    256        1 (1853/ 807-1894/1065) -86.2 W59-W65 S22-S07
      7  317  717 (S11E53 L= 71)   927    171        1 ( 275/ 654- 343/ 799)  45.0 E59-E49 S14-S05
      8  431  740 (S11E42 L= 82)   343     72        1 ( 412/ 704- 451/ 780)  76.0 E43-E40 S12-S08
      9  584  646 (S18E33 L= 91)   333     81        0 ( 559/ 608- 606/ 687) -78.7 E34-E32 S20-S15
     10  412  575 (S20E50 L= 75)   414    101        1 ( 373/ 529- 449/ 604)  21.8 E55-E45 S22-S18
     11  546  556 (S23E39 L= 85)   292     99        0 ( 506/ 526- 587/ 593) -51.3 E41-E36 S25-S20
     12  344  483 (S25E63 L= 62)   511     58        1 ( 312/ 469- 383/ 502)   0.0 E67-E57 S26-S23
     13  690  318 (S42E40 L= 84)  1108    236        2 ( 595/ 259- 786/ 370)   8.7 E54-E28 S45-S38
  

    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