Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  855 1651 (N51W08 L=290)   556     99        1 ( 820/1613- 891/1690)  24.0 W03-W12 N48-N52
      2 1197 1609 (N37W30 L=313)   479     90        1 (1160/1578-1243/1633) -18.4 W27-W33 N35-N38
      3 1598 1534 (N20W55 L=337)  1030    144        4 (1539/1506-1664/1555) -14.0 W49-W62 N17-N22
      4 1402 1423 (N20W35 L=317)   462    161        0 (1384/1346-1423/1494)  60.9 W32-W37 N15-N24
      5  336 1281 (N37E46 L=236)   995    162        1 ( 272/1217- 390/1322) -28.1 E55-E40 N32-N40
      6 1515 1278 (N09W36 L=318)   271     62        0 (1491/1246-1539/1309) -90.0 W35-W37 N06-N11
      7 1870 1181 (S08W65 L=347)   948    107        2 (1844/1124-1891/1230)  21.8 W59-W69 S10-S05
      8  682 1200 (N25E17 L=265)   578    199        0 ( 586/1178- 773/1215) -22.6 E23-E11 N22-N27
      9  882 1189 (N20E05 L=278)   213     68        1 ( 846/1171- 917/1206) -36.9 E06-E02 N18-N21
     10 1252 1170 (N10W17 L=299)   196     59        0 (1229/1151-1279/1187)   0.0 W15-W18 N08-N11
     11 1531 1061 (S03W31 L=313)   699    164        1 (1500/ 985-1569/1127)  45.0 W27-W35 S07-N00
     12  289 1028 (N22E51 L=231)  1149    179        1 ( 232/ 957- 344/1087) -42.0 E57-E46 N17-N26
     13 1872 1029 (S16W61 L=343)   717    141        0 (1833/ 992-1921/1052) -26.6 W55-W69 S20-S14
     14 1553  735 (S23W26 L=308)  1407    294        1 (1464/ 614-1634/ 847)  36.3 W18-W33 S29-S18
     15  923  786 (S04E11 L=271)   233     69        0 ( 897/ 757- 949/ 820) -68.2 E12-E10 S06-S01
     16  810  717 (S06E20 L=262)   238     59        0 ( 777/ 701- 847/ 739) -45.0 E21-E17 S07-S03
     17 1721  638 (S36W41 L=323)   432     71        1 (1696/ 602-1735/ 664) -78.7 W38-W43 S39-S33
     18 1339  369 (S43W04 L=286)  2292    273        2 (1225/ 283-1432/ 474)  22.8 E07-W12 S48-S36
     19  814  291 (S34E37 L=245)   568    104        0 ( 776/ 263- 854/ 327)  16.7 E42-E32 S36-S31
     20 1069  204 (S49E26 L=256)   610     90        1 (1029/ 181-1122/ 225)  -6.3 E30-E20 S51-S47
  

    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