Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  986 1577 (N41W13 L=255)   574     83        3 ( 943/1542-1020/1610)   0.0 W08-W15 N38-N43
      2 1692 1540 (N19W62 L=304)   831     86        0 (1650/1507-1725/1573) -51.3 W59-W65 N16-N21
      3 1491 1329 (N13W36 L=278)   276     78        1 (1452/1316-1529/1347) -31.0 W33-W38 N11-N15
      4  543 1172 (N25E28 L=214)  2410    566        4 ( 334/1083- 764/1256) -29.5 E44-E14 N15-N33
      5  270 1137 (N27E51 L=191)   395     67        1 ( 255/1106- 295/1168) -90.0 E52-E48 N25-N29
      6 1837  940 (S19W54 L=296)  2229    348        4 (1768/ 815-1879/1083)  40.9 W45-W62 S24-S11
      7  885 1035 (N11E08 L=234)   216     25        1 ( 862/1014- 907/1058)  33.7 E09-E06 N09-N11
      8 1003  997 (N06E02 L=240)   200     59        0 ( 970/ 985-1035/1011) -33.7 E03-W00 N04-N07
      9  215  886 (N13E61 L=181)   852    174        2 ( 169/ 835- 256/ 928) -40.6 E65-E56 N09-N15
     10  987  794 (S05E07 L=235)   323    115        0 ( 924/ 764-1048/ 815)  -7.1 E11-E03 S06-S04
     11 1393  646 (S24W14 L=256)   676    137        3 (1354/ 592-1426/ 702) -90.0 W12-W16 S27-S19
     12  292  561 (S08E65 L=177)  1054    143        2 ( 243/ 488- 337/ 630) -73.3 E68-E63 S13-S03
     13 1670  551 (S40W37 L=278)   399     70        1 (1640/ 533-1696/ 566) -18.4 W33-W39 S41-S37
  

    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