Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  656 1535 (N34E22 L= 10)  4990    720       10 ( 389/1325- 910/1677) -28.6 E59-E04 N17-N48
      2 1358 1625 (N34W31 L= 63)   552    187        1 (1272/1596-1446/1655) -24.4 W25-W37 N31-N36
      3 1097 1563 (N32W10 L= 42)   253     50        2 (1073/1534-1122/1590) -76.0 W08-W11 N29-N33
      4 1688 1520 (N24W56 L= 88)   428     35        1 (1668/1499-1710/1543) -45.0 W53-W58 N22-N25
      5  242 1451 (N33E63 L=329)   970    137        2 ( 207/1406- 290/1513) -15.6 E80-E54 N29-N37
      6  357 1463 (N32E48 L=344)   345     72        0 ( 332/1434- 391/1490)  45.0 E50-E44 N30-N33
      7 1230 1441 (N22W17 L= 49)   300     87        0 (1189/1409-1276/1473) -38.7 W14-W19 N20-N24
      8  407 1318 (N22E40 L=352)   918    235        1 ( 381/1257- 460/1427) -59.7 E43-E35 N17-N29
      9  250 1265 (N20E55 L=337)  1153    151        3 ( 216/1201- 283/1332)  66.8 E58-E50 N16-N24
     10  185 1228 (N18E62 L=329)   439     98        1 ( 157/1180- 210/1268)  39.8 E65-E59 N15-N20
     11  400 1128 (N10E40 L=352)  1246    325        3 ( 295/1078- 526/1230)  18.4 E48-E30 N06-N15
     12  311 1204 (N16E48 L=344)   297     43        0 ( 290/1179- 335/1224) -26.6 E49-E45 N13-N16
     13  147 1078 (N10E66 L=326)  2143    210        8 (  96/ 990- 236/1133) -39.3 E76-E54 N04-N13
     14  799  764 (S15E16 L= 16)   775    342        0 ( 703/ 660- 889/ 876)  42.7 E23-E09 S20-S08
     15  520  736 (S14E35 L=357)  1510    313        0 ( 491/ 590- 564/ 851)  66.4 E39-E30 S23-S07
     16 1477  734 (S22W28 L= 59)  1050    274        2 (1385/ 682-1584/ 833) -33.7 W21-W36 S26-S15
     17 1679  792 (S20W43 L= 75)   699    112        1 (1629/ 763-1747/ 814)   5.7 W39-W49 S21-S19
     18 1686  477 (S42W55 L= 87)   522     63        0 (1657/ 454-1720/ 504) -17.1 W49-W62 S43-S39
     19  363  456 (S30E62 L=330)   497     50        0 ( 345/ 426- 380/ 482)  26.6 E65-E57 S32-S28
     20  626  434 (S35E37 L=355)   380     71        0 ( 602/ 401- 652/ 470)  39.8 E40-E33 S37-S32
  

    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