Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  580 1698 (N38E42 L=353)  1953    233        4 ( 480/1642- 691/1740) -13.5 E54-E29 N33-N41
      2 1106 1684 (N39W01 L= 37)   566    172        2 (1022/1652-1173/1734) -24.4 E05-W06 N37-N43
      3 1087 1560 (N30W01 L= 36)   312    121        2 (1032/1534-1138/1588) -18.4 E02-W04 N28-N31
      4  888 1395 (N17E11 L= 25)   575    205        0 ( 836/1305- 928/1481)  76.0 E13-E08 N11-N23
      5 1801 1406 (N26W59 L= 94)   785     83        0 (1767/1371-1833/1441) -31.0 W55-W63 N24-N28
      6  316 1383 (N15E53 L=342)  1183    217        3 ( 251/1320- 379/1431) -22.4 E62-E45 N10-N18
      7  267 1305 (N10E56 L=340)   982    142        3 ( 237/1235- 297/1368) -56.3 E59-E51 N05-N14
      8 1054 1336 (N15E00 L= 35)   235    121        0 (1012/1293-1103/1360) -31.0 E02-W03 N12-N15
      9  175 1311 (N11E68 L=327)   665     70        1 ( 157/1272- 192/1342) -63.4 E72-E64 N08-N12
     10  190 1131 (S01E61 L=334)  1889    347        2 ( 144/ 971- 268/1259)  70.6 E67-E53 S10-N07
     11  367 1092 (S03E44 L=352)   420    115        0 ( 330/1047- 401/1142)  45.0 E46-E41 S05-N00
     12 1841  958 (S02W59 L= 94)  1287    161        4 (1813/ 881-1872/1029) -49.4 W55-W64 S05-N02
     13 1114  990 (S06W06 L= 41)   193     39        0 (1090/ 972-1135/1009)  45.0 W04-W06 S07-S04
     14  813  858 (S16E12 L= 23)   355    189        1 ( 717/ 834- 886/ 879)  -5.2 E18-E07 S16-S14
     15  579  821 (S19E28 L=  8)   236     77        2 ( 546/ 798- 619/ 853) -21.8 E30-E25 S20-S16
     16 1694  686 (S19W51 L= 86)  3183    341       11 (1603/ 578-1793/ 800)  50.2 W43-W61 S26-S12
     17 1483  685 (S22W33 L= 69)   241     88        0 (1447/ 658-1516/ 716) -26.6 W30-W36 S23-S20
     18 1381  399 (S42W35 L= 71)   282     62        0 (1359/ 383-1414/ 424)  -9.5 W32-W38 S42-S39
     19 1469  387 (S41W45 L= 80)   552     69        1 (1441/ 352-1499/ 410)  76.0 W41-W47 S44-S39
  

    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