Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1098 1914 (N58W61 L=316)   963     83        1 (1055/1892-1140/1944) -59.0 W55-W73 N54-N59
      2 1722  852 (S24W40 L=295)   620    148        0 (1660/ 810-1783/ 892)   0.0 W34-W46 S25-S23
      3  588  743 (N00E33 L=222)   222     50        0 ( 561/ 725- 617/ 764) -33.7 E34-E31 S01-N02
      4 1513  673 (S28W21 L=275)   287     92        0 (1500/ 633-1525/ 726)  63.4 W19-W22 S31-S25
      5 1448  636 (S29W15 L=270)   537    114        1 (1408/ 581-1485/ 686)  29.7 W11-W18 S31-S26
      6 1582  633 (S33W25 L=280)   518     87        0 (1532/ 617-1628/ 652) -20.6 W21-W29 S35-S31
      7 1253  575 (S27W01 L=256)   454    126        0 (1230/ 518-1283/ 630)  50.2 E01-W04 S29-S23
      8  605  372 (S22E48 L=206)   548     58        1 ( 575/ 342- 629/ 403) -56.3 E50-E46 S24-S19
  

    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