Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1589 1438 (N22W40 L= 40)   284     64        1 (1558/1417-1622/1460)   9.5 W37-W43 N21-N23
      2  951 1413 (N21E04 L=356)   246    109        0 ( 933/1367- 982/1452)  68.2 E05-E02 N17-N23
      3  309 1405 (N23E53 L=307)   824    137        3 ( 259/1366- 350/1433) -10.3 E59-E48 N20-N24
      4  295 1313 (N17E52 L=308)  1460    162        5 ( 254/1249- 332/1366) -63.4 E57-E48 N12-N20
      5  998 1322 (N15E01 L=359)   196     69        2 ( 974/1303-1026/1341) -26.6 E02-W00 N13-N16
      6  248 1130 (N06E54 L=306)   933    127        1 ( 197/1081- 308/1184)  20.0 E59-E48 N02-N08
      7  736 1112 (N03E17 L=343)   287     66        2 ( 716/1076- 758/1140)  76.0 E18-E15 N00-N04
      8  179  956 (S04E62 L=298)   418     46        1 ( 152/ 942- 211/ 977)   0.0 E65-E58 S05-S03
      9  529  804 (S15E33 L=327)  1142    384        2 ( 443/ 648- 618/ 960) -67.2 E37-E28 S25-S05
     10  252  756 (S17E58 L=302)   586     69        1 ( 224/ 729- 282/ 787) -36.9 E61-E55 S18-S14
     11 1779  566 (S31W65 L= 65)  1208    172        0 (1728/ 497-1831/ 636)  77.5 W61-W69 S35-S26
     12  456  470 (S36E49 L=311)  1146    188        2 ( 395/ 411- 531/ 505)  14.0 E59-E39 S40-S34
     13 1348  343 (S48W29 L= 29)  2325    380        3 (1189/ 294-1488/ 396)  -9.7 W13-W48 S52-S44
     14  728  236 (S57E37 L=323)   573     73        0 ( 689/ 221- 771/ 251)   0.0 E41-E30 S58-S55
  

    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