Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  932 1546 (N41W07 L=354)  1673    325        4 ( 812/1500-1068/1617) -45.0 E02-W15 N34-N48
      2 1331 1412 (N23W29 L= 16)   362    134        0 (1317/1353-1356/1461)  56.3 W27-W32 N19-N25
      3  324 1302 (N36E49 L=299)  1076    180        2 ( 245/1256- 402/1334) -11.3 E60-E40 N32-N38
      4 1502 1299 (N12W36 L= 24)   269     43        1 (1479/1276-1527/1324)  11.3 W33-W38 N11-N13
      5  536 1203 (N27E29 L=319)   644    140        2 ( 459/1167- 600/1229) -24.4 E34-E23 N23-N29
      6  464 1024 (N17E36 L=312)   304    119        0 ( 444/ 979- 511/1055)  31.0 E37-E32 N14-N18
      7 1603  883 (S14W33 L= 21)  1292    409        5 (1536/ 759-1685/1055)  49.1 W27-W42 S20-S05
      8 1858  991 (S15W59 L= 47)   407     79        1 (1835/ 962-1873/1033)  38.7 W55-W61 S16-S12
      9  289  908 (N12E53 L=295)   385     82        1 ( 264/ 872- 312/ 948) -68.2 E55-E50 N09-N14
     10  389  807 (N05E46 L=302)   267     51        1 ( 367/ 783- 414/ 827)  33.7 E47-E43 N03-N05
     11  927  683 (S11E13 L=335)   496    236        2 ( 835/ 620-1014/ 752)  13.0 E19-E06 S13-S07
     12  667  619 (S11E30 L=317)   365     92        0 ( 641/ 579- 695/ 646)  31.0 E33-E28 S12-S08
     13 1115  345 (S39E11 L=337)   358     73        0 (1093/ 311-1135/ 382)  38.7 E13-E07 S41-S35
     14  507  326 (S28E60 L=288)   519     49        1 ( 478/ 314- 542/ 344) -18.4 E63-E56 S29-S26
  

    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