Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  377 1587 (N11E64 L=189)  2949    269        4 ( 290/1517- 435/1674)  76.0 147-E53 N08-S-2
      2  491 1611 (N15E55 L=198)   351    102        3 ( 469/1590- 513/1629)  -9.5 E58-E51 N14-N16
      3  612 1515 (N12E40 L=213)   286     41        1 ( 596/1492- 633/1541) -45.0 E42-E37 N11-N13
      4  821 1473 (N14E25 L=228)   557    127        0 ( 764/1426- 883/1535)  71.6 E31-E20 N13-N17
      5 1156 1441 (N22E04 L=249)   655    129        1 (1129/1381-1189/1500) -40.6 E08-E01 N19-N25
      6  201 1238 (S13E65 L=189)  8426    845       13 ( 122/1100- 283/1422) -65.8 147-E52 S19-S-2
      7  708 1313 (N02E26 L=227)   538    121        1 ( 678/1253- 729/1367) -38.7 E29-E23 S01-N05
      8 1386 1305 (N20W14 L=267)   270     70        0 (1353/1278-1425/1322)  51.3 W11-W17 N20-N20
      9  448 1209 (S10E40 L=213)  2645    788        8 ( 297/1084- 661/1317)  26.6 E56-E22 S12-S06
     10 1070 1230 (N07E03 L=250)   609    157        0 (1005/1173-1113/1268) -18.4 E08-W01 N05-N07
     11  950 1136 (S01E07 L=246)   677    184        0 ( 879/1108-1042/1192)   0.0 E12-E01 S01-S00
     12 1829 1107 (N24W55 L=308)   484     71        1 (1805/1074-1850/1134)  76.0 W52-W58 N22-N24
     13  275 1066 (S21E52 L=201)   352    106        0 ( 243/1043- 315/1095)  -7.1 E56-E48 S22-S20
     14  510  965 (S22E30 L=223)  1283    236        4 ( 473/ 873- 558/1090) -63.4 E35-E25 S26-S16
     15  214 1024 (S25E59 L=195)   387    108        1 ( 181/1006- 241/1041)  14.0 E63-E55 S26-S25
     16  837  954 (S14E09 L=245)   390     80        1 ( 805/ 920- 871/ 990) -36.9 E11-E06 S15-S13
     17  799  910 (S18E10 L=243)   189     37        1 ( 772/ 892- 823/ 925)  18.4 E12-E08 S18-S18
     18  797  788 (S25E07 L=246)   560    109        1 ( 729/ 752- 846/ 835) -12.5 E12-E03 S26-S24
     19 1259  799 (S11W20 L=273)   277     55        0 (1230/ 777-1298/ 821)  53.1 W17-W23 S11-S11
     20  226  762 (S42E60 L=193)   574     84        1 ( 200/ 738- 255/ 792)  26.6 E63-E56 S42-S40
     21 1598  563 (S13W51 L=305)   567    124        2 (1575/ 513-1616/ 618) -63.4 W47-W56 S15-S11
     22  594  567 (S45E17 L=236)   320     75        0 ( 573/ 527- 618/ 607) -38.7 E20-E14 S47-S43
     23 1683  463 (S15W67 L=320)   482     84        0 (1652/ 451-1713/ 476)  15.9 W62-W72 S15-S16
     24 1009  375 (S44W25 L=278)  2364    415        5 ( 842/ 318-1186/ 463)  40.1 W07-W42 S41-S44
  

    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