Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  828 1766 (N55E23 L=140)   352     48        1 ( 797/1735- 854/1785)   9.5 E26-E20 N51-N56
      2 1031 1729 (N52E01 L=162)   625     87        0 ( 979/1708-1086/1749) -12.5 E05-W04 N49-N53
      3  438 1543 (N35E50 L=112)  2291    324        5 ( 326/1460- 563/1645) -11.6 E80-E36 N29-N40
      4 1538 1559 (N38W42 L=205)   634    100        0 (1486/1536-1581/1581)  -7.1 W37-W46 N36-N39
      5 1598 1490 (N33W45 L=208)   357     42        0 (1579/1461-1615/1517)  76.0 W43-W46 N30-N34
      6  847 1441 (N29E13 L=149)  1095    352        4 ( 717/1408-1013/1480)  -2.6 E23-E01 N26-N31
      7  290 1381 (N23E59 L=104)   399     78        0 ( 260/1360- 325/1405)   0.0 E63-E54 N21-N24
      8 1625 1351 (N23W43 L=206)   370     77        0 (1599/1309-1646/1384) -78.7 W41-W44 N20-N25
      9 1860 1224 (N15W66 L=228)  1218    185        3 (1805/1147-1914/1285) -36.9 W59-W73 N09-N18
     10 1270 1186 (N13W15 L=178)   345    107        0 (1226/1153-1318/1206)  26.6 W12-W18 N11-N14
     11  638 1156 (N10E25 L=138)   317    106        1 ( 596/1128- 678/1195) -31.0 E27-E21 N08-N12
     12 1779 1130 (N09W54 L=217)   392     73        1 (1751/1099-1797/1171)  45.0 W51-W56 N07-N11
     13 1455 1120 (N09W27 L=190)   257     84        1 (1423/1084-1489/1151) -45.0 W25-W29 N07-N11
     14 1649  858 (S07W42 L=205)   309     62        0 (1631/ 822-1666/ 894)  68.2 W40-W43 S09-S04
     15  686  782 (S12E21 L=141)   202     43        2 ( 663/ 761- 708/ 803)  33.7 E22-E19 S13-S10
     16  524  639 (S22E34 L=128)   257     91        0 ( 478/ 629- 572/ 647)   7.1 E38-E30 S22-S21
     17  991  587 (S24E02 L=161)   298     96        0 ( 971/ 544-1010/ 637)  80.5 E02-W00 S27-S21
     18 1270  553 (S27W18 L=180)   776    159        1 (1223/ 514-1331/ 624) -37.9 W13-W22 S29-S21
     19 1074  555 (S27W04 L=167)   523    145        0 (1001/ 529-1128/ 589)  23.2 W00-W07 S28-S24
     20  735  222 (S57E32 L=131)   611     51        0 ( 703/ 205- 769/ 242) -15.9 E35-E27 S58-S54
  

    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