Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  579 1576 (N29E41 L= 53)  1287    442        3 ( 505/1443- 650/1689) -35.5 E53-E32 N20-N35
      2  916 1602 (N36E17 L= 77)  1057    246        0 ( 868/1491- 950/1687) -52.4 E23-E13 N28-N41
      3 1730 1560 (N46W55 L=149)   631    230        0 (1704/1530-1748/1594)  31.0 W50-W60 N43-N49
      4  296 1455 (N17E62 L= 32)  3632    539        6 ( 252/1281- 333/1590) -51.7 E69-E53 N06-N25
      5  940 1312 (N17E09 L= 85)   572    230        1 ( 863/1261- 995/1393)  49.4 E13-E05 N13-N21
      6 1127 1269 (N17W03 L= 97)   198     76        2 (1103/1245-1145/1306) -71.6 W01-W04 N15-N18
      7  725 1267 (N11E22 L= 72)   264     54        1 ( 702/1240- 748/1292) -33.7 E23-E20 N09-N12
      8  516 1203 (N04E35 L= 59)   337    121        1 ( 460/1179- 563/1225)  33.7 E38-E31 N02-N06
      9 1327 1068 (N07W18 L=112)   437    170        0 (1287/ 979-1355/1144) -59.0 W14-W20 N01-N11
     10 1542 1057 (N09W33 L=127)   336    125        0 (1510/1028-1601/1093)  -8.1 W30-W37 N07-N11
     11  164 1044 (S10E66 L= 28)   526    142        1 ( 129/1027- 193/1058)  11.3 E71-E61 S10-S08
     12  324  899 (S17E47 L= 47)   482    153        1 ( 291/ 855- 376/ 955)  45.0 E49-E42 S19-S12
     13 1200  790 (S11W14 L=108)   280     86        0 (1167/ 769-1248/ 823) -18.4 W11-W17 S12-S09
     14 1580  683 (S13W42 L=136)   541    105        0 (1544/ 642-1603/ 713) -33.7 W38-W44 S15-S11
     15  795  452 (S40E08 L= 86)   465     87        1 ( 750/ 431- 842/ 474)  23.2 E11-E04 S42-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