Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1252 1708 (N47W33 L=135)  1422    305        6 (1218/1617-1316/1778)  32.0 W26-W43 N40-N52
      2  910 1496 (N37E02 L=100)   278     41        1 ( 886/1466- 935/1514)  45.0 E03-W00 N35-N38
      3  966 1426 (N32W01 L=103)   212     67        0 ( 945/1399- 988/1462) -68.2 W00-W02 N29-N34
      4  698 1385 (N32E18 L= 83)   315    113        0 ( 674/1347- 733/1438) -63.4 E20-E15 N29-N35
      5 1514 1230 (N11W34 L=136)   313    128        1 (1452/1179-1561/1262) -49.4 W30-W37 N07-N14
      6 1199 1185 (N13W13 L=115)   199     81        1 (1171/1154-1235/1228) -59.0 W11-W14 N11-N16
      7 1042 1146 (N13W03 L=104)   265    138        0 ( 968/1121-1104/1171)   0.0 E02-W06 N11-N14
      8 1654 1128 (N03W43 L=145)   404    101        1 (1610/1113-1693/1150)  -8.1 W39-W46 N01-N04
      9  210 1054 (N14E60 L= 42)   825    195        1 ( 175/1006- 256/1129) -53.1 E64-E54 N11-N19
     10 1512  865 (S10W29 L=131)   228     98        0 (1482/ 826-1526/ 918)  59.0 W26-W30 S12-S07
     11 1091  847 (S06W02 L=104)   199    121        0 (1059/ 791-1122/ 906)  56.3 W00-W04 S08-S02
     12  900  684 (S14E12 L= 90)   281     93        0 ( 872/ 646- 918/ 732)  51.3 E14-E10 S15-S10
     13 1428  556 (S30W22 L=124)  1371    288        1 (1296/ 477-1546/ 660)  25.3 W11-W30 S33-S24
     14  613  478 (S25E36 L= 65)   836    228        2 ( 536/ 435- 692/ 527)  15.9 E43-E29 S27-S21
  

    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