Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1652 (N32E18 L= 94)   365     61        1 ( 836/1633- 903/1680)   0.0 E20-E15 N30-N34
      2 1284 1551 (N30W11 L=124)   426    161        1 (1242/1485-1325/1625) -53.1 W08-W14 N25-N34
      3 1080 1460 (N21E01 L=112)   273     89        0 (1062/1415-1094/1505) -71.6 E02-W00 N18-N24
      4 1508 1458 (N27W28 L=141)   293    116        0 (1451/1433-1553/1489) -20.6 W23-W31 N25-N28
      5  929 1341 (N12E09 L=104)   347    148        0 ( 887/1286- 984/1408)  63.4 E10-E06 N08-N16
      6 1784 1214 (N15W50 L=163)   656     84        2 (1762/1169-1812/1258)  63.4 W47-W52 N12-N18
      7 1724 1103 (N08W45 L=158)  1675    401        4 (1594/ 941-1800/1243) -35.8 W33-W53 N00-N14
      8 1861 1145 (N13W58 L=171)  1176    207        8 (1822/1074-1893/1230)  77.5 W53-W62 N08-N17
      9  330 1011 (S12E46 L= 67)   512     93        1 ( 311/ 962- 352/1059) -80.5 E47-E43 S14-S08
     10 1273 1017 (S03W15 L=128)   456    184        0 (1190/ 955-1323/1049) -12.5 W09-W18 S06-S01
     11  211 1021 (S11E57 L= 55)   627     74        1 ( 181/ 985- 238/1048) -31.0 E60-E54 S13-S09
     12  240  855 (S21E55 L= 58)  3449    465       10 ( 132/ 761- 359/ 966) -42.7 E68-E43 S26-S14
     13  545  871 (S19E29 L= 84)   879    330        2 ( 474/ 812- 621/ 951) -41.2 E34-E23 S22-S13
     14 1831  728 (S12W63 L=176)  6065      0       21 (1623/ 539-1945/ 886)  57.4 W50-W78 S26-S01
     15 1225  839 (S14W14 L=127)   211     60        1 (1199/ 824-1264/ 857)   0.0 W12-W16 S14-S13
     16 1682  678 (S17W50 L=163)   740    251        3 (1581/ 633-1772/ 716)  13.2 W41-W58 S21-S13
     17 1504  653 (S22W36 L=149)   649    160        1 (1469/ 588-1546/ 711) -45.0 W33-W41 S24-S17
     18 1412  628 (S24W30 L=143)   313     95        1 (1383/ 586-1431/ 676)  80.5 W29-W32 S27-S21
     19 1817  619 (S18W67 L=180)   467     71        1 (1791/ 589-1846/ 648)  59.0 W63-W70 S20-S15
     20  453  547 (S40E40 L= 72)  1382    222        3 ( 363/ 519- 558/ 588)  10.8 E51-E30 S42-S37
  

    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