Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  876 1613 (N36E21 L= 77)  1275    297        1 ( 831/1499- 912/1711) -49.4 E28-E15 N28-N42
      2  533 1616 (N31E47 L= 51)  1146    271        3 ( 490/1518- 582/1691) -34.5 E54-E38 N24-N35
      3 1694 1555 (N45W50 L=148)  1099    264        0 (1651/1519-1731/1602)  26.6 W44-W58 N41-N50
      4  266 1427 (N14E64 L= 33)  2761    408        7 ( 224/1309- 309/1517) -45.0 E73-E56 N07-N20
      5  914 1343 (N18E11 L= 86)   389    168        0 ( 866/1285- 936/1406) -60.3 E15-E09 N14-N21
      6 1128 1330 (N20W02 L=100)   283    145        1 (1100/1268-1164/1397) -54.5 W00-W05 N17-N24
      7  473 1216 (N05E38 L= 59)   357    134        1 ( 409/1191- 523/1242)  29.7 E42-E35 N02-N06
      8 1539 1152 (N15W32 L=129)   566    145        4 (1499/1105-1570/1199)  60.3 W29-W33 N11-N18
      9 1274 1081 (N07W14 L=112)   448    170        2 (1236/ 991-1305/1155) -56.3 W11-W17 N02-N11
     10  289  914 (S16E50 L= 47)   431    156        2 ( 261/ 864- 334/ 960)  49.4 E52-E46 S19-S12
     11 1538  688 (S13W39 L=136)   713    137        3 (1496/ 642-1567/ 747) -71.6 W34-W41 S15-S09
     12  304  717 (S29E49 L= 48)   370    116        0 ( 271/ 706- 346/ 729)  14.0 E52-E44 S29-S27
     13  758  460 (S40E11 L= 86)   503    117        1 ( 701/ 445- 808/ 485)  12.5 E16-E07 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