Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1088 1778 (N42E24 L=188)   366     75        2 (1071/1740-1106/1821) -58.0 E27-E21 N38-N46
      2 1188 1753 (N44E16 L=196)   745    207        0 (1109/1685-1248/1817) -16.4 E25-E08 N40-N47
      3  341 1436 (N00E57 L=155)   959     97        2 ( 313/1377- 371/1476) -24.0 E62-E53 S03-N02
      4 1206 1365 (N18W00 L=213)   659    157        0 (1139/1306-1260/1409) -14.0 E04-W04 N15-N19
      5  181 1095 (S23E64 L=148)   505     86        1 ( 163/1045- 198/1129) -59.0 E66-E61 S25-S20
      6  221 1063 (S24E58 L=154)   375     47        3 ( 203/1034- 239/1091) -71.6 E60-E55 S25-S22
      7  760  880 (S21E11 L=201)  1214    540        1 ( 532/ 741- 970/ 954)  45.0 E24-W00 S35-S11
      8  402  784 (S37E36 L=176)   528    143        1 ( 381/ 718- 437/ 832)  76.0 E38-E33 S41-S33
      9  927  746 (S24W03 L=215)   499    159        0 ( 861/ 713-1011/ 770)  49.4 W00-W06 S27-S20
     10  992  616 (S30W11 L=223)   892    298        0 ( 850/ 597-1120/ 643)  33.7 W02-W17 S34-S24
     11 1266  491 (S28W33 L=245)   265     65        0 (1230/ 468-1293/ 517)  -8.1 W29-W36 S28-S27
     12  387  453 (S63E45 L=167)  1082    131        1 ( 325/ 423- 442/ 493)  -8.5 E58-E34 S64-S60
     13 1565  445 (S20W57 L=269)   905    146        0 (1498/ 403-1630/ 493)  60.9 W54-W60 S24-S15
  

    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