Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1714 1436 (N14W59 L= 21)   589    136        5 (1684/1394-1756/1468) -68.2 W55-W62 N11-N16
      2  190 1323 (N38E61 L=261)  1182    102        1 ( 174/1276- 206/1371)  90.0 E63-E59 N35-N41
      3 1041 1278 (N21W06 L=329)  1365    297        3 ( 897/1233-1181/1324) -35.5 E01-W14 N15-N27
      4 1492 1249 (N10W34 L=356)   459    104        2 (1450/1207-1533/1296) -66.8 W31-W35 N06-N13
      5  571 1235 (N28E26 L=297)   594     97        2 ( 525/1199- 607/1267) -50.2 E29-E23 N24-N30
      6 1847 1192 (S03W63 L= 25)  1213    150        5 (1814/1127-1882/1250) -81.9 W59-W66 S07-N00
      7  200 1058 (N22E60 L=263)  2245    399        3 ( 149/ 901- 281/1204) -60.9 E64-E53 N11-N30
      8 1451 1076 (N01W27 L=349)   445    109        0 (1389/1041-1488/1118)  15.9 W22-W29 N00-N02
      9  734 1024 (N12E17 L=305)   276    112        0 ( 687/1007- 795/1047) -29.7 E20-E13 N10-N14
     10 1200  886 (S05W07 L=330)  1655    436        3 (1115/ 760-1320/1044)  52.4 W02-W15 S12-N02
     11 1327  778 (S14W13 L=336)   248     80        0 (1291/ 744-1346/ 819)  45.0 W10-W14 S15-S11
     12  279  573 (S09E66 L=256)  2618    308        5 ( 222/ 507- 341/ 636) -90.0 E72-E58 S13-S04
     13  740  527 (S18E28 L=294)  1275    270        1 ( 685/ 421- 791/ 624)  47.5 E35-E22 S24-S12
     14  380  537 (S12E56 L=266)   473     73        0 ( 346/ 508- 405/ 561) -45.0 E58-E54 S14-S10
     15  622  304 (S32E48 L=274)  1107    185        2 ( 553/ 280- 666/ 343)   0.0 E53-E42 S33-S28
  

    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