Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  983 1820 (N43E35 L=184)   468     42        1 ( 964/1793-1003/1845) -33.7 E37-E31 N40-N45
      2 1373 1688 (N47W01 L=220)  1402    163        5 (1327/1615-1427/1745) -85.9 E01-W05 N40-N54
      3 1809 1363 (N41W50 L=269)   827    103        0 (1763/1324-1844/1392)  -5.2 W43-W55 N38-N42
      4 1706 1333 (N34W37 L=255)   308     20        0 (1691/1313-1723/1357)  90.0 W35-W38 N32-N35
      5 1497 1325 (N25W20 L=238)   274     71        0 (1463/1303-1530/1354)   0.0 W16-W22 N24-N26
      6  384 1175 (S14E44 L=174)   321     64        0 ( 359/1147- 416/1197)  53.1 E46-E42 S15-S11
      7  652  684 (S35E14 L=205)   268     45        1 ( 637/ 656- 671/ 718) -76.0 E14-E11 S37-S33
      8  935  668 (S28W06 L=224)   403    117        0 ( 889/ 629- 999/ 699)  50.2 W03-W08 S31-S24
      9 1218  577 (S24W26 L=244)   224     82        0 (1181/ 566-1257/ 591)  36.9 W23-W27 S25-S22
     10  699  564 (S42E07 L=212)   245     33        0 ( 678/ 544- 727/ 581)  63.4 E08-E04 S43-S39
     11 1115  387 (S39W30 L=249)   717    123        1 (1065/ 350-1162/ 439)  82.9 W27-W31 S42-S34
     12 1254  298 (S39W47 L=266)  1049    226        2 (1173/ 238-1346/ 372) -82.4 W44-W49 S46-S31
     13  854  279 (S57W21 L=240)   352     75        0 ( 842/ 241- 869/ 313) -41.2 W18-W26 S60-S53
  

    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