Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  731 1599 (N28E26 L=126)   454    142        0 ( 704/1551- 770/1653) -60.3 E27-E21 N24-N32
      2  812 1574 (N27E20 L=133)   231     80        0 ( 782/1552- 856/1592)  31.0 E21-E16 N25-N28
      3 1751 1384 (N25W49 L=202)  1266    186        3 (1676/1326-1810/1446) -26.6 W42-W55 N22-N28
      4  339 1365 (N11E50 L=103)   577    126        1 ( 304/1316- 381/1418)  60.3 E51-E47 N07-N14
      5 1263 1343 (N16W12 L=164)   241     35        0 (1234/1327-1286/1365)   0.0 W09-W13 N15-N17
      6 1140 1230 (N08W05 L=157)  1323    401        4 ( 982/1084-1230/1359) -41.2 E05-W11 N00-N14
      7 1369 1326 (N16W19 L=171)   213     78        0 (1340/1305-1389/1358)  76.0 W16-W19 N14-N18
      8  592 1131 (S02E27 L=125)   718    181        1 ( 524/1084- 662/1169) -12.5 E31-E22 S04-N00
      9 1048 1047 (S04W01 L=153)   205     60        3 (1013/1031-1078/1066) -18.4 W00-W03 S04-S02
     10  889  962 (S10E08 L=145)   277     97        0 ( 844/ 941- 934/ 992)  45.0 E10-E04 S11-S07
     11  211  920 (S16E58 L= 94)   372     91        1 ( 196/ 874- 230/ 962)  51.3 E60-E55 S18-S13
     12  162  867 (S19E65 L= 87)  1961    165        8 ( 114/ 805- 214/ 952) -63.4 E74-E58 S22-S14
     13  283  927 (S16E50 L=102)   338     51        1 ( 261/ 901- 312/ 950)  31.0 E52-E47 S17-S14
     14 1446  881 (S09W27 L=180)   344     43        1 (1426/ 847-1467/ 909) -63.4 W25-W28 S11-S07
     15  309  852 (S20E49 L=104)   286     94        1 ( 294/ 807- 321/ 894)  68.2 E50-E47 S22-S17
     16 1250  793 (S17W16 L=168)  1283    588        1 (1020/ 736-1479/ 857)  17.8 W02-W30 S22-S12
     17  949  746 (S22E02 L=150)   409    124        0 ( 891/ 708-1009/ 794) -29.7 E06-W01 S24-S19
     18 1169  701 (S23W12 L=165)   327    148        0 (1120/ 643-1221/ 746)  60.3 W09-W15 S27-S19
     19  402  648 (S33E43 L=109)   889    172        2 ( 324/ 613- 481/ 700)  14.0 E51-E35 S34-S28
     20 1422  463 (S35W37 L=189)   946    140        3 (1372/ 431-1498/ 510)  -9.5 W31-W43 S37-S32
     21 1432  357 (S42W44 L=197)   901    148        2 (1388/ 324-1503/ 409)   0.0 W38-W52 S44-S38
  

    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