Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1726 1474 (N10W60 L=178)   654    123        2 (1677/1422-1760/1534) -76.0 W58-W62 N06-N14
      2 1427 1255 (N07W29 L=147)   266     84        0 (1406/1215-1456/1285)  21.8 W26-W31 N04-N07
      3 1609 1144 (S04W38 L=156)  1252    334        3 (1487/1063-1727/1277) -57.1 W33-W45 S11-N06
      4  674 1192 (N22E16 L=101)   310     81        0 ( 645/1155- 711/1231)  26.6 E19-E13 N20-N23
      5  180  945 (N18E60 L= 57)  1620    442        4 (  86/ 843- 272/1011) -37.4 E70-E52 N10-N23
      6 1366  906 (S11W16 L=134)   451    149        2 (1344/ 839-1387/ 983)  63.4 W14-W18 S14-S06
      7 1827  823 (S30W50 L=168)   981    289        0 (1755/ 726-1890/ 964)  32.0 W41-W58 S34-S22
      8 1611  833 (S22W31 L=149)   632    177        1 (1549/ 764-1687/ 879)  14.0 W25-W37 S24-S20
      9 1200  530 (S29E03 L=115)   433    185        2 (1181/ 470-1217/ 575)  50.2 E05-W00 S32-S25
     10  948  452 (S27E21 L= 97)   553    196        0 ( 926/ 369- 965/ 536)  57.5 E24-E16 S32-S21
     11  763  430 (S24E33 L= 85)   385    138        1 ( 749/ 376- 776/ 489)  58.0 E35-E30 S27-S19
     12  535  428 (S19E49 L= 69)   318     89        1 ( 512/ 405- 559/ 457)  21.8 E51-E46 S20-S16
  

    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