Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1858 (N55E09 L=341)   529     71        0 (1074/1834-1142/1880)  50.2 E11-E06 N51-N58
      2  461 1704 (N32E58 L=292)   530     62        2 ( 444/1665- 477/1742) -36.9 E63-E55 N29-N35
      3 1195 1504 (N26W05 L=355)   551    176        0 (1162/1434-1220/1574) -84.3 W01-W06 N20-N30
      4 1797 1250 (N20W52 L= 42)  1022    238        2 (1756/1141-1828/1353) -71.6 W48-W54 N13-N25
      5  411  951 (S16E39 L=311)   237     80        0 ( 394/ 918- 439/ 976)  53.1 E40-E37 S18-S14
      6  641  801 (S23E22 L=328)   683    194        0 ( 601/ 708- 668/ 888)  79.7 E24-E20 S29-S18
      7  462  840 (S23E35 L=315)   259     96        0 ( 428/ 812- 479/ 885)  68.2 E38-E33 S24-S19
      8 1120  188 (S61W35 L= 25)   721     68        1 (1090/ 162-1151/ 221)   7.1 W30-W40 S64-S57
  

    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